Посмотрел курс от Bad_Guy. Взломал почти все крякми от фантома(Есть на сайте). Узнал для себя пароль, но охото узнать как сделать КийГен)) Покажу что смог разобрать:



Дальше уже идет сравнение EAX с нулем и решени о регистрации...
Помогите пожалуйсто как создать алгоритм для генерации пароля(например на delphi). Я Дельфи знаю хорошо... Спасибо!

| Сообщение посчитали полезным:

s:='YourName';
d:='';
for c:=0 to length(s)-1 do
begin
al:=(((Ord(s[c+1])+c))xor c)div $1a;
al:=(al shr 8)+$41;
d:=d+chr(al);
end;

както так вроде

-----
SaNX

| Сообщение посчитали полезным: TeXNo_BoY

SaNX не мог бы объяснить откуда взял все это???(алгоритм)

| Сообщение посчитали полезным:

чето не работает(или я туплю)

procedure TForm1.Button1Click(Sender: TObject);
var
s, d:string;
c, al: byte;
begin
s:='Cracker';
d:='';
for c:=0 to length(s)-1 do
begin
al:=(((Ord(s[c+1])+c))xor c)div $1a;
al:=(al shr 8)+$41;
d:=d+chr(al);
end;
Edit1.Text:=d;
end;

| Сообщение посчитали полезным:

--> Link <-- а почему поиском не воспользовался?

| Сообщение посчитали полезным: