home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
TKGALORE.ZIP
/
TK-PWDER.ZIP
/
PWDHACK.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-05-18
|
2KB
|
84 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
;------------------------------------------------------------------------------
;------------------------------------------------------------------------------
GetUser
FCreate 1, PPEPath() + "MESSY.TMP", 1, 3
FPutLn 1, "@X0CWARNING@X07 Somone could be trying to hack your account.!!!!!!!!!!!!!!!!"
FPutLn 1, "On @X0F" + String(Date()) + "@X07 at @X0F" + String(Time()) + "@X07 this account tried to be"
FPutLn 1, "accessed but there was too many password failures. If it wasn't you and"
FPutLn 1, "you think you know who it was just ask the sysop for the passwords they"
FPutLn 1, "tried to use."
FPutLn 1, ""
FPutLn 1, "@X08This Messge was the work of Toxic Krystal PPE's Coded by THe BLaCK aSSaSSiN@X07"
FClose 1
Message 0, U_Name(), "Toxic Krystalz", "Hack attempt", "R", 0, 0, 1, PPEPath() + "MESSY.TMP"
Delete PPEPath() + "MESSY.TMP"
Cls
PrintLn " @X0BT@X03oxic @X0BK@X03rystalz @X0BA@X03nti @X0BH@X03ack @X0BM@X03essage @X0BV1@X03.@X0B0"
PrintLn "@X08-----------------------------------------"
PrintLn " @X07The Sysop and " + Mixed(U_Name())
PrintLn " have been informed of this Failure"
Delay 10
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 Cls
; 4 PrintLn
; 1 FCreate
; 1 FClose
; 7 FPutLn
; 1 GetUser
; 1 Delete
; 1 Delay
; 1 Message
;
;
; ■ Functions used :
;
; 8 +
; 1 Date()
; 1 Time()
; 2 U_Name()
; 2 String()
; 3 PPEPath()
; 1 Mixed()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------