home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
TKGALORE.ZIP
/
TK-KONF1.ZIP
/
T-KONFIG.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-04-29
|
10KB
|
715 lines
;------------------------------------------------------------------------------
; .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 INTEGER001
Integer INTEGER002
Integer INTEGER003
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
String STRING028
String STRING029
String STRING030
String STRING031
String STRING032
String STRING033
String STRING034
String STRING035
String STRING036
String STRING037
String STRING038
String STRING039
String STRING040
String STRING041
String STRING042
String STRING043
String STRING044
String STRING045
String STRING046
String STRING047
String STRING048
String STRING049
String STRING050
String STRING051
String STRING052
String STRING053
String STRING054
String STRING055
String STRING056
String STRING057
String STRING058
String STRING059
String STRING060
String STRING061
String STRING062
String STRING063
String STRING064
String STRING065
String STRING066
String STRING067
String STRING068
String STRING069
String STRING070
String STRING071
String STRING072
String STRING073
String STRING074
String STRING075
String STRING076
String STRING077
;------------------------------------------------------------------------------
STRING055 = "1234567890~`'.·!@#$%^&*()_+ abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,-*+/\"
STRING056 = "1234567890=,-*+/\"
STRING067 = "alias"
STRING068 = "access lvl"
STRING069 = "password"
STRING070 = "city"
STRING071 = "data phone"
STRING072 = "voice phone"
STRING073 = "clear msg"
STRING074 = "scroll msg"
STRING075 = "long header"
STRING076 = "fs editor"
STRING077 = "v1.0"
If (Exist(PPEPath() + "T-KONFIG.CFG")) Goto LABEL001
PrintLn "@X0Ct-konfig.cfg @X04does not exist in the current directory"
PrintLn "this ppe can't proceed without this file please unzip"
PrintLn "one of the examples in EXAMPLE.ZIP or get a complete package"
End
:LABEL001
Print "@X0Fw@X07a@X08it "
FOpen 1, PPEPath() + "T-KONFIG.CFG", 0, 0
FGet 1, STRING050
FGet 1, STRING005
FGet 1, STRING006
Print "."
FGet 1, STRING008
FGet 1, STRING010
FGet 1, STRING012
FGet 1, STRING014
FGet 1, STRING016
FGet 1, STRING018
FGet 1, STRING020
FGet 1, STRING022
FGet 1, STRING024
FGet 1, STRING026
FGet 1, STRING028
FGet 1, STRING030
Print "."
FGet 1, STRING032
FGet 1, STRING034
FGet 1, STRING036
FGet 1, STRING038
FGet 1, STRING040
FGet 1, STRING042
FGet 1, STRING044
FGet 1, STRING046
FGet 1, STRING048
FGet 1, STRING049
FGet 1, STRING051
Print "."
FClose 1
Tokenize STRING006
STRING006 = GetToken()
STRING007 = GetToken()
Tokenize STRING008
STRING008 = GetToken()
STRING009 = GetToken()
Tokenize STRING010
STRING010 = GetToken()
STRING011 = GetToken()
Tokenize STRING012
STRING012 = GetToken()
STRING013 = GetToken()
Tokenize STRING014
STRING014 = GetToken()
STRING015 = GetToken()
Tokenize STRING016
STRING016 = GetToken()
STRING017 = GetToken()
Tokenize STRING018
STRING018 = GetToken()
STRING019 = GetToken()
Tokenize STRING020
STRING020 = GetToken()
STRING021 = GetToken()
Tokenize STRING022
STRING022 = GetToken()
STRING023 = GetToken()
Tokenize STRING024
STRING024 = GetToken()
STRING025 = GetToken()
Tokenize STRING026
STRING026 = GetToken()
STRING027 = GetToken()
Tokenize STRING028
STRING028 = GetToken()
STRING029 = GetToken()
Tokenize STRING030
STRING030 = GetToken()
STRING031 = GetToken()
Tokenize STRING032
STRING032 = GetToken()
STRING033 = GetToken()
Tokenize STRING034
STRING034 = GetToken()
STRING035 = GetToken()
Tokenize STRING036
STRING036 = GetToken()
STRING037 = GetToken()
Tokenize STRING038
STRING038 = GetToken()
STRING039 = GetToken()
Tokenize STRING040
STRING040 = GetToken()
STRING041 = GetToken()
Tokenize STRING042
STRING042 = GetToken()
STRING043 = GetToken()
Tokenize STRING044
STRING044 = GetToken()
STRING045 = GetToken()
Tokenize STRING046
STRING046 = GetToken()
STRING047 = GetToken()
STRING048 = Upper(STRING048)
STRING049 = Upper(STRING049)
STRING050 = Upper(STRING050)
STRING051 = Upper(STRING051)
GetUser
Print "."
If (STRING051 <> "YES") Goto LABEL002
If (CurSec() == SysopSec()) Then
Cls
PrintLn "@X0Csysop security recognised"
AnsiPos 1, 3
PrintLn "@X0Fu@X07s@X08er to edit:[ ]"
PrintLn "[@X07enter alone@X08]=to edit current record"
AnsiPos 15, 3
InputStr "_", STRING065, 14, 12, STRING055, 8 + 4096
If (STRING065 == "") Then
GetUser
Goto LABEL002
Endif
INTEGER003 = U_RecNum(Upper(STRING065))
GetAltUser INTEGER003
Endif
:LABEL002
DispFile PPEPath() + "T-KONFIG.PCB", 0
AnsiPos STRING006, STRING007
Print STRING050 + STRING067
AnsiPos STRING008, STRING009
Print STRING050 + STRING068
AnsiPos STRING010, STRING011
Print STRING050 + STRING069
AnsiPos STRING012, STRING013
Print STRING050 + STRING070
AnsiPos STRING014, STRING015
Print STRING050 + STRING071
AnsiPos STRING016, STRING017
Print STRING050 + STRING072
AnsiPos STRING018, STRING019
Print STRING050 + STRING073
AnsiPos STRING020, STRING021
Print STRING050 + STRING074
AnsiPos STRING022, STRING023
Print STRING050 + STRING075
AnsiPos STRING024, STRING025
Print STRING050 + STRING076
AnsiPos STRING026, STRING027
Print STRING050 + "" + U_Name()
AnsiPos STRING028, STRING029
STRING066 = U_Sec
Print STRING050 + STRING066
STRING057 = U_Pwd
AnsiPos STRING030, STRING031
If (STRING048 <> "YES") Print STRING050 + STRING057
If (STRING048 == "YES") Print STRING050 + "<not shown> "
STRING058 = U_City
AnsiPos STRING032, STRING033
Print STRING050 + STRING058
STRING059 = Upper(U_BDPhone)
INTEGER001 = U_BDPhone
AnsiPos STRING034, STRING035
Print STRING050 + STRING059
AnsiPos STRING036, STRING037
STRING060 = Upper(U_HVPhone)
INTEGER002 = U_HVPhone
PrintLn STRING050 + STRING060
AnsiPos STRING038, STRING039
STRING061 = U_Cls
If (U_Cls == "0") Then
PrintLn STRING050 + "NO"
Endif
If (U_Cls == "1") Then
PrintLn STRING050 + "YES"
Endif
AnsiPos STRING040, STRING041
STRING062 = U_Scroll
If (U_Scroll == "0") Then
PrintLn STRING050 + "NO"
Endif
If (U_Scroll == "1") Then
PrintLn STRING050 + "YES"
Endif
AnsiPos STRING042, STRING043
STRING063 = U_LongHDR
If (U_LongHDR == "0") Then
PrintLn STRING050 + "NO"
Endif
If (U_LongHDR == "1") Then
PrintLn STRING050 + "YES"
Endif
AnsiPos STRING044, STRING045
STRING064 = U_FSE
If (U_FSE == "0") Then
PrintLn STRING050 + "NO"
Endif
If (U_FSE == "1") Then
PrintLn STRING050 + "YES"
Endif
Goto LABEL006
:LABEL003
STRING052 = Inkey()
STRING053 = Upper(STRING052)
If (((STRING053 == "UP") || (STRING053 == "A")) || (STRING053 == "LEFT")) Goto LABEL005
If (((STRING053 == "DOWN") || (STRING053 == "Z")) || (STRING053 == "RIGHT")) Goto LABEL004
If (STRING053 == Chr(13)) Goto LABEL022
If ((STRING053 == Chr(27)) || (STRING053 == "Q")) Goto LABEL034
Goto LABEL003
:LABEL004
If (STRING054 == 1) Goto LABEL007
If (STRING054 == 2) Goto LABEL008
If (STRING054 == 3) Goto LABEL009
If (STRING054 == 4) Goto LABEL010
If (STRING054 == 5) Goto LABEL011
If (STRING054 == 6) Goto LABEL012
If (STRING054 == 7) Goto LABEL013
If (STRING054 == 8) Goto LABEL006
:LABEL005
If (STRING054 == 1) Goto LABEL021
If (STRING054 == 2) Goto LABEL014
If (STRING054 == 3) Goto LABEL015
If (STRING054 == 4) Goto LABEL016
If (STRING054 == 5) Goto LABEL017
If (STRING054 == 6) Goto LABEL018
If (STRING054 == 7) Goto LABEL019
If (STRING054 == 8) Goto LABEL020
:LABEL006
AnsiPos STRING024, STRING025
Print STRING050 + STRING076 + " "
AnsiPos STRING010, STRING011
If (STRING049 <> "YES") Print STRING005 + STRING069 + " "
If (STRING049 == "YES") Print STRING005 + Upper(STRING069) + " "
STRING054 = 1
Goto LABEL003
:LABEL007
AnsiPos STRING010, STRING011
Print STRING050 + STRING069 + " "
AnsiPos STRING012, STRING013
If (STRING049 <> "YES") Print STRING005 + STRING070 + " "
If (STRING049 == "YES") Print STRING005 + Upper(STRING070) + " "
STRING054 = 2
Goto LABEL003
:LABEL008
AnsiPos STRING012, STRING013
Print STRING050 + STRING070 + " "
AnsiPos STRING014, STRING015
If (STRING049 <> "YES") Print STRING005 + STRING071 + " "
If (STRING049 == "YES") Print STRING005 + Upper(STRING071) + " "
STRING054 = 3
Goto LABEL003
:LABEL009
AnsiPos STRING014, STRING015
Print STRING050 + STRING071 + " "
AnsiPos STRING016, STRING017
If (STRING049 <> "YES") Print STRING005 + STRING072 + " "
If (STRING049 == "YES") Print STRING005 + Upper(STRING072) + " "
STRING054 = 4
Goto LABEL003
:LABEL010
AnsiPos STRING016, STRING017
Print STRING050 + STRING072 + " "
AnsiPos STRING018, STRING019
If (STRING049 <> "YES") Print STRING005 + STRING073 + " "
If (STRING049 == "YES") Print STRING005 + Upper(STRING073) + " "
STRING054 = 5
Goto LABEL003
:LABEL011
AnsiPos STRING018, STRING019
Print STRING050 + STRING073 + " "
AnsiPos STRING020, STRING021
If (STRING049 <> "YES") Print STRING005 + STRING074 + " "
If (STRING049 == "YES") Print STRING005 + Upper(STRING074) + " "
STRING054 = 6
Goto LABEL003
:LABEL012
AnsiPos STRING020, STRING021
Print STRING050 + STRING074 + " "
AnsiPos STRING022, STRING023
If (STRING049 <> "YES") Print STRING005 + STRING075 + " "
If (STRING049 == "YES") Print STRING005 + Upper(STRING075) + " "
STRING054 = 7
Goto LABEL003
:LABEL013
AnsiPos STRING022, STRING023
Print STRING050 + STRING075 + " "
AnsiPos STRING024, STRING025
If (STRING049 <> "YES") Print STRING005 + STRING076 + " "
If (STRING049 == "YES") Print STRING005 + Upper(STRING076) + " "
STRING054 = 8
Goto LABEL003
:LABEL014
AnsiPos STRING012, STRING013
Print STRING050 + STRING070 + " "
AnsiPos STRING010, STRING011
If (STRING049 <> "YES") Print STRING005 + STRING069 + " "
If (STRING049 == "YES") Print STRING005 + Upper(STRING069) + " "
STRING054 = 1
Goto LABEL003
:LABEL015
AnsiPos STRING014, STRING015
Print STRING050 + STRING071 + " "
AnsiPos STRING012, STRING013
If (STRING049 <> "YES") Print STRING005 + STRING070 + " "
If (STRING049 == "YES") Print STRING005 + Upper(STRING070) + " "
STRING054 = 2
Goto LABEL003
:LABEL016
AnsiPos STRING016, STRING017
Print STRING050 + STRING072 + " "
AnsiPos STRING014, STRING015
If (STRING049 <> "YES") Print STRING005 + STRING071 + " "
If (STRING049 == "YES") Print STRING005 + Upper(STRING071) + " "
STRING054 = 3
Goto LABEL003
:LABEL017
AnsiPos STRING018, STRING019
Print STRING050 + STRING073 + " "
AnsiPos STRING016, STRING017
If (STRING049 <> "YES") Print STRING005 + STRING072 + " "
If (STRING049 == "YES") Print STRING005 + Upper(STRING072) + " "
STRING054 = 4
Goto LABEL003
:LABEL018
AnsiPos STRING020, STRING021
Print STRING050 + STRING074 + " "
AnsiPos STRING018, STRING019
If (STRING049 <> "YES") Print STRING005 + STRING073 + " "
If (STRING049 == "YES") Print STRING005 + Upper(STRING073) + " "
STRING054 = 5
Goto LABEL003
:LABEL019
AnsiPos STRING022, STRING023
Print STRING050 + STRING075 + " "
AnsiPos STRING020, STRING021
If (STRING049 <> "YES") Print STRING005 + STRING074 + " "
If (STRING049 == "YES") Print STRING005 + Upper(STRING074) + " "
STRING054 = 6
Goto LABEL003
:LABEL020
AnsiPos STRING024, STRING025
Print STRING050 + STRING076 + " "
AnsiPos STRING022, STRING023
If (STRING049 <> "YES") Print STRING005 + STRING075 + " "
If (STRING049 == "YES") Print STRING005 + Upper(STRING075) + " "
STRING054 = 7
Goto LABEL003
:LABEL021
AnsiPos STRING010, STRING011
Print STRING050 + STRING069 + " "
AnsiPos STRING024, STRING025
If (STRING049 <> "YES") Print STRING005 + STRING076 + " "
If (STRING049 == "YES") Print STRING005 + Upper(STRING076) + " "
STRING054 = 8
Goto LABEL003
:LABEL022
If (STRING054 == 1) Goto LABEL023
If (STRING054 == 2) Goto LABEL024
If (STRING054 == 3) Goto LABEL025
If (STRING054 == 4) Goto LABEL026
If (STRING054 == 5) Goto LABEL027
If (STRING054 == 6) Goto LABEL028
If (STRING054 == 7) Goto LABEL029
If (STRING054 == 8) Goto LABEL030
Goto LABEL003
:LABEL023
AnsiPos STRING030, STRING031
Print "@X08 "
AnsiPos STRING030, STRING031
If (STRING048 <> "YES") InputStr "_", U_Pwd, 31, 12, STRING055, 8 + 4096
If (STRING048 == "YES") InputStr "_", U_Pwd, 31, 12, STRING055, 8 + 4096
If (U_Pwd == "") Then
Goto LABEL003
Endif
AnsiPos STRING030, STRING031
If (STRING048 <> "YES") Print STRING050 + Upper(U_Pwd)
If (STRING048 == "YES") Print STRING050 + "<not shown> "
AnsiPos STRING030, STRING031
Goto LABEL003
:LABEL024
AnsiPos STRING032, STRING033
Print "@X08 "
AnsiPos STRING032, STRING033
InputStr "_", U_City, 14, 24, STRING055, 8 + 4096
If (U_City == "") Then
Goto LABEL003
Endif
AnsiPos STRING032, STRING033
Print STRING050 + Upper(U_City)
AnsiPos STRING032, STRING033
Goto LABEL003
:LABEL025
AnsiPos STRING034, STRING035
Print "@X08 "
AnsiPos STRING034, STRING035
InputStr "_", U_BDPhone, 14, 12, STRING056, 8 + 4096
If (U_BDPhone == "") Then
Goto LABEL003
Endif
AnsiPos STRING034, STRING035
Print STRING050 + Upper(U_BDPhone)
AnsiPos STRING034, STRING035
Goto LABEL003
:LABEL026
AnsiPos STRING036, STRING037
Print "@X08 "
AnsiPos STRING036, STRING037
InputStr "_", U_HVPhone, 14, 12, STRING056, 8 + 4096
If (U_HVPhone == "") Then
Goto LABEL003
Endif
AnsiPos STRING036, STRING037
Print STRING050 + Upper(U_HVPhone)
AnsiPos STRING036, STRING037
Goto LABEL003
:LABEL027
If (U_Cls == "0") Then
AnsiPos STRING038, STRING039
Print STRING050 + "YES"
AnsiPos STRING038, STRING039
U_Cls = "1"
Goto LABEL003
Endif
If (U_Cls == "1") Then
AnsiPos STRING038, STRING039
Print STRING050 + "NO "
AnsiPos STRING038, STRING039
U_Cls = "0"
Goto LABEL003
Endif
:LABEL028
If (U_Scroll == "0") Then
AnsiPos STRING040, STRING041
Print STRING050 + "YES"
AnsiPos STRING040, STRING041
U_Scroll = "1"
Goto LABEL003
Endif
If (U_Scroll == "1") Then
AnsiPos STRING040, STRING041
Print STRING050 + "NO "
AnsiPos STRING040, STRING041
U_Scroll = "0"
Goto LABEL003
Endif
:LABEL029
If (U_LongHDR == "0") Then
AnsiPos STRING042, STRING043
Print STRING050 + "YES"
AnsiPos STRING042, STRING043
U_LongHDR = "1"
Goto LABEL003
Endif
If (U_LongHDR == "1") Then
AnsiPos STRING042, STRING043
Print STRING050 + "NO "
AnsiPos STRING042, STRING043
U_LongHDR = "0"
Goto LABEL003
Endif
:LABEL030
If (U_FSE == "0") Then
AnsiPos STRING044, STRING045
Print STRING050 + "YES"
AnsiPos STRING044, STRING045
U_FSE = "1"
Goto LABEL003
Endif
If (U_FSE == "1") Then
AnsiPos STRING044, STRING045
Print STRING050 + "NO "
AnsiPos STRING044, STRING045
U_FSE = "0"
Goto LABEL003
Endif
:LABEL031
STRING052 = Inkey()
STRING053 = Upper(STRING052)
If ((STRING053 == "A") || (STRING053 == "LEFT")) Goto LABEL032
If (((STRING053 == "RIGHT") || (STRING053 == " ")) || (STRING053 == "Z")) Goto LABEL033
If (STRING053 == Chr(13)) Goto LABEL036
If (STRING053 == Chr(27)) End
If (STRING053 == "Y") Goto LABEL036
If (STRING053 == "N") Goto LABEL037
Goto LABEL031
:LABEL032
If (STRING054 == 1) Goto LABEL035
If (STRING054 == 2) Goto LABEL034
:LABEL033
If (STRING054 == 1) Goto LABEL035
If (STRING054 == 2) Goto LABEL034
:LABEL034
If (((((((((STRING057 == U_Pwd) && (STRING058 == U_City)) && (INTEGER001 == U_BDPhone)) && (INTEGER002 == U_HVPhone)) && (STRING061 == U_Cls)) && (STRING062 == U_Scroll)) && (STRING063 == U_LongHDR)) && (STRING064 == U_FSE)) && (STRING066 == U_Sec)) Goto LABEL037
AnsiPos STRING046, STRING047
Print STRING050 + "save changes " + STRING005 + " YES " + STRING050 + " No "
STRING054 = 1
Goto LABEL031
:LABEL035
AnsiPos STRING046, STRING047
Print STRING050 + "save changes " + " Yes " + STRING005 + " NO "
STRING054 = 2
Goto LABEL031
:LABEL036
If (STRING054 == 1) Then
PutUser
Else
If (STRING054 == 2) Goto LABEL037
End
Endif
:LABEL037
Print "@X0F@@CLS@"
AnsiPos 25, 10
Print "@X08toxic user konfig " + STRING077 + " by raptor"
Delay 3
AnsiPos 25, 10
Print "@X07toxic user konfig " + STRING077 + " by raptor"
Delay 3
AnsiPos 25, 10
Print "@X0Ftoxic user konfig " + STRING077 + " by raptor"
Delay 3
Cls
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 4 End
; 2 Cls
; 104 Goto
; 101 Let
; 92 Print
; 15 PrintLn
; 103 If
; 1 DispFile
; 1 FOpen
; 1 FClose
; 26 FGet
; 2 GetUser
; 1 PutUser
; 6 InputStr
; 3 Delay
; 21 Tokenize
; 91 AnsiPos
; 1 GetAltUser
;
;
; ■ Functions used :
;
; 159 +
; 98 ==
; 20 <>
; 23 !
; 8 &&
; 8 ||
; 29 Upper()
; 4 Chr()
; 1 U_Name()
; 2 Inkey()
; 3 PPEPath()
; 1 SysopSec()
; 1 CurSec()
; 42 GetToken()
; 1 Exist()
; 1 U_RecNum()
;
;------------------------------------------------------------------------------
;
; Analysis flags : WRHs
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
; R - Read user ■ 5
; User records are read, this may signify that someone wants to get
; various informations about a user (for example his password), but
; this may also be normal for a program accessing user records (for
; example a User Editor)
; ■ Search for : GETALTUSER
;
; H - Read Password or Password History ■ 5
; Program is reading the user's password or last password history
; This may be ok for a password manager, but it is very suspect. Check!
; ■ Search for : U_PWDHIST, U_PWD
;
; s - Sysop level access ■ 5
; Program is reading the sysop access level, this may be normal
; but still it is very suspect. It is the best way to give a user
; all priviledges. Check!
; ■ Search for : SYSOPSEC()
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 23 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------