home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
AGS_WUI.ZIP
/
AGS_WUI.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-04-09
|
11KB
|
690 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
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
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 TSTRING019(8)
String TSTRING020(27,5)
String TSTRING021(27,5)
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
;------------------------------------------------------------------------------
GetUser
TSTRING019(1) = "w"
TSTRING019(2) = "a"
TSTRING019(3) = "t"
TSTRING019(4) = "c"
TSTRING019(5) = "h"
TSTRING019(6) = "i"
TSTRING019(7) = "n"
TSTRING019(8) = "g"
TSTRING020(1, 1) = " Password "
TSTRING020(1, 3) = "CiTy/Group"
TSTRING020(1, 5) = " Verific. "
TSTRING020(14, 1) = "Data-Phone"
TSTRING020(14, 3) = "Home-Phone"
TSTRING020(14, 5) = "Full Edit."
TSTRING020(27, 1) = "Scrl Mess."
TSTRING020(27, 3) = "Long Headr"
TSTRING020(27, 5) = "Clr Eo Mes"
TSTRING021(1, 1) = U_Pwd
TSTRING021(1, 3) = U_City
TSTRING021(1, 5) = U_Ver
TSTRING021(14, 1) = U_BDPhone
TSTRING021(14, 3) = U_HVPhone
TSTRING021(14, 5) = U_FSE
TSTRING021(27, 1) = U_Scroll
TSTRING021(27, 3) = U_LongHDR
TSTRING021(27, 5) = U_Cls
STRING008 = "watching"
INTEGER004 = Len(STRING008)
INTEGER006 = 1
INTEGER011 = 1
INTEGER012 = 1
FOpen 1, PPEPath() + "ags_wui.cfg", 2, 1
FGet 1, STRING013
FGet 1, STRING015
FGet 1, STRING016
FGet 1, STRING014
FGet 1, STRING018
FGet 1, STRING017
FGet 1, STRING027
FGet 1, STRING006
FClose 1
DispFile PPEPath() + "ags_wui.pcb", 1
AnsiPos 22, 3
DispStr STRING017 + " PASSWORD @X08"
AnsiPos (80 - Len(Trim(U_Pwd, " "))) / 2, 11
Print "@X0F" + Upper(U_Pwd)
:LABEL001
AnsiPos 65, 6
Print " @X08watching"
If (Upper(STRING013) == "NORMAL") Goto LABEL002
If (Upper(STRING013) == "ANIMATED") Goto LABEL004
If ((Upper(STRING013) <> "ANIMATED") && (Upper(STRING013) <> "NORMAL")) Goto LABEL003
:LABEL002
AnsiPos 66, 6
DispStr STRING014 + "Watching"
Goto LABEL004
:LABEL003
Cls
AnsiPos 1, 12
PrintLn " @X08 aEgiS WriTe usEr iNFo"
PrintLn "@X0CHeY, DuDe...iT Looks like there is an error in the config file..."
PrintLn "@X0CSo, RepoRt ThiS To YouR SySoP aND asK HiM To TaKe a LooK aT iT..."
AnsiPos 1, 19
Wait
End
:LABEL004
If (U_FSE == 0) TSTRING021(14, 5) = "NO "
If (U_FSE == 1) TSTRING021(14, 5) = "YES"
If (U_Scroll == 0) TSTRING021(27, 1) = "NO "
If (U_Scroll == 1) TSTRING021(27, 1) = "YES"
If (U_LongHDR == 0) TSTRING021(27, 3) = "NO "
If (U_LongHDR == 1) TSTRING021(27, 3) = "YES"
If (U_Cls == 0) TSTRING021(27, 5) = "NO "
If (U_Cls == 1) TSTRING021(27, 5) = "YES"
:LABEL005
STRING007 = Inkey()
If (STRING007 == Chr(27)) Goto LABEL047
If ((STRING007 == "UP") && (INTEGER012 > 1)) Gosub LABEL007
If ((STRING007 == "DOWN") && (INTEGER012 < 5)) Gosub LABEL010
If ((STRING007 == "LEFT") && (INTEGER011 > 1)) Gosub LABEL013
If ((STRING007 == "RIGHT") && (INTEGER011 < 27)) Gosub LABEL016
If (STRING007 == Chr(13)) Goto LABEL019
If (Upper(STRING013) <> "ANIMATED") Goto LABEL005
:LABEL006
INTEGER002 = Random(INTEGER004)
If (INTEGER002 == 0) Goto LABEL006
AnsiPos 65 + INTEGER002, 6
DispStr STRING015 + Upper(TSTRING019(INTEGER002))
Delay 4
AnsiPos 65 + INTEGER002, 6
DispStr STRING016 + Lower(TSTRING019(INTEGER002))
Goto LABEL005
:LABEL007
INTEGER012 = INTEGER012 - 2
If (INTEGER012 < 1) INTEGER012 = 1
STRING022 = Trim(TSTRING021(INTEGER011, INTEGER012), " ")
STRING023 = Trim(TSTRING021(INTEGER011, INTEGER012 + 2), " ")
TSTRING021(1, 1) = Upper(TSTRING021(1, 1))
AnsiPos 21 + INTEGER011, 2 + INTEGER012
DispStr STRING017 + Upper(TSTRING020(INTEGER011, INTEGER012))
AnsiPos 21 + INTEGER011, 2 + INTEGER012 + 2
DispStr STRING027 + Lower(TSTRING020(INTEGER011, INTEGER012 + 2))
AnsiPos (80 - Len(STRING023)) / 2, 11
DispStr "@X07" + STRING023
Delay 1
AnsiPos (80 - Len(STRING023)) / 2, 11
DispStr "@X08" + STRING023
Delay 1
AnsiPos 23, 11
Print " "
Delay 1
If ((INTEGER011 == 1) && (INTEGER012 == 1)) Goto LABEL008
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X08" + STRING022
Delay 1
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X07" + STRING022
Delay 1
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X0F" + STRING022
Goto LABEL009
:LABEL008
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X08" + Upper(U_Pwd)
Delay 1
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X07" + Upper(U_Pwd)
Delay 1
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X0F" + Upper(U_Pwd)
:LABEL009
Return
:LABEL010
INTEGER012 = INTEGER012 + 2
If (INTEGER012 > 5) INTEGER012 = 5
STRING022 = Trim(TSTRING021(INTEGER011, INTEGER012), " ")
STRING024 = Trim(TSTRING021(INTEGER011, INTEGER012 - 2), " ")
AnsiPos 21 + INTEGER011, 2 + INTEGER012
DispStr STRING017 + Upper(TSTRING020(INTEGER011, INTEGER012))
AnsiPos 21 + INTEGER011, 2 + INTEGER012 - 2
DispStr STRING027 + Lower(TSTRING020(INTEGER011, INTEGER012 - 2))
If ((INTEGER011 == 1) && (INTEGER012 - 2 == 1)) Goto LABEL011
AnsiPos (80 - Len(STRING024)) / 2, 11
DispStr "@X07" + STRING024
Delay 1
AnsiPos (80 - Len(STRING024)) / 2, 11
DispStr "@X08" + STRING024
Goto LABEL012
:LABEL011
AnsiPos (80 - Len(STRING024)) / 2, 11
DispStr "@X07" + Upper(U_Pwd)
Delay 1
AnsiPos (80 - Len(STRING024)) / 2, 11
DispStr "@X08" + Upper(U_Pwd)
:LABEL012
Delay 1
AnsiPos 23, 11
Print " "
Delay 1
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X08" + STRING022
Delay 1
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X07" + STRING022
Delay 1
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X0F" + STRING022
Return
:LABEL013
INTEGER011 = INTEGER011 - 13
If (INTEGER011 < 1) INTEGER011 = 1
STRING025 = Trim(TSTRING021(INTEGER011 + 13, INTEGER012), " ")
STRING022 = Trim(TSTRING021(INTEGER011, INTEGER012), " ")
AnsiPos 21 + INTEGER011, 2 + INTEGER012
DispStr STRING017 + Upper(TSTRING020(INTEGER011, INTEGER012))
AnsiPos 21 + INTEGER011 + 13, 2 + INTEGER012
DispStr STRING027 + Lower(TSTRING020(INTEGER011 + 13, INTEGER012))
AnsiPos (80 - Len(STRING025)) / 2, 11
DispStr "@X07" + STRING025
Delay 1
AnsiPos (80 - Len(STRING025)) / 2, 11
DispStr "@X08" + STRING025
Delay 1
AnsiPos 23, 11
Print " "
If ((INTEGER011 == 1) && (INTEGER012 == 1)) Goto LABEL014
Delay 1
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X08" + STRING022
Delay 1
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X07" + STRING022
Delay 1
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X0F" + STRING022
Goto LABEL015
:LABEL014
Delay 1
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X08" + Upper(U_Pwd)
Delay 1
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X07" + Upper(U_Pwd)
Delay 1
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X0F" + Upper(U_Pwd)
:LABEL015
Return
:LABEL016
INTEGER011 = INTEGER011 + 13
If (INTEGER011 > 27) INTEGER011 = 27
STRING026 = Trim(TSTRING021(INTEGER011 - 13, INTEGER012), " ")
STRING022 = Trim(TSTRING021(INTEGER011, INTEGER012), " ")
AnsiPos 21 + INTEGER011, 2 + INTEGER012
DispStr STRING017 + Upper(TSTRING020(INTEGER011, INTEGER012))
AnsiPos 21 + INTEGER011 - 13, 2 + INTEGER012
DispStr STRING027 + Lower(TSTRING020(INTEGER011 - 13, INTEGER012))
If ((INTEGER011 - 13 == 1) && (INTEGER012 == 1)) Goto LABEL017
AnsiPos (80 - Len(STRING026)) / 2, 11
DispStr "@X07" + STRING026
Delay 1
AnsiPos (80 - Len(STRING026)) / 2, 11
DispStr "@X08" + STRING026
Goto LABEL018
:LABEL017
AnsiPos (80 - Len(STRING026)) / 2, 11
DispStr "@X07" + Upper(U_Pwd)
Delay 1
AnsiPos (80 - Len(STRING026)) / 2, 11
DispStr "@X08" + Upper(U_Pwd)
:LABEL018
Delay 1
AnsiPos 23, 11
Print " "
Delay 1
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X08" + STRING022
Delay 1
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X07" + STRING022
Delay 1
AnsiPos (80 - Len(STRING022)) / 2, 11
DispStr "@X0F" + STRING022
Return
:LABEL019
If (INTEGER011 + INTEGER012 == 2) Goto LABEL020
If (INTEGER011 + INTEGER012 == 4) Goto LABEL022
If (INTEGER011 + INTEGER012 == 6) Goto LABEL028
If (INTEGER011 + INTEGER012 == 15) Goto LABEL027
If (INTEGER011 + INTEGER012 == 17) Goto LABEL026
If (INTEGER011 + INTEGER012 == 19) Goto LABEL029
If (INTEGER011 + INTEGER012 == 28) Goto LABEL035
If (INTEGER011 + INTEGER012 == 30) Goto LABEL038
If (INTEGER011 + INTEGER012 == 32) Goto LABEL032
:LABEL020
If (Upper(STRING006) == "YES") Gosub LABEL045
STRING009 = U_Pwd
Gosub LABEL025
U_Pwd = STRING009
TSTRING021(1, 1) = U_Pwd
If (STRING009 == STRING010) Goto LABEL021
AnsiPos 23, 11
Print " "
AnsiPos (80 - Len(Trim(TSTRING021(1, 1), " "))) / 2, 11
Print "@X08" + Upper(U_Pwd)
Delay 2
AnsiPos (80 - Len(Trim(TSTRING021(1, 1), " "))) / 2, 11
Print "@X07" + Upper(U_Pwd)
Delay 2
AnsiPos (80 - Len(Trim(TSTRING021(1, 1), " "))) / 2, 11
Print "@X0F" + Upper(U_Pwd)
:LABEL021
Gosub LABEL046
Goto LABEL001
:LABEL022
If (Upper(STRING006) == "YES") Gosub LABEL045
STRING009 = TSTRING021(1, 3)
Gosub LABEL024
U_City = STRING009
TSTRING021(1, 3) = U_City
If (STRING009 <> STRING010) Gosub LABEL023
Gosub LABEL046
Goto LABEL001
:LABEL023
AnsiPos 23, 11
Print " "
STRING022 = Trim(TSTRING021(INTEGER011, INTEGER012), " ")
AnsiPos (80 - Len(STRING022)) / 2, 11
Print "@X08" + STRING022
Delay 2
AnsiPos (80 - Len(STRING022)) / 2, 11
Print "@X07" + STRING022
Delay 2
AnsiPos (80 - Len(STRING022)) / 2, 11
Print "@X0F" + STRING022
Return
:LABEL024
STRING010 = STRING009
AnsiPos 65, 6
Print STRING018 + " eDiTInG @X08"
AnsiPos 23, 16
InputText "_", STRING009, 15, 33
If (STRING009 == "") STRING009 = STRING010
AnsiPos 23, 16
Print " "
Return
:LABEL025
STRING010 = STRING009
AnsiPos 65, 6
Print STRING018 + " eDiTInG @X08"
AnsiPos 23, 16
InputText "_", STRING009, 15, 12
If (STRING009 == "") STRING009 = STRING010
AnsiPos 23, 16
Print " "
Return
:LABEL026
If (Upper(STRING006) == "YES") Gosub LABEL045
STRING009 = TSTRING021(14, 3)
Gosub LABEL024
U_HVPhone = STRING009
TSTRING021(14, 3) = U_HVPhone
If (STRING009 <> STRING010) Gosub LABEL023
Gosub LABEL046
Goto LABEL001
:LABEL027
If (Upper(STRING006) == "YES") Gosub LABEL045
STRING009 = TSTRING021(14, 1)
Gosub LABEL024
U_BDPhone = STRING009
TSTRING021(14, 1) = U_BDPhone
If (STRING009 <> STRING010) Gosub LABEL023
Gosub LABEL046
Goto LABEL001
:LABEL028
If (Upper(STRING006) == "YES") Gosub LABEL045
STRING009 = TSTRING021(1, 5)
Gosub LABEL024
U_Ver = STRING009
TSTRING021(1, 5) = U_Ver
If (STRING009 <> STRING010) Gosub LABEL023
Gosub LABEL046
Goto LABEL001
:LABEL029
If (Upper(STRING006) == "YES") Gosub LABEL045
AnsiPos 65, 6
Print STRING018 + " eDiTInG @X08"
INTEGER005 = U_FSE
INTEGER007 = INTEGER005
If (INTEGER005 == 0) Gosub LABEL041
If (INTEGER005 == 1) Gosub LABEL042
:LABEL030
STRING011 = Inkey()
If ((STRING011 == "LEFT") && (INTEGER005 < 1)) Gosub LABEL043
If ((STRING011 == "RIGHT") && (INTEGER005 > 0)) Gosub LABEL044
If (STRING011 == Chr(13)) Goto LABEL031
Goto LABEL030
:LABEL031
U_FSE = INTEGER005
TSTRING021(14, 5) = U_FSE
If (U_FSE == 0) TSTRING021(14, 5) = "NO "
If (U_FSE == 1) TSTRING021(14, 5) = "YES"
AnsiPos 23, 16
Print " "
If (INTEGER005 <> INTEGER007) Gosub LABEL023
Gosub LABEL046
Goto LABEL001
:LABEL032
If (Upper(STRING006) == "YES") Gosub LABEL045
AnsiPos 65, 6
Print STRING018 + " eDiTInG @X08"
INTEGER005 = U_Cls
INTEGER008 = INTEGER005
If (INTEGER005 == 0) Gosub LABEL041
If (INTEGER005 == 1) Gosub LABEL042
:LABEL033
STRING011 = Inkey()
If ((STRING011 == "LEFT") && (INTEGER005 < 1)) Gosub LABEL043
If ((STRING011 == "RIGHT") && (INTEGER005 > 0)) Gosub LABEL044
If (STRING011 == Chr(13)) Goto LABEL034
Goto LABEL033
:LABEL034
U_Cls = INTEGER005
TSTRING021(27, 5) = U_Cls
If (U_Cls == 0) TSTRING021(27, 5) = "NO "
If (U_Cls == 1) TSTRING021(27, 5) = "YES"
AnsiPos 23, 16
Print " "
If (INTEGER005 <> INTEGER008) Gosub LABEL023
Gosub LABEL046
Goto LABEL001
:LABEL035
If (Upper(STRING006) == "YES") Gosub LABEL045
AnsiPos 65, 6
Print STRING018 + " eDiTInG @X08"
INTEGER005 = U_Scroll
INTEGER009 = INTEGER005
If (INTEGER005 == 0) Gosub LABEL041
If (INTEGER005 == 1) Gosub LABEL042
:LABEL036
STRING011 = Inkey()
If ((STRING011 == "LEFT") && (INTEGER005 < 1)) Gosub LABEL043
If ((STRING011 == "RIGHT") && (INTEGER005 > 0)) Gosub LABEL044
If (STRING011 == Chr(13)) Goto LABEL037
Goto LABEL036
:LABEL037
U_Scroll = INTEGER005
TSTRING021(27, 1) = U_Scroll
If (U_Scroll == 0) TSTRING021(27, 1) = "NO "
If (U_Scroll == 1) TSTRING021(27, 1) = "YES"
AnsiPos 23, 16
Print " "
If (INTEGER005 <> INTEGER009) Gosub LABEL023
Gosub LABEL046
Goto LABEL001
:LABEL038
If (Upper(STRING006) == "YES") Gosub LABEL045
AnsiPos 65, 6
Print STRING018 + " eDiTInG @X08"
INTEGER005 = U_LongHDR
INTEGER010 = INTEGER005
If (INTEGER005 == 0) Gosub LABEL041
If (INTEGER005 == 1) Gosub LABEL042
:LABEL039
STRING011 = Inkey()
If ((STRING011 == "LEFT") && (INTEGER005 < 1)) Gosub LABEL043
If ((STRING011 == "RIGHT") && (INTEGER005 > 0)) Gosub LABEL044
If (STRING011 == Chr(13)) Goto LABEL040
Goto LABEL039
:LABEL040
U_LongHDR = INTEGER005
TSTRING021(27, 3) = U_LongHDR
If (U_LongHDR == 0) TSTRING021(27, 3) = "NO "
If (U_LongHDR == 1) TSTRING021(27, 3) = "YES"
AnsiPos 23, 16
Print " "
If (INTEGER005 <> INTEGER010) Gosub LABEL023
Gosub LABEL046
Goto LABEL001
:LABEL041
AnsiPos 36, 16
Print "@X08yes " + STRING017 + "NO@X08"
Return
:LABEL042
AnsiPos 36, 16
Print STRING017 + "YES@X08 no@X08"
Return
:LABEL043
INTEGER005 = 1
AnsiPos 36, 16
Print STRING017 + "YES@X08 no@X08"
Return
:LABEL044
INTEGER005 = 0
AnsiPos 36, 16
Print "@X08yes " + STRING017 + "NO@X08"
Return
:LABEL045
AnsiPos 69, 8
Print "@X0F│"
AnsiPos 69, 9
Print "@X0F│"
AnsiPos 69, 10
Print "@X0F│"
AnsiPos 69, 11
Print "@X0F│"
Delay 2
AnsiPos 69, 8
Print "@X08│"
AnsiPos 69, 9
Print "@X08│"
AnsiPos 69, 10
Print "@X08│"
AnsiPos 69, 11
Print "@X08│"
AnsiPos 69, 12
Print "@X0F│"
AnsiPos 69, 13
Print "@X0F│"
AnsiPos 69, 14
Print "@X0F│"
AnsiPos 69, 15
Print "@X0F│"
AnsiPos 69, 16
Print "@X0F┘"
Delay 2
AnsiPos 69, 12
Print "@X08│"
AnsiPos 69, 13
Print "@X08│"
AnsiPos 69, 14
Print "@X08│"
AnsiPos 69, 15
Print "@X08│"
AnsiPos 69, 16
Print "@X08┘"
AnsiPos 64, 16
Print "@X0F─────"
Delay 2
AnsiPos 64, 16
Print "@X08─────"
AnsiPos 59, 16
Print "@X0F─────"
Delay 2
AnsiPos 59, 16
Print "@X08─────"
Return
:LABEL046
For INTEGER003 = 1 To 9
AnsiPos 69, 7 + INTEGER003
Print " "
Next
For INTEGER003 = 1 To 11
AnsiPos 58 + INTEGER003, 16
Print " "
Next
Return
:LABEL047
Cls
PutUser
STRING012 = "CoDe By HoLLoWMaN"
INTEGER001 = (80 - Len(STRING012)) / 2
AnsiPos INTEGER001, 12
Print "@X08" + STRING012
Delay 2
AnsiPos INTEGER001, 12
Print "@X07" + STRING012
Delay 2
AnsiPos INTEGER001, 12
Print "@X0F" + STRING012
Delay 2
AnsiPos INTEGER001, 12
Print "@X07" + STRING012
Delay 2
AnsiPos INTEGER001, 12
Print "@X08" + STRING012
Cls
STRING012 = "aeGiS CoRp'96"
INTEGER001 = (80 - Len(STRING012)) / 2
AnsiPos INTEGER001, 12
Print "@X08" + STRING012
Delay 2
AnsiPos INTEGER001, 12
Print "@X07" + STRING012
Delay 2
AnsiPos INTEGER001, 12
Print "@X0F" + STRING012
Delay 2
AnsiPos INTEGER001, 12
Print "@X07" + STRING012
Delay 2
AnsiPos INTEGER001, 12
Print "@X08" + STRING012
Cls
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 4 Cls
; 1 Wait
; 48 Goto
; 116 Let
; 64 Print
; 3 PrintLn
; 86 If
; 1 DispFile
; 1 FOpen
; 1 FClose
; 8 FGet
; 1 GetUser
; 1 PutUser
; 51 Gosub
; 13 Return
; 44 Delay
; 2 InputText
; 42 DispStr
; 110 AnsiPos
;
;
; ■ Functions used :
;
; 39 /
; 112 +
; 49 -
; 74 ==
; 11 <>
; 10 <
; 2 <=
; 8 >
; 4 >=
; 2 !
; 21 &&
; 2 ||
; 40 Len(
; 5 Lower()
; 34 Upper()
; 6 Chr()
; 13 Trim()
; 1 Random()
; 5 Inkey()
; 2 PPEPath()
;
;------------------------------------------------------------------------------
;
; Analysis flags : WH
;
; 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
;
; 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
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 2 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------