home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
COD-H10.ZIP
/
COD-H10.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-03-31
|
6KB
|
383 lines
ProcedureDDatePROCEDURE000
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER012
String STRING003
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String TSTRING012(2)
String STRING013
String STRING014
String STRING015
Declare Function FUNCTION001(String STRING001, Integer INTEGER001, Integer INTEGER002, Integer INTEGER003, String STRING002) String
Declare Procedure PROC001(String STRING020)
Declare Procedure PROC002(String STRING016, String STRING017, String STRING018, String STRING019, Integer INTEGER011)
Declare Procedure PROC003()
Declare Procedure PROC004()
;------------------------------------------------------------------------------
Goto LABEL003
End
;------------------------------------------------------------------------------
Function FUNCTION001(String STRING001, Integer INTEGER001, Integer INTEGER002, Integer INTEGER003, String STRING002) String
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
String STRING004
String STRING005
String STRING006
ProcedureDDatePROCEDURE001
INTEGER005 = GetX()
INTEGER006 = GetY()
STRING005 = StripAtx(STRING002)
STRING006 = STRING002
For INTEGER004 = 2 To INTEGER001
STRING006 = STRING006 + STRING005
Next
DefColor
Print STRING001
:LABEL001
STRING004 = Inkey()
If ((((((((((STRING004 == "DEL") || (STRING004 == "HOME")) || (STRING004 == "END")) || (STRING004 == "RIGHT")) || (STRING004 == "LEFT")) || (STRING004 == "UP")) || (STRING004 == "DOWN")) || (STRING004 == "INS")) || (STRING004 == "PGUP")) || (STRING004 == "PGDN")) Goto LABEL001
Select Case (Asc(STRING004))
Case 27
If (Len(STRING001) == 0) Goto LABEL002
AnsiPos INTEGER005, INTEGER006
Print STRING006
Backup INTEGER001
STRING001 = ""
Case 13
Goto LABEL002
Case 8
If (Mid(STRING001, Len(STRING001) - 4, 2) == "@X") STRING001 = Left(STRING001, Len(STRING001) - 4)
If (Len(STRING001) == 0) Goto LABEL001
STRING001 = Left(STRING001, Len(STRING001) - 1)
Backup 1
Print STRING002
Backup 1
Case Else
If (((Asc(STRING004) < INTEGER002) || (Asc(STRING004) > INTEGER003)) || (Len(StripAtx(STRING001)) == INTEGER001)) Goto LABEL001
AnsiPos INTEGER005 + Len(StripAtx(STRING001)), INTEGER006
DefColor
Print STRING004
STRING001 = STRING001 + STRING004
AnsiPos INTEGER005 + Len(StripAtx(STRING001)), INTEGER006
End Select
Goto LABEL001
:LABEL002
FUNCTION001 = STRING001
EndFunc
STRING007 = "--[PSYCH0's Hypnotiser v1.0]-[COD96]--"
STRING007 = " "
STRING007 = " Please give us creditz if you use/ "
STRING007 = " learn stuff from our ppe's. pS "
STRING007 = " "
STRING007 = "--[the triloxy coding sub-division]--"
STRING007 = "--------------------- ░ - ░ ----------"
STRING007 = " ▄▄█▓▄ ░ ▄▓█▄▄▒ "
STRING007 = " ▄██████▄▓▄▄▀████▓▄ "
STRING007 = " cd!▓▀▓ ▀█▓█ ▀███▄▀▓ ▀▓ "
STRING007 = "------- ▓ -- ▓ ▀ --▐████ --- █ -------"
STRING007 = "░░░░░░░ █ ░░ ▀ ▄ ░ ▄██▓█ ░░░ ▓ ░░░░░░░"
STRING007 = "-------- █▄--▄██▓ █████▀▄--▄█ --------"
STRING007 = " ░ ▓▀▓█████ ▓█▓▀▄████▀▓ "
STRING007 = " ░ ▀▀█▓▀ ░ ▀▓█▀▀ ░ "
STRING007 = "--------- Coders On Dope! ----------"
:LABEL003
STRING007 = PPEPath() + PPEName() + ".dat"
If (TokCount()) Then
PROC004()
Else
PROC003()
Endif
Cls
End
;------------------------------------------------------------------------------
Procedure PROC004()
String STRING008
String STRING009
String STRING010
Integer INTEGER007
Integer INTEGER008
INTEGER007 = 0
:LABEL004
Print "@CLS@@POFF@"
DispFile PPEPath() + PPEName() + ".pcb", 1
For INTEGER008 = 0 To 2
AnsiPos 25, 18 + INTEGER008
PROC001("@X03" + ScrText(25, 18 + INTEGER008, 26, 0) + "@X0B]")
Next
AnsiPos 25, 18 + INTEGER007
PROC001("@X3B" + ScrText(25, 18 + INTEGER007, 26, 0) + "@X0B]")
:LABEL005
STRING008 = Upper(Inkey())
Select Case (STRING008)
Case Chr(27), "Q", "X"
Goto LABEL010
Case "UP", "LEFT", "8"
Goto LABEL006
Case "DOWN", "RIGHT", "2", Chr(32)
Goto LABEL007
Case Chr(13)
Goto LABEL008
Case Else
Goto LABEL005
End Select
:LABEL006
AnsiPos 25, 18 + INTEGER007
PROC001("@X03" + ScrText(25, 18 + INTEGER007, 26, 0) + "@X0B]")
Dec INTEGER007
If (INTEGER007 < 0) INTEGER007 = 2
AnsiPos 25, 18 + INTEGER007
PROC001("@X3B" + ScrText(25, 18 + INTEGER007, 26, 0) + "@X0B]")
Goto LABEL005
:LABEL007
AnsiPos 25, 18 + INTEGER007
PROC001("@X03" + ScrText(25, 18 + INTEGER007, 26, 0) + "@X0B]")
Inc INTEGER007
If (INTEGER007 > 2) INTEGER007 = 0
AnsiPos 25, 18 + INTEGER007
PROC001("@X3B" + ScrText(25, 18 + INTEGER007, 26, 0) + "@X0B]")
Goto LABEL005
:LABEL008
Select Case (INTEGER007)
Case 0
AnsiPos 24, 21
Print "@X0B[@X03··························@X0B]"
Backup 27
STRING009 = FUNCTION001("", 26, 32, 126, "@X03·")
If (STRING009 <> "") Then
FAppend 1, STRING007, 2, 3
FPutLn 1, StripAtx(STRING009)
Frewind 1
FGet 1, STRING010
INTEGER008 = S2I(STRING010, 10)
FClose 1
Inc INTEGER008
FOpen 1, STRING007, 1, 1
FPut 1, Left(INTEGER008, 5)
FClose 1
FAppend 1, PPEPath() + PPEName() + ".log", 1, 2
FPutLn 1, "@X08[", "@X09", U_Name(), "@X08] Added this string on ", "@X09", Date(), "@X08 at ", "@X09", Time(), "@X08:"
FPutLn 1, "@X08[", "@X09", StripAtx(STRING009), "@X08]"
FPutLn 1, "@X08-------------------------------------------------------------------------------"
FClose 1
Endif
Case 1
Print "@CLS@@PON@@X03"
FOpen 1, STRING007, 0, 2
FGet 1, STRING010
:LABEL009
FGet 1, STRING010
If (STRING010 <> "") Then
PrintLn Space((79 - Len(STRING010)) / 2), STRING010
Goto LABEL009
Endif
FClose 1
Wait
Case 2
Print "@CLS@@POFF@"
DispFile PPEPath() + "cod-info.pcb", 1
Wait
End Select
Goto LABEL004
:LABEL010
EndProc
;------------------------------------------------------------------------------
Procedure PROC003()
String STRING011
String TSTRING012(2)
String STRING013
String STRING014
String STRING015
Integer INTEGER009
Integer INTEGER010
FOpen 1, PPEPath() + PPEName() + ".cfg", 0, 2
FGet 1, STRING013
FGet 1, STRING011
Tokenize STRING011
INTEGER009 = GetToken()
INTEGER010 = GetToken()
FGet 1, STRING011
Tokenize STRING011
TSTRING012(0) = GetToken()
TSTRING012(1) = GetToken()
TSTRING012(2) = GetToken()
FGet 1, STRING014
FClose 1
STRING015 = ReplaceStr(ReadLine(STRING007, Random(150) % (ReadLine(STRING007, 1) - 1) + 2), "@USER@", Lower(U_Name()))
Cls
PROC002(STRING015, TSTRING012(0), TSTRING012(1), TSTRING012(2), INTEGER010)
Color 7
EndProc
;------------------------------------------------------------------------------
Procedure PROC002(String STRING016, String STRING017, String STRING018, String STRING019, Integer INTEGER011)
Integer INTEGER012
INTEGER012 = Len(StripAtx(STRING016))
AnsiPos (79 - INTEGER012) / 2, INTEGER011
PROC001(STRING017 + STRING016)
Delay 1
Backup INTEGER012
PROC001(STRING018 + STRING016)
Delay 1
Backup INTEGER012
PROC001(STRING019 + STRING016)
Delay 2
Backup INTEGER012
PROC001(STRING017 + STRING016)
Delay 1
Backup INTEGER012
PROC001(Space(INTEGER012))
Delay 1
EndProc
;------------------------------------------------------------------------------
Procedure PROC001(String STRING020)
Print STRING020, "@X80 "
Backup 1
EndProc
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 2 Cls
; 2 Wait
; 1 Color
; 43 Goto
; 45 Let
; 9 Print
; 1 PrintLn
; 22 If
; 2 DispFile
; 3 FOpen
; 2 FAppend
; 5 FClose
; 7 FGet
; 1 FPut
; 4 FPutLn
; 2 DefColor
; 5 Delay
; 2 Inc
; 1 Dec
; 2 Tokenize
; 11 AnsiPos
; 9 Backup
; 1 Frewind
; 4 EndProc
; 1 EndFunc
;
;
; ■ Functions used :
;
; 2 /
; 1 %
; 44 +
; 6 -
; 31 ==
; 2 <>
; 4 <
; 2 <=
; 2 >
; 4 >=
; 15 !
; 4 &&
; 20 ||
; 10 Len(
; 1 Lower()
; 1 Upper()
; 1 Mid()
; 3 Left()
; 2 Space()
; 3 Chr()
; 5 Asc()
; 1 Random()
; 1 Date()
; 1 Time()
; 2 U_Name()
; 7 StripAtx()
; 2 Inkey()
; 5 PPEPath()
; 2 ReadLine()
; 5 GetToken()
; 1 S2I()
; 1 GetX()
; 1 GetY()
; 4 PPEName()
; 1 TokCount()
; 6 ScrText()
; 1 ReplaceStr()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 2 For/Next
; 0 While/EndWhile
; 3 If/Then or If/Then/Else
; 3 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------