KeyGenMe #1

[CraZy.]

Ето мои первый KeyGenMe. :cool:
введите толко цифры!

скачать ! (http://www.rapidshare.ru/899681)

[SHAG]

name:<<shag
key:12877 21571 01849 40123 21147
keygen писать влом.

[Lamia]

name: antichat
key: 15008 81831 07361 09573 00137

[CraZy.]

Надо было писать KeyGen =|

все равно хорошо а трудно было?

[SHAG]

Сессия, не до кейгенов сейчас. Правильный пасс найти не сложно.
Сравнение в открытом виде.

[ProTeuS]

ProTeuS
1394301701046010179266127

[ProTeuS]

уныловатый кейген, 4исто рас4итан 4то никто разгребаться в ку4е монотонного кода не будет, я на то и попался, ибо не буду

там на старте генерится строка

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
v1, v2, v4: integer;
username, s: string;
begin
s := '';
username := 'ProTeuS';
v1 := length(username);

v2 := 2 * v1;
if v1 >= 0 then
begin
v4 := v1 + 1;
repeat
v2 := 73 * v2 + 876;
s := s + IntToStr(v2) + IntToStr(v2*122);
dec(v4);
until v4 <= 0;
end;
writeln(s);
readln;
end.

S вот она. а с нее по алфавиту генерится в ку4е строк кода буфера валидного сериала. дальше забил, некогда