scanfax.pas

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

Program ScanFax ;
uses crt ;
var user : string ;
    i,key : integer ;
const table : string = '"TEMPDVRwertyLAZ QU345ICKBROWasdfghjkl;''zxcvbnm,67890-=quiop[]./!@#$%^&NFHJYG12*()_+?' ;

begin
  clrscr ;
  writeln('ScanFax 3.xx KeyGenerator by flag eRRatum') ;
  writeln('Visit our Homepage at : http://all.at/ekh') ;
  write('Enter your Computer Name : ') ;
  readln(user) ;
  if length(user) < 6 then
    begin
    writeln('Sorry but your Computer Name should more than 5 char !') ;
    exit
    end ;

  write('This is Your Registration Key : ') ; textcolor(White) ;

  for i:=1 to length(user) do
    begin
    if (upcase(user[i])<'A') or (upcase(user[i])>'Z') then
      if user[i]<>'-' then if (user[i]<'0') or (user[i]>'9') then user[i]:='-' ;
    end ;

  for i:=1 to length(user) do
    if (ord(user[i])<91) and (ord(user[i])>64) then
      user[i]:=chr(ord(user[i])+32) ;

  for i:=1 to 6 do
    begin
  key:=pos(User[i],table)-1 ;
  if key<10 then write('0',key) else
  write(key) ;
    end ;

  writeln ;
  textcolor(lightred) ;
  writeln('Thanx for using this KeyGenerator, visit our page for more !') ;
end.