⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 wimage5.pas

📁 破解很多程序的序列号算法程序
💻 PAS
📖 第 1 页 / 共 2 页
字号:
   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 writeln('0');
   if eax =1 then writeln('1');
   if eax =2 then writeln('2');
   if eax =3 then writeln('3');
   if eax =4 then writeln('4');
   if eax =5 then writeln('5');
   if eax =6 then writeln('6');
   if eax =7 then writeln('7');
   if eax =8 then writeln('B');
   if eax =9 then writeln('9');
   if eax =10 then writeln('A');
   if eax =11 then writeln('8');
   if eax =12 then writeln('C');
   if eax =13 then writeln('D');
   if eax =14 then writeln('E');
   if eax =15 then writeln('F');



   write('Registration Key 3: ');
   pos:=1;
   edi:=$27;
   eax:=total;
   eax:=eax+$17061954;
 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 writeln('0');
   if eax =1 then writeln('1');
   if eax =2 then writeln('2');
   if eax =3 then writeln('3');
   if eax =4 then writeln('4');
   if eax =5 then writeln('5');
   if eax =6 then writeln('6');
   if eax =7 then writeln('7');
   if eax =8 then writeln('B');
   if eax =9 then writeln('9');
   if eax =10 then writeln('A');
   if eax =11 then writeln('8');
   if eax =12 then writeln('C');
   if eax =13 then writeln('D');
   if eax =14 then writeln('E');
   if eax =15 then writeln('F');


end.


===End Source Code===

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -