home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / ucfkey03.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  6.5 KB  |  256 lines
  1. {$M $4000,0,65536}       {* Set heap size to zero !!! *}
  2.  
  3. Program UniversialKeymaker;
  4.  
  5. uses palette,dos,crt,keyinput;
  6.  
  7. {$L ULONGS.OBJ}                         { link in the assembly code }
  8.  
  9. FUNCTION LongADD (Addend1,Addend2:LONGINT):LONGINT;   EXTERNAL;
  10.  
  11. FUNCTION LongSUB (LongWord,Subtrahend:LONGINT):LONGINT;  EXTERNAL;
  12.  
  13. FUNCTION LongMUL (Multiplicand,Multiplier:LONGINT):LONGINT; EXTERNAL;
  14.  
  15. FUNCTION LongDIV (Dividend,Divisor:LONGINT):LONGINT;  EXTERNAL;
  16.  
  17. FUNCTION LongMOD (Dividend,Divisor:LONGINT):LONGINT;  EXTERNAL;
  18.  
  19. PROCEDURE WriteULong (LongWord:LONGINT;     { the longword          }
  20.  
  21.                       Width:BYTE;           { _minimum_ field width }
  22.  
  23.                       FillChar:CHAR;        { leading space char    }
  24.  
  25.                       Base:BYTE); EXTERNAL; { number base 2..26     }
  26.  
  27.  
  28.  
  29. Var
  30.  
  31.   sk                         : array[1..8000] of byte absolute $b800:0000;
  32.  
  33.   i,numwritten:integer;
  34.  
  35.   ToF:File;
  36.  
  37.   Output : String;
  38.  
  39.   f:text;
  40.  
  41.   x,y,Name,Company:String;
  42.  
  43. Type
  44.  
  45.   String8 = String[8];
  46.  
  47.  
  48.  
  49.  
  50.  
  51. Const
  52.  
  53.   AskName=1;
  54.  
  55.   AskCompany=0;
  56.  
  57.  
  58.  
  59.  
  60.  
  61. Procedure LongToHex(AnyLong : LongInt; Var HexString : String8);
  62.  
  63.  
  64.  
  65. Var
  66.  
  67.   ALong : LongInt;
  68.  
  69.   ch    : Char;
  70.  
  71.   Index : Byte;
  72.  
  73. begin
  74.  
  75.   HexString := '00000000';                  { default to zero   }
  76.  
  77.   Index := Length(HexString);               { String length     }
  78.  
  79.   While AnyLong <> 0 do
  80.  
  81.   begin                                     { loop 'til done    }
  82.  
  83.     ch := Chr(48 + Byte(AnyLong) and $0F);  { 0..9 -> '0'..'9'  }
  84.  
  85.     if ch > '9' then
  86.  
  87.       Inc(ch, 39);                           { 10..15 -> 'A'..'F'}
  88.  
  89.     HexString[Index] := ch;                 { insert Char       }
  90.  
  91.     Dec(Index);                             { adjust chr Index  }
  92.  
  93.     AnyLong := AnyLong SHR 4;               { For next nibble   }
  94.  
  95.   end;
  96.  
  97. end;
  98.  
  99.  
  100.  
  101. Procedure Curs(n:integer);
  102.  
  103.  
  104.  
  105. Var regs : registers;
  106.  
  107.  
  108.  
  109. Begin
  110.  
  111.   regs.ah:=1;
  112.  
  113.   case n of
  114.  
  115.   0 : begin
  116.  
  117.         regs.cl:=32;
  118.  
  119.         regs.ch:=32;
  120.  
  121.       end;
  122.  
  123.   1 : begin
  124.  
  125.         regs.cl:=8;
  126.  
  127.         regs.ch:=7;
  128.  
  129.       end;
  130.  
  131.   end;
  132.  
  133.   intr($10,regs);
  134.  
  135. End;
  136.  
  137. PROCEDURE SwitchTo25; ASSEMBLER;
  138.  
  139. ASM
  140.  
  141.    MOV AX,$1114
  142.  
  143.    INT $10
  144.  
  145. END;
  146.  
  147.  
  148.  
  149. Function GenerateReg:String;
  150.  
  151.  
  152.  
  153. Var
  154.  
  155.   lic,eax,ebx,ecx,edx,edi,esi,ebp:Longint;
  156.  
  157.   ax,bx,cx,dx,si,bp : word;
  158.  
  159.   i:integer;
  160.  
  161.   dummy,MyStr : String8;
  162.  
  163.  key,name,result:string;
  164.  
  165.     namec,nameb:array[1..10] of byte;
  166.  
  167.     named :array[1..80] of byte;
  168.  
  169.     j:integer;
  170.  
  171.     ral,rbl,rcl,rdl : byte;
  172.  
  173.  
  174.  
  175. Begin
  176.  
  177.   Curs(1);
  178.  
  179.   ax:=wherex;
  180.  
  181.   bx:=wherey;
  182.  
  183.   write(' ■ Enter your name   : ');
  184.  
  185.   Repeat
  186.  
  187.     {readln(name);}
  188.  
  189.     GetInput(Name,'',20,24,bx,0,7,' ',false);
  190.  
  191.   until Name<>'';
  192.  
  193.   key := '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ?!';
  194.  
  195.  
  196.  
  197. {
  198.  
  199.  
  200.  
  201.         @loop:    mov cl , [0]
  202.  
  203.                   inc eax
  204.  
  205.                   not cl
  206.  
  207.                   mov [esp + eax + 0B], cl
  208.  
  209.                   cmp eax, $0000000A
  210.  
  211.                   jl 00404A1A
  212.  
  213. }
  214.  
  215.  
  216.  
  217.   for i:=1 to 10 do begin
  218.  
  219.     nameb[i]:=47+i;
  220.  
  221.     if length(name)>=i then nameb[i]:=ord(name[i]);
  222.  
  223.     if length(name)+1=i then nameb[i]:=0;
  224.  
  225.     namec[i]:=not(nameb[i]);
  226.  
  227.   end;
  228.  
  229.  
  230.  
  231. {                 xor esi, esi
  232.  
  233.                   lea edi, [esp + 6C]
  234.  
  235.         :00404A30 xor eax, eax
  236.  
  237.                   mov ecx, $00000007
  238.  
  239.         :00404A37 mov dl, [esp + esi + 0C]
  240.  
  241.                   sar dl, cl
  242.  
  243.                   and dl, 01
  244.  
  245.                   mov [eax + edi], dl
  246.  
  247.                   inc eax
  248.  
  249.                   dec ecx
  250.  
  251.                   cmp eax, $00000008
  252.  
  253.         :00404A48 jl 00404A37
  254.  
  255. }
  256.  
  257.  
  258.  
  259.   for j:=0 to 9 do begin
  260.  
  261.   rcl:=7;
  262.  
  263.   for i:=1 to 8 do begin
  264.  
  265.     rdl:=namec[j+1];
  266.  
  267.     asm
  268.  
  269.       mov cl,rcl
  270.  
  271.       mov dl,rdl
  272.  
  273.       sar dl, cl
  274.  
  275.       and dl, 1
  276.  
  277.       mov rdl,dl
  278.  
  279.     end;
  280.  
  281.     named[j*8+i]:=rdl;
  282.  
  283.     dec(rcl);
  284.  
  285.   end;
  286.  
  287.  
  288.  
  289. {
  290.  
  291.  
  292.  
  293.                   inc esi
  294.  
  295.                   add edi, $00000008
  296.  
  297.                   cmp esi, $0000000A
  298.  
  299.         :00404A51 jl 00404A30
  300.  
  301.  
  302.  
  303. }
  304.  
  305.   end;
  306.  
  307.   result:='';
  308.  
  309.   rcl:=0;
  310.  
  311.   ral:=1;
  312.  
  313.   repeat
  314.  
  315.   rdl:=named[ral];
  316.  
  317.   rbl:=named[ral+1];
  318.  
  319.   rdl:= rdl shl 1;
  320.  
  321.   rdl:=rdl+rbl;
  322.  
  323.   rbl:=named[ral+2];
  324.  
  325.   rdl:= rdl shl 1;
  326.  
  327.   rdl:=rdl+rbl;
  328.  
  329.   rbl:=named[ral+3];
  330.  
  331.   rdl:= rdl shl 1;
  332.  
  333.   rdl:=rdl+rbl;
  334.  
  335.   rbl:=named[ral+4];
  336.  
  337.   rdl:= rdl shl 1;
  338.  
  339.   rdl:=rdl+rbl;
  340.  
  341.   rbl:=named[ral+5];
  342.  
  343.   rdl:= rdl shl 1;
  344.  
  345.   rdl:=rdl+rbl;
  346.  
  347.   ral:=ral+6;
  348.  
  349.   inc(rcl);
  350.  
  351.   result:=result+key[rdl+1];
  352.  
  353.   until rcl=$d;
  354.  
  355.  
  356.  
  357. {                 xor ecx, ecx
  358.  
  359.                   lea eax, [esp + 6C]
  360.  
  361.         :00404A59 mov dl, [eax]
  362.  
  363.                   mov bl , [eax+01]
  364.  
  365.                   shl dl, 1
  366.  
  367.                   add dl, bl
  368.  
  369.  
  370.  
  371.                   mov bl , [eax+02]
  372.  
  373.                   shl dl, 1
  374.  
  375.                   add dl, bl
  376.  
  377.  
  378.  
  379.                   mov bl , [eax+03]
  380.  
  381.                   shl dl, 1
  382.  
  383.                   add dl, bl
  384.  
  385.  
  386.  
  387.                   mov bl , [eax+04]
  388.  
  389.                   shl dl, 1
  390.  
  391.                   add dl, bl
  392.  
  393.  
  394.  
  395.                   mov bl , [eax+05]
  396.  
  397.                   shl dl, 1
  398.  
  399.                   add dl, bl
  400.  
  401.  
  402.  
  403.                   add eax, 00000006
  404.  
  405.                   mov [esp + ecx + 0C], dl
  406.  
  407.                   inc ecx
  408.  
  409.                   cmp ecx, 0000000D
  410.  
  411.                   jl 00404A59
  412.  
  413.  
  414.  
  415. }
  416.  
  417.  
  418.  
  419.  
  420.  
  421.  
  422.  
  423.  
  424.  
  425. {                  mov eax, [esp + 000000C8]
  426.  
  427.                   xor ecx, ecx
  428.  
  429.                   mov edx, eax
  430.  
  431.                   mov esi, 0000000D
  432.  
  433.                   mov [edx], ecx
  434.  
  435.         :00404A9D mov [edx+04], ecx
  436.  
  437.                   mov [edx+08], ecx
  438.  
  439.                   mov [edx+0C], cx
  440.  
  441.                   lea ecx, [esp + 0C]
  442.  
  443.                   sub ecx, eax
  444.  
  445.                   movsx byte ptr edx, [ecx + eax]
  446.  
  447.                   inc eax
  448.  
  449.                   dec esi
  450.  
  451.                   mov dl, [esp + edx + 28]
  452.  
  453.                   mov [eax-01], dl
  454.  
  455.                   jne 00404AAD
  456.  
  457.  
  458.  
  459.                   werwrwjlrk
  460.  
  461.    end;
  462.  
  463. }
  464.  
  465.   writeln;
  466.  
  467.   write(' ■ Registration code : ');
  468.  
  469.   writeln(result);
  470.  
  471.  
  472.  
  473.  
  474.  
  475. end;
  476.  
  477.  
  478.  
  479.  
  480.  
  481. {  end;}
  482.  
  483.  
  484.  
  485.  
  486.  
  487. Begin
  488.  
  489.   writeln('     Action Player v3.0 (c) Bo Yi-Lin    ');
  490.  
  491.   writeln('──────────────|  MiRaMaX  |──────────────');
  492.  
  493.   writeln('   ▄▄▄   ▄▄▄    ▄▄▄▄▄▄▄▄▄    ▄▄▄▄▄▄▄▄▄   ');
  494.  
  495.   writeln('   ███   ███    ███          ███▄▄▄      ');
  496.  
  497.   writeln('   ███▄  ███    ███▄         ███         ');
  498.  
  499.   writeln('   ▀▀▀▀▀▀▀▀▀    ▀▀▀▀▀▀▀▀▀    ▀▀▀         ');
  500.  
  501.   writeln('─────────────────────────────────────────');
  502.  
  503.   writeln(' u N I T E D  c R A C K I N G  f O R C E ');
  504.  
  505.   writeln('[kEYMAKER]─────────────────────[dEC 1997]');
  506.  
  507.   Output:=GenerateReg;
  508.  
  509. end.
  510.  
  511.