home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
TKGALORE.ZIP
/
TK-USERS.ZIP
/
USERS.PPE
(
.txt
)
< prev
Wrap
PCBoard Programming Language Executable
|
1996-04-28
|
3KB
|
175 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.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
Declare Procedure PROC001()
Declare Procedure PROC002()
Declare Procedure PROC003()
Declare Procedure PROC004()
;------------------------------------------------------------------------------
PROC004()
End
;------------------------------------------------------------------------------
Procedure PROC004()
PROC001()
INTEGER001 = 1
GetAltUser 1
Color 3
While (U_RecNum(U_Name()) == INTEGER001) Do
PROC003()
Inc INTEGER001
GetAltUser INTEGER001
EndWhile
PROC002()
EndProc
;------------------------------------------------------------------------------
Procedure PROC003()
String STRING002
String STRING003
String STRING004
String STRING005
If (U_Sec == 0) U_City = "@X08BLACK LISTED"
If (Len(U_City) > 20) U_City = Mid(U_City, 1, 20)
STRING002 = String(INTEGER001)
If (Len(STRING002) == 1) STRING002 = " " + STRING002
If (Len(STRING002) == 2) STRING002 = " " + STRING002
STRING004 = String(U_Bul() / 1000)
STRING003 = String(U_Bdl() / 1000)
If (Len(STRING003) == 6) STRING003 = Mid(STRING003, 1, 3) + "," + Mid(STRING003, 4, 3)
If (Len(STRING003) == 5) STRING003 = Mid(STRING003, 1, 2) + "," + Mid(STRING003, 3, 3)
If (Len(STRING003) == 4) STRING003 = Mid(STRING003, 1, 1) + "," + Mid(STRING003, 2, 3)
If (Len(STRING004) == 6) STRING004 = Mid(STRING004, 1, 3) + "," + Mid(STRING004, 4, 3)
If (Len(STRING004) == 5) STRING004 = Mid(STRING004, 1, 2) + "," + Mid(STRING004, 3, 3)
If (Len(STRING004) == 4) STRING004 = Mid(STRING004, 1, 1) + "," + Mid(STRING004, 2, 3)
While (Len(STRING003) < 9) Do
STRING003 = " " + STRING003
EndWhile
While (Len(STRING004) < 9) Do
STRING004 = " " + STRING004
EndWhile
STRING005 = String(U_Sec)
While (Len(STRING005) < 3) Do
STRING005 = " " + STRING005
EndWhile
PrintLn "@X0F " + STRING002 + "@POS:6@@X08│ @X0B" + U_Name() + "@POS:28@@X08│ @X0A" + U_City + "@POS:51@@X08│@X05" + STRING004 + "@X0DK@POS:62@@X08│@X04" + STRING003 + "@X0CK@POS:73@@X08│ @X09" + STRING005
EndProc
;------------------------------------------------------------------------------
Procedure PROC001()
PrintLn "@CLS@@X0F──@X07──@X08───────────────────────────────────────────────────────────────────────@X07──@X0F──"
PrintLn "@X0F Handle Location upped leeched aXs"
PrintLn "@X0F─@X07─@X08──@X07─@X0F┬@X07─@X08───────────────────@X07─@X0F┬@X07─@X08────────────────────@X07─@X0F┬@X07─@X08────────@X07─@X0F┬@X07─@X08────────@X07─@X0F┬@X07─@X08───@X07─@X0F─"
EndProc
;------------------------------------------------------------------------------
Procedure PROC002()
String STRING006
PrintLn "@X0F─@X07─@X08──@X07─@X0F┴@X07─@X08───────────────────@X07─@X0F┴@X07─@X08────────────────────@X07─@X0F┴@X07─@X08────────@X07─@X0F┴@X07─@X08────────@X07─@X0F┴@X07─@X08───@X07─@X0F─"
Print " THe BLaCK aSSaSSiN '96"
While (STRING006 == "") Do
STRING006 = ""
STRING006 = Inkey()
EndWhile
EndProc
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 Color
; 10 Goto
; 20 Let
; 1 Print
; 5 PrintLn
; 15 If
; 1 Inc
; 2 GetAltUser
; 4 EndProc
;
;
; ■ Functions used :
;
; 2 /
; 28 +
; 11 ==
; 3 <
; 1 >
; 5 !
; 12 Len(
; 13 Mid()
; 2 U_Name()
; 1 U_Bdl()
; 1 U_Bul()
; 1 Inkey()
; 4 String()
; 1 U_RecNum()
;
;------------------------------------------------------------------------------
;
; Analysis flags : R
;
; 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
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 5 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------