Program keygen ;
uses crt ;
var
 temp1, temp2, char1, char10, temp3, temp4, char9, char11, char8, char12, temp7, temp5, temp6, fixed : string ;
 tempo1, tempo2, i, tempo3, tempo4, tempo5, tempo6, tempo7, tempo8, tempo9, tempo10, tempo11 : longint ;
 e, random1, random2 : integer ;
 tempfile : text ;

Begin
 clrscr ;
 Writeln('++++++++++++++++++++++++++++++++++++++++++++++++++') ;
 Writeln('+ KeyGen/Brute-Forcer for Auto-IP Publisher 2.32 +') ;
 Writeln('+ by ManKind                                     +') ;
 Writeln('+ Service for Mankind                            +') ;
 Writeln('+ mankind001@bigfoot.com                         +') ;
 Writeln('++++++++++++++++++++++++++++++++++++++++++++++++++') ;
 assign(tempfile, 'serials.txt') ;
 rewrite(tempfile) ;
 close(tempfile) ;
 Writeln('Please be patient. Saving serials...') ;
 for i := 1 to 150 do
  begin
   randomize ;
   tempo1 := 1000+random(9999-1000);
   tempo1 := tempo1 * 98 ;
   Str(tempo1, temp1) ;
   temp2 := Chr(Ord(temp1[6])) + Chr(Ord(temp1[3])) ;
   Val(temp2, tempo2, e) ;
   char1 := Chr(tempo2+6) ;
   temp3 := Chr(Ord(temp1[2])) + Chr(Ord(temp1[1])) ;
   Val(temp3, tempo3, e) ;
   char10 := Chr(tempo3+64) ;
   Val(temp1[1], tempo5, e) ;
   Val(temp1[2], tempo6, e) ;
   Val(temp1[3], tempo7, e) ;
   Val(temp1[4], tempo8, e) ;
   Val(temp1[5], tempo9, e) ;
   Val(temp1[6], tempo10, e) ;
   tempo4 := tempo5 + tempo6 + tempo7 + tempo8 + tempo9 + tempo10 ;
   Str(tempo4, temp5) ;
   char9 := Chr(Ord(temp5[1])) ;
   char12 := Chr(Ord(temp5[2])) ;
   fixed := 'qOH0Uwke8ZNC61nGM4tS5BAmRLlopr9abcWPJKxy7FIhguvTDLXjsXY2V3dfizQ' ;
   random1 := random(63) + 1 ;
   random2 := random(63) + 1 ;
   char8 := Chr(Ord(fixed[random1])) ;
   randomize ;
   delay(150) ;
   char11 := Chr(Ord(fixed[random2]))  ;
   temp7 := char1 + temp1 + char8 + char9 + char10 + char11 + char12 ;
   tempo11 := Ord(temp7[1]) ;
   If (Length(temp7) = 12) then
     If (tempo11 > 59) and (tempo11 < 91) then
      begin
       append(tempfile) ;
       writeln(tempfile, temp7) ;
       close(tempfile) ;
       delay(150) ;
      end;
  end ;
 Writeln('All serials have been saved to serials.txt file. Press enter to exit to system') ;
 readln ;
end.