home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
AGSBF10.ZIP
/
AGSTHD.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-11-24
|
8KB
|
323 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
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer TINTEGER008(1)
Integer TINTEGER009(1)
Integer INTEGER010
Integer TINTEGER011(1)
Integer TINTEGER012(1)
Real REAL001
Real REAL002
Real REAL003
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String TSTRING013(1)
String STRING014
;------------------------------------------------------------------------------
STRING002 = "AcaDe v1.03"
STRING003 = "<┤EGiS Corp Anti-Decompilation Engine."
STRING004 = "(C)1994 By Lone Runner/AGS"
STRING005 = ""
STRING006 = "Sorry dude, this time PPLD will not do the job... :)"
INTEGER003 = 1
INTEGER004 = 1
Newline
STRING012 = "UPDOWN82" + Chr(13) + Chr(27)
INTEGER007 = ReadLine(PPEPath() + "NUSERS.DAT", 1)
FClose -1
Print "@X0FP@X09L@X01eaSe @X0FW@X09a@X01iT @X08[@X01"
For INTEGER006 = 1 To INTEGER007
Print "∙"
Next
Print "@X08]@X09"
Backup INTEGER006
Redim TINTEGER008, INTEGER007
Redim TINTEGER012, INTEGER007
Redim TINTEGER009, INTEGER007
Redim TINTEGER011, INTEGER007
Redim TSTRING013, INTEGER007
FOpen 1, PPEPath() + "REGD.DAT", 0, 0
For INTEGER010 = 1 To INTEGER007
FGet 1, TSTRING013(INTEGER010)
TSTRING013(INTEGER010) = Trim(Upper(TSTRING013(INTEGER010)), " ")
STRING007 = TSTRING013(INTEGER010)
Gosub LABEL011
FOpen 2, STRING010, 0, 0
Print "■"
:LABEL001
FGet 2, STRING014
If (STRING014 == "[iS_HaTiNG]") Then
:LABEL002
FGet 2, STRING014
If (STRING014 <> "[eND]") TINTEGER009(INTEGER010) = TINTEGER009(INTEGER010) + 1
If (STRING014 <> "[eND]") Goto LABEL002
Endif
If (STRING014 == "[iS_HaTeD_BY]") Then
:LABEL003
FGet 2, STRING014
If (STRING014 <> "[eND]") TINTEGER008(INTEGER010) = TINTEGER008(INTEGER010) + 1
If (STRING014 <> "[eND]") Goto LABEL003
Endif
If (STRING014 <> "[eND_DaTa]") Goto LABEL001
FClose 2
REAL001 = INTEGER007
REAL003 = TINTEGER009(INTEGER010) + TINTEGER008(INTEGER010)
REAL002 = (100 / ((REAL001 - 1) * 2)) * REAL003
TINTEGER012(INTEGER010) = REAL002
Next
FClose 1
:LABEL004
Cls
DispFile PPEPath() + "AGSTHDMN.PCB", 0
Gosub LABEL010
STRING011 = "#"
:LABEL005
STRING011 = Inkey()
If (InStr(STRING012, STRING011) == 0) Goto LABEL005
If ((STRING011 == "UP") || (STRING011 == "8")) Then
INTEGER004 = INTEGER003
If (INTEGER003 == 1) Then
INTEGER003 = 4
Goto LABEL006
Endif
INTEGER003 = INTEGER003 - 1
:LABEL006
Gosub LABEL010
Endif
If ((STRING011 == "DOWN") || (STRING011 == "2")) Then
INTEGER004 = INTEGER003
If (INTEGER003 == 4) Then
INTEGER003 = 1
Goto LABEL007
Endif
INTEGER003 = INTEGER003 + 1
:LABEL007
Gosub LABEL010
Endif
If (STRING011 == Chr(13)) Goto LABEL008
If (STRING011 == Chr(27)) Goto LABEL009
Goto LABEL005
:LABEL008
DefColor
Cls
If (INTEGER003 == 1) Goto LABEL013
If (INTEGER003 == 2) Goto LABEL012
If (INTEGER003 == 3) Goto LABEL014
If (INTEGER003 == 4) Goto LABEL009
:LABEL009
DefColor
End
:LABEL010
AnsiPos 3, 1 + INTEGER004
Print "@X07" + ScrText(3, 1 + INTEGER004, 29, 0)
AnsiPos 3, 1 + INTEGER003
Print "@X1F" + ScrText(3, 1 + INTEGER003, 29, 0)
Return
:LABEL011
STRING007 = Upper(STRING007)
INTEGER002 = 0
For INTEGER001 = 1 To Len(STRING007)
INTEGER002 = INTEGER002 + Asc(Mid(STRING007, INTEGER001, 1))
Next
STRING009 = I2S(INTEGER002, 16)
STRING010 = Trim(PPEPath() + "DATA\" + Left(Trim(STRING007, " "), 3) + Right(Trim(STRING007, " "), 4) + Left(STRING009, 1) + "." + Mid(STRING009, 2, 3), " ")
Return
:LABEL012
Cls
DispFile PPEPath() + "AGSTHDAR.HTR", 0
Sort TINTEGER009, TINTEGER011
For INTEGER010 = 1 To 10
STRING008 = TSTRING013(TINTEGER011(INTEGER007 - INTEGER010 + 1))
Gosub LABEL015
AnsiPos 6, INTEGER010 + 2
Print STRING008
STRING008 = String(TINTEGER009(TINTEGER011(INTEGER007 - INTEGER010 + 1)))
Gosub LABEL015
AnsiPos 39, INTEGER010 + 2
Print STRING008
INTEGER005 = TINTEGER009(TINTEGER011(INTEGER007 - INTEGER010 + 1)) * 32
INTEGER005 = INTEGER005 / TINTEGER009(TINTEGER011(INTEGER007))
AnsiPos 45, INTEGER010 + 2
Color 9
For INTEGER006 = 1 To INTEGER005
Print "▀"
Next
Next
AnsiPos 1, 16
Wait
Goto LABEL004
:LABEL013
Cls
DispFile PPEPath() + "AGSTHDAR.HTD", 0
Sort TINTEGER008, TINTEGER011
For INTEGER010 = 1 To 10
STRING008 = TSTRING013(TINTEGER011(INTEGER007 - INTEGER010 + 1))
Gosub LABEL015
AnsiPos 6, INTEGER010 + 2
Print STRING008
STRING008 = String(TINTEGER008(TINTEGER011(INTEGER007 - INTEGER010 + 1)))
Gosub LABEL015
AnsiPos 39, INTEGER010 + 2
Print STRING008
INTEGER005 = TINTEGER008(TINTEGER011(INTEGER007 - INTEGER010 + 1)) * 32
INTEGER005 = INTEGER005 / TINTEGER008(TINTEGER011(INTEGER007))
AnsiPos 45, INTEGER010 + 2
Color 9
For INTEGER006 = 1 To INTEGER005
Print "▀"
Next
Next
AnsiPos 1, 16
Wait
Goto LABEL004
:LABEL014
Cls
DispFile PPEPath() + "AGSTHDAR.HOM", 0
Sort TINTEGER012, TINTEGER011
For INTEGER010 = 1 To 10
STRING008 = TSTRING013(TINTEGER011(INTEGER007 - INTEGER010 + 1))
Gosub LABEL015
AnsiPos 6, INTEGER010 + 2
Print STRING008
STRING008 = String(TINTEGER012(TINTEGER011(INTEGER007 - INTEGER010 + 1))) + "%"
Gosub LABEL015
AnsiPos 39, INTEGER010 + 2
Print STRING008
INTEGER005 = TINTEGER012(TINTEGER011(INTEGER007 - INTEGER010 + 1)) * 32
INTEGER005 = INTEGER005 / 100
AnsiPos 45, INTEGER010 + 2
Color 9
For INTEGER006 = 1 To INTEGER005
Print "▀"
Next
Next
AnsiPos 1, 16
Wait
Goto LABEL004
:LABEL015
STRING008 = Mid(STRING008, 1, 30)
STRING008 = Replace(STRING008, "0", "o")
STRING008 = Replace(STRING008, "A", "a")
STRING008 = Replace(STRING008, "E", "e")
STRING008 = Replace(STRING008, "I", "i")
STRING008 = Replace(STRING008, "O", "o")
STRING008 = Replace(STRING008, "U", "u")
STRING008 = Mid(STRING008, 1, 2) + "@X0F" + Mid(STRING008, 3, Len(STRING008) - 3)
STRING008 = Mid(STRING008, 1, 1) + "@X09" + Mid(STRING008, 2, Len(STRING008) - 2)
STRING008 = "@X01" + STRING008
STRING008 = Trim(STRING008, " ")
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 5 Cls
; 3 Wait
; 3 Color
; 40 Goto
; 72 Let
; 15 Print
; 27 If
; 4 DispFile
; 2 FOpen
; 3 FClose
; 4 FGet
; 2 DefColor
; 10 Gosub
; 3 Return
; 1 Newline
; 14 AnsiPos
; 1 Backup
; 5 Redim
; 3 Sort
;
;
; ■ Functions used :
;
; 1 -
; 5 *
; 4 /
; 248 +
; 13 -
; 15 ==
; 5 <>
; 9 <
; 9 <=
; 18 >=
; 15 !
; 18 &&
; 11 ||
; 4 Len(
; 2 Upper()
; 7 Mid()
; 2 Left()
; 1 Right()
; 152 Chr()
; 1 Asc()
; 1 InStr()
; 5 Trim()
; 1 U_Name()
; 6 Replace()
; 1 Inkey()
; 4 String()
; 7 PPEPath()
; 1 ReadLine()
; 1 CallId()
; 1 I2S()
; 2 ScrText()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 9 For/Next
; 0 While/EndWhile
; 6 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------