home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Texty / crackme / 2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-01-05  |  1015 b   |  67 lines
  1. {
  2. Xorbyte: 7C 52
  3. Dec    : 114 82
  4. Sym    : R |
  5. }
  6.  
  7. var a: array[1..$c] of word;
  8. tmp:word;
  9. xorbyte:word;
  10. i,j:byte;
  11. c1,c2:byte;
  12. filein:file of byte;
  13. ttt:byte;
  14. begin
  15. assign(filein,'123');
  16. rewrite(filein);
  17.  
  18. {array of crypted bytes}
  19.   a[1] :=$6f84;
  20.   a[2] :=$5f83;
  21.   a[3] :=$587b;
  22.   a[4] :=$5282;
  23.   a[5] :=$3d38;
  24.   a[6] :=$3712;
  25.   a[7] :=$5f5d;
  26.   a[8] :=$587b;
  27.   a[9] :=$7658;
  28.   a[$a]:=$2cfd;
  29.   a[$b]:=$d8c9;
  30.   a[$c]:=$9245;
  31.  
  32.  
  33.   for j:=1 to $ff do
  34.   begin
  35.     asm
  36.       mov bh,j
  37.       mov bl,$7c
  38.       mov [xorbyte],bx
  39.     end;
  40.  
  41.     for i:=1 to $c do
  42.     begin
  43.       tmp:=a[i] xor xorbyte;
  44.       asm
  45.         mov bx,[tmp]
  46.         mov [c1],bl
  47.         mov [c2],bh
  48.       end;
  49.  
  50. if i=5 then
  51. begin
  52.   if chr(c1)='D' then
  53.   begin
  54.     if chr(c2)='o' then write('■ XorByte= ',xorbyte,' decimal');
  55.   end;
  56. end;
  57.  
  58.       write(filein,c1);
  59.       write(filein,c2);
  60.     end;
  61.     ttt:=$d;
  62.     write(filein,ttt);
  63.     ttt:=$a;
  64.     write(filein,ttt);
  65.   end;
  66.   close(filein);
  67. end.