home *** CD-ROM | disk | FTP | other *** search
/ KeyGen Studio 2002 / KeyGen_Studio_2002.iso / Tutorials / CrackMesCbjNet / nh-khcm1.ZIP / nh-khcm1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-04-22  |  935 b   |  36 lines
  1. var s:Array [1..40] of Byte;
  2.     a:String;
  3.     i,l:Integer;
  4.     fa,f8,f0,ee,e6,e4,dc:Integer;
  5. begin
  6.  write(#13#10#13#10'KhaNeTe''s Crackme #1 keygen by nh'#13#10' Name : ');
  7.  readln(a); write(' Key  : ');
  8.  l:=length(a);
  9.  for i:=1 to l do s[i]:=ord(a[i]);
  10.  f8:=s[l]-4  +s[l-4]-s[l-2];
  11.  ee:=s[1]+2  +s[l-1]-s[l-2];
  12.  e6:=s[l-1]*2-s[l-2]+ee;
  13.  dc:=((s[l-1]-1) div 6)+s[1]*2+5;
  14.  e4:=(dc+3) div 6;
  15.  fa:=f8+s[l-2]-s[1];
  16.  for i:=1 to 10 do begin
  17.  if fa>$7a then fa:=fa div 2;
  18.  if f8>$7a then f8:=f8 div 2;
  19.  if ee>$7a then ee:=ee div 2;
  20.  if e6>$7a then e6:=e6 div 2;
  21.  if e4>$7a then e4:=e4 div 2;
  22.  if dc>$7a then dc:=dc div 2;
  23.  if fa<$41 then inc(fa,3);
  24.  if f8<$41 then inc(f8,2);
  25.  if ee<$41 then inc(ee,7);
  26.  if e6<$41 then inc(e6,6);
  27.  if e4<$41 then inc(e4,1);
  28.  if dc<$41 then inc(dc,$f);
  29.  end;
  30.  write(chr(fa)+'-');
  31.  write(chr(dc));
  32.  write(chr(e4));
  33.  write(chr(e6)+'-');
  34.  write(chr(f8));
  35.  write(chr(ee));
  36. end.