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