KeyGenMe #1

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

скачать !

 

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

 

name: antichat
key: 15008 81831 07361 09573 00137

 

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

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

 

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

 

ProTeuS
1394301701046010179266127

 

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

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

Code:

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е строк кода буфера валидного сериала. дальше забил, некогда