cpalkey.pas

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

Program Cookie ;
uses crt;
var username,magictable : string ;
    i,j : integer ;
    serial,ecx : longint ;
const table : string = '503446801' ;

begin
  clrscr ;
  serial:=10 ;
  writeln('Cookie Pal 1.x Key-Generator by flag eRRatum') ;
  write('Please enter username : ') ;
  readln(username) ;
  for i:=1 to length(username) do delete(username,pos(' ',username),1) ;
  for i:=1 to length(username) do
    begin
    if (i mod 2)<> 0 then
      begin
      if ord(username[i])<97 then username[i]:=chr(ord(username[i])+32) ;
      end
    else username[i]:=upcase(username[i]) ;
    end;
  for i:=1 to length(username) do magictable:=magictable+username[length(username)+1-i]+username[i] ;
  for i:=1 to length(magictable) do
    begin
    ecx:=i*serial ;
    j:=ord(magictable[i]) mod 9 ;
    serial:=serial+(ord(magictable[i]) mod ord(table[j+1])) ;
    end ;
  writeln('This is your Registration Number : ',serial) ;

end.