winamp.pas

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

Program ScanFax ;
uses crt ;
var user : string ;
    i,key : integer ;
    eax,edx,ecx,ebx,esi,edi : longint ;
begin
  clrscr ;
  writeln('Nullsoft Winamp 2.xx KeyGenerator by flag eRRatum') ;
  writeln('Visit our Homepage at : http://all.at/ekh') ;
  write('Enter your Name : ') ;
  readln(user) ;
  if length(user) < 1 then
    begin
    writeln('Sorry but You haven''t entered anything yet !') ;
    exit
    end ;

  for i:=1 to length(user) do
    begin
    eax:=ord(user[i+2]) ;
    ecx:=ord(user[i]) ;
    edx:=ord(user[i+1]) ;
    eax:=eax XOR ecx ;
    ecx:=ord(user[i+3]) ;
    ecx:=NOT ecx ; eax:=NOT eax ;
    ecx:=ecx XOR edx ;
    eax:=eax+ecx ;

    ebx:=ebx+abs(eax SHL (((i-1)*2) AND $F)) ;
    end ;

  ebx:=ebx*$25 ; edx:=ebx MOD $F4240 ; esi:=edx ;
  ecx:=edx ; ecx:=ecx*$64 ;

  while esi<>0 do
    begin
      eax:=esi ; edi:=edi + (eax MOD 100) ;
      esi:=100 ; esi:=eax DIV esi ;
    end ;

  eax:=edi * 3 ;
  ecx:=ecx + ((eax DIV 4) MOD 100) ;
  write('This is Your Reg# : ') ; textcolor(White) ; writeln(ecx) ;
  textcolor(lightred) ;
  writeln('Thanx for using this KeyGenerator, visit our page for more !') ;
end.