home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / ftpedit.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  848 b   |  32 lines
  1. Program ftpeditkeygenz ;
  2. uses crt ;
  3. var org,username : string ;
  4.  
  5. function getvalue(parameter : string) : longint ;
  6. var i,tampung : longint ;
  7. begin
  8.   tampung := $BC362 ;
  9.   for i:=1 to length(parameter) do
  10.   begin
  11.   tampung:=tampung*2 ;
  12.   tampung:=tampung+ord(parameter[i]) ;
  13.   end ;
  14.   getvalue:=abs(tampung) ;
  15. end ;
  16.  
  17. begin
  18. clrscr ;
  19. writeln ('Key Generator FTP Edit 2.20 by flag eRRatum\n') ;
  20. writeln ('Homepage at : http:\\all.at\ekh\n') ;
  21. writeln ('Enter User Name : ') ;
  22. readln(username) ;
  23. writeln('Enter Organization') ;
  24. readln(org) ;
  25. str(getvalue(username),username) ;
  26. str(getvalue(org),org) ;
  27. username:=username+org ;
  28. str(getvalue(username),username) ;
  29. write('Your Registration key is : ') ; textcolor(white) ; writeln(username) ;
  30. textcolor(lightred) ; writeln('Please visit our page for more cracks !!!') ;
  31. end.
  32.