home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Quantico / km / ezpix.pas.txt < prev    next >
Encoding:
Text File  |  2000-05-25  |  1.3 KB  |  45 lines
  1. Program keygeneratorezpix ;
  2. uses crt ;
  3. var serialnumber,last : string ;
  4.     i,sn,panjang : integer ;
  5.  
  6. function getvalue(un : string) : integer ;
  7. var j,serial : integer ;
  8. begin
  9.   serial:=0 ;
  10.   for j:=1 to length(un) do
  11.     serial:=serial + (ord(un[j]) * (j+3)) ;
  12.   getvalue:=serial ;
  13. end ;
  14.  
  15. begin
  16.   clrscr ;
  17.   writeln('Key-Generator Ez-Pix 1.1') ;
  18.   writeln('Visit our page at http://all.at/ekh') ;
  19.   writeln('Type your username, remember they must be :') ;
  20.   textcolor(lightred) ;
  21.   writeln('* At least 2 char, and all in lowercase !!! * ') ;
  22.   normvideo ;
  23.   writeln('Enter now : ') ;
  24.   readln(serialnumber) ;
  25.   for i:=1 to length(serialnumber) do
  26.     begin
  27.     if (ord(serialnumber[i])<97) and (ord(serialnumber[i])>65) then
  28.       begin
  29.         writeln('I told you to enter all in lowercase !!!') ;
  30.         halt ;
  31.       end ;
  32.     end ;
  33.   if length(serialnumber) < 2 then halt ;
  34.   panjang:=length(serialnumber) - 1 ;
  35.   last:=upcase(serialnumber[panjang]) ;
  36.   serialnumber:='N'+serialnumber+'1972' ;
  37.   sn:=getvalue(serialnumber) ;
  38.   sn:=((sn div 3) + 1710) mod 1000000 ;
  39.   str(sn,serialnumber) ;
  40.   serialnumber:='EZP1  '+serialnumber ;
  41.   sn:=getvalue(serialnumber) ;
  42.   sn:=(sn div 7) mod 100 ;
  43.   serialnumber[5] := '9' ; serialnumber[6] := '9' ;
  44.   writeln('Your registration key is : ',serialnumber,sn,panjang,last) ;
  45. end.