wimage5.pas

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

===Begin Source Code===



var
 name:string;
 secondc,py,pos:integer;
 total,z,eax,edx,ebx,ecx,edi,nextedi:longint;



begin


 writeln('WinImage V5.00.5000 Keygen');
 writeln('Flu[X]');
 writeln('06/05/99');
 writeln(' ');
 write('Enter Name :');
 readln(name);


 pos:=1;
 total:=$47694c;
 eax:=0;
 edx:=0;
 ecx:=0;
 edi:=$27;


  while pos <= length(name) do {all caps}
  begin

  z:= ord(name[pos]);
  secondc:=ord(name[pos]);
   if ord(name[pos]) > 96 then
    begin
     if ord(name[pos]) <= 122 then
      begin
       name[pos] := chr(ord(name[pos]) - 32);

      end;
    end;
    pos:=pos+1;
   end;
  pos:=1;




 while pos <= length(name) do
 begin
   edx:=ord(name[pos]);
   eax:=3+pos;
   edx:=edx*edi;
   total:=total+edx;
   edi:=edi*3;
   pos:=pos+1;
 end;
 Write('Registration Key 1: ');

 eax:=total;
 py:=0;
 while eax>=268435456 do
   begin
    eax:=eax-268435456;
    ecx:=ecx+1;
    py:=1;
   end;
   if py>1 then
   begin
   if ecx =0 then write('0');
   end;
   if ecx =1 then write('1');
   if ecx =2 then write('2');
   if ecx =3 then write('3');
   if ecx =4 then write('4');
   if ecx =5 then write('5');
   if ecx =6 then write('6');
   if ecx =7 then write('7');
   if ecx =8 then write('B');
   if ecx =9 then write('9');
   if ecx =10 then write('A');
   if ecx =11 then write('8');
   if ecx =12 then write('C');
   if ecx =13 then write('D');
   if ecx =14 then write('E');
   if ecx =15 then write('F');
   ecx:=0;

   while eax>=16777216 do
   begin
    eax:=eax-16777216;
    ecx:=ecx+1;
    py:=1;
   end;
   if py>1 then
   begin
   if ecx =0 then write('0');
   end;
   if ecx =1 then write('1');
   if ecx =2 then write('2');
   if ecx =3 then write('3');
   if ecx =4 then write('4');
   if ecx =5 then write('5');
   if ecx =6 then write('6');
   if ecx =7 then write('7');
   if ecx =8 then write('B');
   if ecx =9 then write('9');
   if ecx =10 then write('A');
   if ecx =11 then write('8');
   if ecx =12 then write('C');
   if ecx =13 then write('D');
   if ecx =14 then write('E');
   if ecx =15 then write('F');
   ecx:=0;


   while eax>=1048576 do
   begin
    eax:=eax-1048576;
    ecx:=ecx+1;
    py:=1;
   end;
   if py>1 then
   begin
   if ecx =0 then write('0');
   end;
   if ecx =1 then write('1');
   if ecx =2 then write('2');
   if ecx =3 then write('3');
   if ecx =4 then write('4');
   if ecx =5 then write('5');
   if ecx =6 then write('6');
   if ecx =7 then write('7');
   if ecx =8 then write('B');
   if ecx =9 then write('9');
   if ecx =10 then write('A');
   if ecx =11 then write('8');
   if ecx =12 then write('C');
   if ecx =13 then write('D');
   if ecx =14 then write('E');
   if ecx =15 then write('F');
   ecx:=0;

   while eax>=65536 do
   begin
    eax:=eax-65536;
    ecx:=ecx+1;
    py:=1;
   end;
   if py>1 then
   begin
   if ecx =0 then write('0');
   end;
   if ecx =1 then write('1');
   if ecx =2 then write('2');
   if ecx =3 then write('3');
   if ecx =4 then write('4');
   if ecx =5 then write('5');
   if ecx =6 then write('6');
   if ecx =7 then write('7');
   if ecx =8 then write('B');
   if ecx =9 then write('9');
   if ecx =10 then write('A');
   if ecx =11 then write('8');
   if ecx =12 then write('C');
   if ecx =13 then write('D');
   if ecx =14 then write('E');
   if ecx =15 then write('F');
   ecx:=0;

   while eax>=4096 do
   begin
    eax:=eax-4096;
    ecx:=ecx+1;
   end;
   if ecx =0 then write('0');
   if ecx =1 then write('1');
   if ecx =2 then write('2');
   if ecx =3 then write('3');
   if ecx =4 then write('4');
   if ecx =5 then write('5');
   if ecx =6 then write('6');
   if ecx =7 then write('7');
   if ecx =8 then write('B');
   if ecx =9 then write('9');
   if ecx =10 then write('A');
   if ecx =11 then write('8');
   if ecx =12 then write('C');
   if ecx =13 then write('D');
   if ecx =14 then write('E');
   if ecx =15 then write('F');
   ecx:=0;

   while eax>=256 do
   begin
    eax:=eax-256;
    ecx:=ecx+1;
   end;
   if ecx =0 then write('0');
   if ecx =1 then write('1');
   if ecx =2 then write('2');
   if ecx =3 then write('3');
   if ecx =4 then write('4');
   if ecx =5 then write('5');
   if ecx =6 then write('6');
   if ecx =7 then write('7');
   if ecx =8 then write('B');
   if ecx =9 then write('9');
   if ecx =10 then write('A');
   if ecx =11 then write('8');
   if ecx =12 then write('C');
   if ecx =13 then write('D');
   if ecx =14 then write('E');
   if ecx =15 then write('F');
   ecx:=0;

   while eax>=16 do
   begin
    eax:=eax-16;
    ecx:=ecx+1;
   end;
   if ecx =0 then write('0');
   if ecx =1 then write('1');
   if ecx =2 then write('2');
   if ecx =3 then write('3');
   if ecx =4 then write('4');
   if ecx =5 then write('5');
   if ecx =6 then write('6');
   if ecx =7 then write('7');
   if ecx =8 then write('B');
   if ecx =9 then write('9');
   if ecx =10 then write('A');
   if ecx =11 then write('8');
   if ecx =12 then write('C');
   if ecx =13 then write('D');
   if ecx =14 then write('E');
   if ecx =15 then write('F');
   ecx:=0;

   if eax =0 then write('0');
   if eax =1 then write('1');
   if eax =2 then write('2');
   if eax =3 then write('3');
   if eax =4 then write('4');
   if eax =5 then write('5');
   if eax =6 then write('6');
   if eax =7 then write('7');
   if eax =8 then write('B');
   if eax =9 then write('9');
   if eax =10 then write('A');
   if eax =11 then write('8');
   if eax =12 then write('C');
   if eax =13 then write('D');
   if eax =14 then write('E');
   if eax =15 then write('F');
   writeln('');




   write('Registration Key 2: ');
   pos:=1;
   edi:=$27;
   eax:=total;
   eax:=eax+$14051948;
 py:=0;
 while eax>=268435456 do
   begin
    eax:=eax-268435456;
    ecx:=ecx+1;
    py:=1;
   end;
   if py>1 then
   begin
   if ecx =0 then write('0');
   end;
   if ecx =1 then write('1');
   if ecx =2 then write('2');
   if ecx =3 then write('3');
   if ecx =4 then write('4');
   if ecx =5 then write('5');
   if ecx =6 then write('6');
   if ecx =7 then write('7');
   if ecx =8 then write('B');
   if ecx =9 then write('9');
   if ecx =10 then write('A');
   if ecx =11 then write('8');
   if ecx =12 then write('C');
   if ecx =13 then write('D');
   if ecx =14 then write('E');
   if ecx =15 then write('F');
   ecx:=0;

   while eax>=16777216 do
   begin
    eax:=eax-16777216;
    ecx:=ecx+1;
    py:=1;
   end;
   if py>1 then
   begin
   if ecx =0 then write('0');
   end;
   if ecx =1 then write('1');
   if ecx =2 then write('2');
   if ecx =3 then write('3');
   if ecx =4 then write('4');
   if ecx =5 then write('5');
   if ecx =6 then write('6');
   if ecx =7 then write('7');
   if ecx =8 then write('B');
   if ecx =9 then write('9');
   if ecx =10 then write('A');
   if ecx =11 then write('8');
   if ecx =12 then write('C');
   if ecx =13 then write('D');
   if ecx =14 then write('E');
   if ecx =15 then write('F');
   ecx:=0;


   while eax>=1048576 do
   begin
    eax:=eax-1048576;
    ecx:=ecx+1;
    py:=1;
   end;
   if py>1 then
   begin
   if ecx =0 then write('0');
   end;
   if ecx =1 then write('1');
   if ecx =2 then write('2');
   if ecx =3 then write('3');