filesync.pas

破解很多程序的序列号算法程序

Program FileSync ;

uses crt ;
var username : string ;
    serial,eax,edx : longint ;
    ecx,edi : integer ;
begin
  clrscr ;
  writeln('FileSync 2.x KeyGenerator by flag eRRatum') ;
  writeln('Visit our page at http://all.at/ekh') ;
  write('Enter Your Username : ') ;
  readln(username) ;

  if length(username) < 5 then
    begin
    writeln('Username should more than 4 char !') ; exit ; end ;

  repeat
    begin
    edx:=length(username) * 5 ;
    ecx:=0 ;
    edx:=edx*5 ;
    edx:=edx SHL 2 ;
    repeat
      eax:=edx ;
      eax:=eax-ecx ;
      eax:=eax * (ord(username[ecx+1])) ;
      eax:=eax*edi ;
      serial:=serial+eax ;
      inc(ecx) ;
    until ecx=length(username) ;
    end ;
    inc(edi) ;
  until edi=length(username) ;
  write('This is Your Registration Key : ') ; Textcolor(White) ;
  writeln(serial) ;
  textcolor(LightRed) ;
  writeln('Bye ! Don''t forget visit our page !!!') ;
  end.