home *** CD-ROM | disk | FTP | other *** search
/ Hacks & Cracks / Hacks_and_Cracks.iso / vol1 / ne-code0.zip / NE-CODE.PPS < prev   
Text File  |  1995-12-03  |  1KB  |  37 lines
  1. ;      ---- yO aS yOU cAN sEE iT iS vERY sIMPLE tO cREATE a cODE ;) ----
  2.  
  3. Declare Procedure ShowCode(Integer Start, Integer Steps)
  4.     
  5. Begin    
  6.   Cls
  7.   PrintLn "@X0B@POS:25@nE0N ^ pRESENTS pWA cODEMAKER 1.oo"
  8.   PrintLn "@X08-------------------------------------------------------------------------------"
  9.   PrintLn "@X07  tHERE aRE sERVAL cODE pOSSIBILITIES! tRY&eRROR ;)"
  10.   Print "@X07     cODE #01 -=> @X0F"
  11.   ShowCode(500,3)
  12.   Print "@X07     cODE #02 -=> @X0F"
  13.   ShowCode(300,2)
  14.   Print "@X07     cODE #03 -=> @X0F"
  15.   ShowCode(100,1)
  16.   Print "@X07     cODE #04 -=> @X0F"
  17.   PrintLN Len(Lower(ReadLine(PCBDat(),2)))*153+Len(Lower(ReadLine(PCBDat(),94)))+(719*Len(ReadLine(PCBDat(),94)))*367
  18.   PrintLn "@X08-------------------------------------------------------------------------------"
  19.   PrintLn "@X08 tHiS sN gENERATOR iS sPECiFiC fOR tHiZ bOARD rESTART iF yA cHANGE bOARD nAME!"
  20.   PrintLn "@X03@POS:24@pATCH dONE bY mIGHTY j!^nE0N iN 1995"
  21. End
  22.  
  23. Procedure ShowCode(Integer Start, Integer Steps)
  24.  Integer Code
  25.  Integer Count
  26.  String  Info
  27.  
  28.  Begin
  29.    Code=Start
  30.    Info=Lower(ReadLine(PCBDat(),2))+Lower(ReadLine(PCBDat(),94))
  31.    For Count=1 to Len(Info) Step Steps
  32.      Code=Left(Code*Asc(Mid(Info,Count,1)),6)
  33.    Next
  34.    PrintLn Code
  35.  EndProc
  36.  
  37.