Пишем кейген - Остальное - Delphi - Каталог статей - Вирусология, взгляд из Delphi
Четверг, 08.12.2016, 01:15 Приветствую вас Гость | Группа "Гости" 


Меню сайта

Категории раздела
Вирусология [39]
Статьи о вирусах
Системные [0]
Работа с системой
Примеры [44]
Приёмы, функции, процедуры
Ceти [1]
Работа с интернет
Приколы [5]
Пишем шуточные програмки
Остальное [5]
Всё что не вошло

Администрация
000000 dolphin

Помощь проекту

R106276538945
Z160640024212

Яндекс деньги
410011190732605

Недавние темы

Опрос
Вы счастливы?
Всего ответов: 210

Главная » Статьи » Delphi » Остальное

Пишем кейген
00489F3C |> 8B45 FC /MOV EAX,DWORD PTR SS:[EBP-4]
00489F3F |. 0FB67438 FF |MOVZX ESI,BYTE PTR DS:[EAX+EDI-1] ; берём по одной букве из нашего имени
00489F44 |. 8D55 F0 |LEA EDX,DWORD PTR SS:[EBP-10]
00489F47 |. 8BC6 |MOV EAX,ESI ; тут что-то каму-то передаём, посмотрите в отладчике :)
00489F49 |. E8 26FFFFFF |CALL disk.00489E74 ; что-то там вызываем :))
00489F4E |. 8B55 F0 |MOV EDX,DWORD PTR SS:[EBP-10]
00489F51 |. 8D45 F4 |LEA EAX,DWORD PTR SS:[EBP-C]
00489F54 |. E8 03ADF7FF |CALL disk.00404C5C ; что-то там вызываем :))
00489F59 |. 47 |INC EDI ; увеличиваем EDI на 1
00489F5A |. 4B |DEC EBX
00489F5B |.^75 DF JNZ SHORT disk.00489F3C ; looping (повторяем пока не закончатся знаки в нашем имени)

Вот это место где происходит вся генерация нашего серийника. Тут в частности надо знать что находится в EDI. А то, что находится в EDI я посмотрел в SoftICE. Там увидел вот что - CMW273333- Вот это и есть гвоздь программы :) Ну а дальше всё просто:
прога берёт наше NAME, затем смотрит из скоки символов она состоит, добавляет длину имени к CMW273333, ну а дальше после ’-’ идёт HEX код нашего имени. Сложно? :)) ОК вот пример:
Допустим мы ввели произвольное имя specz :)) HEX код этого имени (737065637A). specz 25 then //ограничиваем длину имени
begin //ограничиваем длину имени
Edit2.Text:=’Имя не больше 25 знаков’; //ограничиваем длину имени
exit;
end;
scet:=33+len; // добавляем к 33 длину нашего имени
Edit2.Text:=’CMW2733’+inttostr(scet)+’-’; // вывод всего безобразия в Edit2
for i:=1 to len do // тут начинается сама процедура
begin
t:=Ord(name[i]); // перевод имени в ASCII
last:=InttoHex(t, 2); // перевод имени в HEX
Edit2.Text:= Edit2.Text+(last); // вывод всего безобразия в Edit2
end;
end;

Вот и вся любовь. Если кому впадлу использовать функцию copy&paste тогда вот !работающий! кейген :). За статью не отвечаю, ибо ещё сам являюсь в этом деле newbie поэтому могут быть ашипки :)).. 
Будут вопросы мыльте, всегда рад принять пару тысяч писем со спамом :)).
Adioz...
Категория: Остальное | Добавил: dolphin (21.03.2009)
Просмотров: 2449 | Комментарии: 1 | Рейтинг: 0.0/0

Всего комментариев: 1
avatar
1
Дай плз исходник
avatar
Профиль


Логин:
Пароль:

Поиск

Наша кнопка

Вирусология, взгляд из Delphi



Статистика
HSDN :: Рейтинг сайтов WOlist.ru - каталог качественных сайтов Рунета Яндекс.Метрика Счетчик тИЦ и PR
Статистика материалов
Файлов: 364
Форум: 1128/7979
Коментариев: 759
Новостей: 27

Статистика пользователей
Всего: 411
За неделю: 2
Вчера: 0
Сегодня: 0
Всего онлайн: 2
Гостей: 2
Пользователей: 0

delfcode.ru © 2008 - 2016 Хостинг от uCoz