home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
AGSCNF10.ZIP
/
AGSCNF.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-08-29
|
7KB
|
325 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 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String TSTRING012(11)
;------------------------------------------------------------------------------
TSTRING012(1) = " Password "
TSTRING012(2) = " City/Group "
TSTRING012(3) = " Data # "
TSTRING012(4) = " Voice # "
TSTRING012(5) = " Verify Info "
TSTRING012(6) = " Clear Msg "
TSTRING012(7) = " Scroll Msgs "
TSTRING012(8) = " Long Header "
TSTRING012(9) = " Full Editor "
TSTRING012(10) = " Xpert Mode "
TSTRING012(11) = " Quit "
RdUNet PcbNode()
WrUNet PcbNode(), "Q", UN_Name(), UN_City(), "Using: @X03AGSCNF v1.0", " "
PrintLn "@POFF@"
PrintLn "@CLS@@X0F┌@X07─@X08───────────@X07─@X0F┬@X07─@X08───────────────────────────────────────────────@X07─@X0F┐"
PrintLn "@X07│@X78 Password @X07│ │"
PrintLn "@X08│ @X07City/Group @X08│ │"
PrintLn "@X08│ @X07Data # @X08│ │"
PrintLn "@X08│ @X07Voice # @X08│ │"
PrintLn "@X08│ @X07Verify Info @X08│ │"
PrintLn "@X08│ @X07Clear Msg @X08│ │"
PrintLn "@X08│ @X07Scroll Msgs @X08│ │"
PrintLn "@X08│ @X07Long Header @X08│ │"
PrintLn "@X08│ @X07Full Editor @X08│ │"
PrintLn "@X08│ @X07Xpert Mode │ │"
PrintLn "@X07│ Quit @X0F├@X07─@X08───────────────────────────────────────────────@X07─@X0F┤"
PrintLn "@X0F├@X07─@X08───────────@X07─@X0F┤ N@X07e@X08w @X0FE@X07n@X08try@X07? ( ) @X07│"
PrintLn "@X07│ @X0FM@X07i@X08sc. @X0FI@X07n@X08fos @X0F└@X07─@X08───────────────────────────────────────────────@X07─@X0F┤"
PrintLn "@X08│ @X07Name / Handle @X0E: @X07│"
PrintLn "@X08│ @X07Security Level@X0E: @X08│"
PrintLn "@X08│ @X07Bytes Uploaded@X0E: @X08│"
PrintLn "@X08│ @X07Bytes Leeched @X0E: @X08│"
PrintLn "@X08│ @X07Connect Speed @X0E: @X08│"
PrintLn "@X07│ ┌@X08───────────────────────────────────────────────────────────@X07┐ │"
PrintLn "@X0F└@X07─@X0F┘ ■@X07■@X08■ AGSCNF v1.0 by Number Six / AEGiS Corp. ■@X07■@X0F■ └@X07─@X0F┘"
STRING011 = "AEGiS Corp. LightBar Engine Version 1.0 (c) 1994 [NB6/AEGiS Corp]"
GetUser
Print "@X03"
AnsiPos 19, 15
Print "@USER@"
AnsiPos 19, 16
Print U_Sec
AnsiPos 19, 17
Print "@UPBYTES@"
AnsiPos 19, 18
Print "@DLBYTES@"
AnsiPos 19, 19
Print Carrier() + " Bps"
INTEGER001 = 1
Gosub LABEL002
AnsiPos 15, 2
:LABEL001
STRING006 = Inkey()
If (((STRING006 == "UP") || (STRING006 == "8")) && (INTEGER001 > 1)) Then
INTEGER002 = INTEGER001
Dec INTEGER001
Gosub LABEL013
Endif
If (((STRING006 == "DOWN") || (STRING006 == "2")) && (INTEGER001 < 11)) Then
INTEGER002 = INTEGER001
Inc INTEGER001
Gosub LABEL013
Endif
If (STRING006 <> Chr(13)) Goto LABEL001
If (INTEGER001 <> 11) Gosub LABEL004
If (INTEGER001 <> 11) Goto LABEL001
If (!0) MouseReg 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
PutUser
Print "@X07!@CLS@"
PrintLn "@X0FI@X07n@X08formations @X0FS@X07a@X08ved..."
PrintLn "@X0F[AGSCNF 1.0 by Number Six / AEGiS Corp.]"
Newline
Newline
Wait
End
:LABEL002
INTEGER003 = GetX()
INTEGER004 = GetY()
Print "@X03"
AnsiPos 17, 2
Gosub LABEL003
Print U_Pwd
AnsiPos 17, 3
Gosub LABEL003
Print U_City
AnsiPos 17, 4
Gosub LABEL003
Print U_BDPhone
AnsiPos 17, 5
Gosub LABEL003
Print U_HVPhone
AnsiPos 17, 6
Gosub LABEL003
Print U_Ver
AnsiPos 17, 7
STRING008 = U_Cls
Gosub LABEL012
Print STRING009
AnsiPos 17, 8
STRING008 = U_Scroll
Gosub LABEL012
Print STRING009
AnsiPos 17, 9
STRING008 = U_LongHDR
Gosub LABEL012
Print STRING009
AnsiPos 17, 10
STRING008 = U_FSE
Gosub LABEL012
Print STRING009
AnsiPos 17, 11
STRING008 = U_Expert
Gosub LABEL012
Print STRING009
AnsiPos INTEGER003, INTEGER004
Return
:LABEL003
Print " "
Backup 36
Return
:LABEL004
If ((INTEGER001 > 0) && (INTEGER001 < 6)) Then
If (INTEGER001 == 1) Then
STRING010 = U_Pwd
Gosub LABEL011
U_Pwd = STRING007
Endif
If (INTEGER001 == 2) Then
STRING010 = U_City
Gosub LABEL011
U_City = STRING007
Endif
If (INTEGER001 == 3) Then
STRING010 = U_BDPhone
Gosub LABEL011
U_BDPhone = STRING007
Endif
If (INTEGER001 == 4) Then
STRING010 = U_HVPhone
Gosub LABEL011
U_HVPhone = STRING007
Endif
If (INTEGER001 == 5) Then
STRING010 = U_Ver
Gosub LABEL011
U_Ver = STRING007
Endif
Gosub LABEL002
Endif
If ((INTEGER001 > 5) && (INTEGER001 < 11)) Then
Gosub LABEL005
Gosub LABEL002
Endif
Return
:LABEL005
If (INTEGER001 == 6) Then
If (U_Cls == "0") Then
U_Cls = "1"
Goto LABEL006
Endif
U_Cls = "0"
Endif
:LABEL006
If (INTEGER001 == 7) Then
If (U_Scroll == "0") Then
U_Scroll = "1"
Goto LABEL007
Endif
U_Scroll = "0"
Endif
:LABEL007
If (INTEGER001 == 8) Then
If (U_LongHDR == "0") Then
U_LongHDR = "1"
Goto LABEL008
Endif
U_LongHDR = "0"
Endif
:LABEL008
If (INTEGER001 == 9) Then
If (U_FSE == "0") Then
U_FSE = "1"
Goto LABEL009
Endif
U_FSE = "0"
Endif
:LABEL009
If (INTEGER001 == 10) Then
If (U_Expert == "0") Then
U_Expert = "1"
Goto LABEL010
Endif
U_Expert = "0"
Endif
:LABEL010
Return
:LABEL011
INTEGER003 = GetX()
INTEGER004 = GetY()
STRING007 = STRING010
AnsiPos 26, 13
InputText "", STRING007, 7, 34
If (STRING007 == "") STRING007 = STRING010
AnsiPos 29, 13
Print " "
AnsiPos INTEGER003, INTEGER004
Return
:LABEL012
If (STRING008 == "0") STRING009 = "No "
If (STRING008 == "1") STRING009 = "Yes"
Return
:LABEL013
AnsiPos 2, INTEGER002 + 1
Print "@X07" + TSTRING012(INTEGER002)
Print "@X78"
AnsiPos 2, INTEGER001 + 1
Print TSTRING012(INTEGER001)
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 Wait
; 26 Goto
; 49 Let
; 23 Print
; 24 PrintLn
; 26 If
; 1 GetUser
; 1 PutUser
; 22 Gosub
; 7 Return
; 1 Inc
; 1 Dec
; 2 Newline
; 1 InputText
; 1 RdUNet
; 1 WrUNet
; 22 AnsiPos
; 1 Backup
; 1 MouseReg
;
;
; ■ Functions used :
;
; 4 +
; 22 ==
; 3 <>
; 3 <
; 3 >
; 20 !
; 4 &&
; 2 ||
; 1 Chr()
; 1 Inkey()
; 2 PcbNode()
; 1 UN_Name()
; 1 UN_City()
; 1 Carrier()
; 2 GetX()
; 2 GetY()
;
;------------------------------------------------------------------------------
;
; 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
;
; 0 For/Next
; 0 While/EndWhile
; 19 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------