ftpedit.pas

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

Program ftpeditkeygenz ;
uses crt ;
var org,username : string ;

function getvalue(parameter : string) : longint ;
var i,tampung : longint ;
begin
  tampung := $BC362 ;
  for i:=1 to length(parameter) do
  begin
  tampung:=tampung*2 ;
  tampung:=tampung+ord(parameter[i]) ;
  end ;
  getvalue:=abs(tampung) ;
end ;

begin
clrscr ;
writeln ('Key Generator FTP Edit 2.20 by flag eRRatum\n') ;
writeln ('Homepage at : http:\\all.at\ekh\n') ;
writeln ('Enter User Name : ') ;
readln(username) ;
writeln('Enter Organization') ;
readln(org) ;
str(getvalue(username),username) ;
str(getvalue(org),org) ;
username:=username+org ;
str(getvalue(username),username) ;
write('Your Registration key is : ') ; textcolor(white) ; writeln(username) ;
textcolor(lightred) ; writeln('Please visit our page for more cracks !!!') ;
end.