home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
TKGALORE.ZIP
/
TK-USRNF.ZIP
/
USERNFO.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1996-04-03
|
4KB
|
270 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
;------------------------------------------------------------------------------
String STRING008
String STRING009
;------------------------------------------------------------------------------
Cls
DispFile PPEPath() + "USERNFO.PCB", 0
GetUser
Color 5
AnsiPos 21, 5
Print U_Pwd
AnsiPos 21, 6
Print U_City
AnsiPos 21, 7
Print U_BDPhone
AnsiPos 21, 8
Print U_HVPhone
AnsiPos 21, 9
If (U_Cls == 0) Print "N"
If (U_Cls == 1) Print "Y"
AnsiPos 21, 10
Print U_Addr(0)
AnsiPos 21, 11
Print U_Addr(1)
AnsiPos 21, 12
Print U_Addr(2)
AnsiPos 21, 13
Print U_Addr(3)
AnsiPos 21, 14
Print U_Addr(4)
AnsiPos 21, 15
Print U_Addr(5)
AnsiPos 21, 16
Print U_Ver
AnsiPos 21, 17
If (U_Expert == 0) Print "N"
If (U_Expert == 1) Print "Y"
AnsiPos 21, 18
Print U_Trans
STRING008 = ""
:LABEL001
If (STRING008 == Chr(27)) Goto LABEL004
AnsiPos 75, 20
STRING008 = ""
While (STRING008 == "") Do
STRING008 = Inkey()
EndWhile
STRING008 = Upper(STRING008)
STRING009 = ""
If (STRING008 == "A") Then
AnsiPos 21, 5
KbdStuff U_Pwd
InputStr "_", STRING009, 5, 12, Mask_Ascii(), 0
U_Pwd = Upper(STRING009)
AnsiPos 21, 5
Print "@X08............"
AnsiPos 21, 5
Print "@X05" + U_Pwd
Endif
If (STRING008 == "B") Then
AnsiPos 21, 6
KbdStuff U_City
InputStr "_", STRING009, 5, 24, Mask_Ascii(), 0
U_City = Upper(STRING009)
AnsiPos 21, 6
Print "@X08........................"
AnsiPos 21, 6
Print "@X05" + U_City
Endif
If (STRING008 == "C") Then
AnsiPos 21, 7
KbdStuff U_BDPhone
InputStr "_", STRING009, 5, 13, "0123456789-()", 0
U_BDPhone = STRING009
AnsiPos 21, 7
Print "@X08............."
AnsiPos 21, 7
Print "@X05" + U_BDPhone
Endif
If (STRING008 == "D") Then
AnsiPos 21, 8
KbdStuff U_HVPhone
InputStr "_", STRING009, 5, 13, "0123456789-()", 0
U_HVPhone = STRING009
AnsiPos 21, 8
Print "@X08............."
AnsiPos 21, 8
Print "@X05" + U_HVPhone
Endif
If (STRING008 == "E") Then
If (U_Cls == 0) Then
U_Cls = 1
Goto LABEL002
Endif
U_Cls = 0
:LABEL002
AnsiPos 21, 9
If (U_Cls == 0) Print "N"
If (U_Cls == 1) Print "Y"
Endif
If (STRING008 == "F") Then
AnsiPos 21, 10
KbdStuff U_Addr(0)
InputStr "_", STRING009, 5, 50, Mask_Ascii(), 0
U_Addr(0) = STRING009
AnsiPos 21, 10
Print "@X08.................................................."
AnsiPos 21, 10
Print "@X05" + U_Addr(0)
Endif
If (STRING008 == "G") Then
AnsiPos 21, 11
KbdStuff U_Addr(1)
InputStr "_", STRING009, 5, 50, Mask_Ascii(), 0
U_Addr(1) = STRING009
AnsiPos 21, 11
Print "@X08.................................................."
AnsiPos 21, 11
Print "@X05" + U_Addr(1)
Endif
If (STRING008 == "H") Then
AnsiPos 21, 12
KbdStuff U_Addr(2)
InputStr "_", STRING009, 5, 25, Mask_Ascii(), 0
U_Addr(2) = STRING009
AnsiPos 21, 12
Print "@X08........................."
AnsiPos 21, 12
Print "@X05" + U_Addr(2)
Endif
If (STRING008 == "I") Then
AnsiPos 21, 13
KbdStuff U_Addr(3)
InputStr "_", STRING009, 5, 10, Mask_Ascii(), 0
U_Addr(3) = STRING009
AnsiPos 21, 13
Print "@X08.........."
AnsiPos 21, 13
Print "@X05" + U_Addr(3)
Endif
If (STRING008 == "J") Then
AnsiPos 21, 14
KbdStuff U_Addr(4)
InputStr "_", STRING009, 5, 10, "0123456789", 0
U_Addr(4) = STRING009
AnsiPos 21, 14
Print "@X08.........."
AnsiPos 21, 14
Print "@X05" + U_Addr(4)
Endif
If (STRING008 == "K") Then
AnsiPos 21, 15
KbdStuff U_Addr(5)
InputStr "_", STRING009, 5, 15, Mask_Ascii(), 0
U_Addr(5) = STRING009
AnsiPos 21, 15
Print "@X08..............."
AnsiPos 21, 15
Print "@X05" + U_Addr(5)
Endif
If (STRING008 == "L") Then
AnsiPos 21, 16
KbdStuff U_Ver
InputStr "_", STRING009, 5, 25, Mask_Ascii(), 0
U_Ver = STRING009
AnsiPos 21, 16
Print "@X08........................."
AnsiPos 21, 16
Print "@X05" + U_Ver
Endif
If (STRING008 == "M") Then
If (U_Expert == 0) Then
U_Expert = 1
Goto LABEL003
Endif
U_Expert = 0
:LABEL003
AnsiPos 21, 17
If (U_Expert == 0) Print "N"
If (U_Expert == 1) Print "Y"
Endif
If (STRING008 == "N") Then
AnsiPos 21, 18
KbdStuff U_Trans
InputStr "_", STRING009, 5, 1, "AXCOFYGZHaxcofygzh", 0
U_Trans = Upper(STRING009)
AnsiPos 21, 18
Print "@X05" + U_Trans
Endif
Goto LABEL001
:LABEL004
PutUser
Cls
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 Cls
; 1 Color
; 22 Goto
; 21 Let
; 43 Print
; 26 If
; 1 DispFile
; 1 GetUser
; 1 PutUser
; 12 InputStr
; 12 KbdStuff
; 52 AnsiPos
;
;
; ■ Functions used :
;
; 13 +
; 26 ==
; 18 !
; 4 Upper()
; 1 Chr()
; 1 Inkey()
; 8 Mask_Ascii()
; 1 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
;
; 0 For/Next
; 1 While/EndWhile
; 16 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------