home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / PAIN / P__SECUR.ZIP / P!-VERIF.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-04-19  |  6.4 KB  |  253 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER002
  20.     String   STRING001
  21.     String   STRING002
  22.     String   TSTRING003(4)
  23.     String   STRING004
  24.     String   TSTRING005(3)
  25.     String   STRING006
  26.  
  27. ;------------------------------------------------------------------------------
  28.  
  29.     If (INTEGER002 == 99) Goto LABEL001
  30.     Goto LABEL003
  31.     :LABEL001
  32.     Print "MODiFY iT...iF YOU ARE TOO LAME TO DO SUCH A CHEAP CRAP YOURSELF!"
  33.     :LABEL002
  34.     FOpen 1, PPEPath() + "tmp.msg", 1, 0
  35.     FPutLn 1, "@X0F     ▄@X70▀@X7F▒▓@X0F██████@X7F▓@X0F▄"
  36.     FPutLn 1, "@X0F   @X70▀@X0F█@X7F▓▒ @X70█@X7F▒▓@X0F██@X7F▓▒▒▓@X0F█▄"
  37.     FPutLn 1, "@X0F  @X70 @X0F█@X7F▓▒@X70■@X07 @X7F▓@X0F█▀  ▀@X08▐@X70■@X0F▀ @X70█@X0F▐   @X04■▀▀▀·■▀■·▀▀■▀▀■▀▀▀▀·■▀■▀▀■"
  38.     FPutLn 1, "@X04 @X70 @X0F█@X7F▓▒ @X07 @X7F▒▓@X07  @X04▄  @X07▐@X08▄░@X04▄    ·▌ @X8C! SECURiTY Vi0LATi0N ! @X04▐"
  39.     FPutLn 1, "@X08▐@X70 @X0F█@X7F▓▒░  @X70▐@X07  @X0F▄█@X7F▓▒@X70▀@X07 @X08▀▄@X0F█  @X04▐▌▄    ■▄               ▄■▌"
  40.     FPutLn 1, "@X08▐@X70 @X0F█@X7F▓▒░░  ▓@X0F█▀@X70▀@X7F▓@X0F██@X7F▓▓@X0F██▐ @X04■▐.▀▐▀▀ ■▀▀▐▐■▀▀▐▀▐▀▀▀▀▀"
  41.     FPutLn 1, "@X04 @X08█@X70 @X7F▒ @X07 @X7F▓@X0F█@X7F▓▒▓@X0F█@X7F▓@X0F█▌▀▌▀▌▀▌  @X04.  .       ▐   |·"
  42.     FPutLn 1, "@X04  @X08▀@X70 @X7F░ @X07 @X7F▓@X0F███@X7F▓@X07▀"
  43.     FPutLn 1, "@X07    @X08▀▀▀ @X70▄@X7F▓▓@X07▀"
  44.     FPutLn 1
  45.     FPutLn 1, "@X03USER·····: @X0B" + UN_Name()
  46.     FPutLn 1, "@X03LOCATiON·: @X0B" + UN_City()
  47.     FPutLn 1, "@X03LEVEL····: @X0B" + I2S(CurSec(), 10)
  48.     FPutLn 1
  49.     FPutLn 1, "@X05FAiLED SECURiTY CHECK ON·: @X0D" + STRING001 + "@X05.CFG"
  50.     FPutLn 1, "@X05WHiCH iS TiTLED AS·······: @X0D" + STRING002
  51.     FPutLn 1
  52.     FPutLn 1, "@X07PASSWORD SHOULD HAVE BEEN·: @X0F" + Upper(STRING004)
  53.     FPutLn 1, "@X07FiRST HE TYPED············: @X0C" + TSTRING005(1)
  54.     FPutLn 1, "@X07THEN HE TYPED·············: @X06" + TSTRING005(2)
  55.     FPutLn 1, "@X07HiS LAST TRY WAS··········: @X04" + TSTRING005(3)
  56.     FPutLn 1
  57.     Return
  58.     :LABEL003
  59.     If (Exist(TempPath() + "checked")) Goto LABEL007
  60.     FOpen 1, PPEPath() + "p!-secur.cfg", 0, 0
  61.     :LABEL004
  62.     FGet 1, STRING006
  63.     If (STRING006 == U_Name()) Goto LABEL005
  64.     If (!(STRING006 == "<EOF>")) Goto LABEL004
  65.     FClose 1
  66.     Goto LABEL007
  67.     :LABEL005
  68.     FClose 1
  69.     STRING001 = TempPath()
  70.     Delete STRING001 + "checked"
  71.     FCreate 1, STRING001 + "checked", 1, 0
  72.     FPutLn 1
  73.     FClose 1
  74.     PrintLn "@CLS@@POFF@@X0F     ▄@X70▀@X7F▒▓@X0F██████@X7F▓@X0F▄     @X04■▀▀▀·▀▀·■▀·▀▀■·■▀■·▀▀■▀▀■▀▀▀▀·■▀■▀▀■    @X0F▄@X7F▓@X0F██████@X7F▓▒@X70▀@X0F▄"
  75.     PrintLn "@X0F   @X70▀@X0F█@X7F▓▒ @X70█@X7F▒▓@X0F██@X7F▓▒▒▓@X0F█▄  @X04·▌                                  ▐  @X0F▄█@X7F▓▒▒▓@X0F██@X7F▓▒@X70█ @X7F▒▓@X0F█@X70▀@X07"
  76.     PrintLn "@X0F  @X70 @X0F█@X7F▓▒@X70■@X07 @X7F▓@X0F█▀  ▀@X08▐@X70■@X0F▀ @X70█@X0F▐ @X04▐ ▄▄▄■▄▄   ▄▄▄▄▄■▄▄.▄▄▄▄■▄▄▄▄■.▄▄  ▄▐▌@X0F▐@X70█@X07 @X0F▀@X70■@X08▐@X0F▀  ▀█@X7F▓@X07 @X70■@X7F▒▓@X0F█@X70 @X07"
  77.     PrintLn "@X0F @X70 @X0F█@X7F▓▒ @X07 @X7F▒▓@X07  @X04▄  @X07▐@X08▄░@X04▄   ■▌      ▀▀▀                     ▀▀▀ █   ▄@X08░▄@X07▐  @X04▄  @X7F▓▒@X07 @X70 @X7F▒▓@X0F█@X70 @X07"
  78.     PrintLn "@X08▐@X70 @X0F█@X7F▓▒░  @X70▐@X07  @X0F▄█@X7F▓▒@X70▀@X07 @X08▀▄@X0F█  @X04▌                                  ▐·@X0F█@X08▄▀ @X70▀@X7F▒▓@X0F█▄  @X70▐  @X7F░▒▓@X0F█@X70 @X08▌"
  79.     PrintLn "@X08▐@X70 @X0F█@X7F▓▒░░  ▓@X0F█▀@X70▀@X7F▓@X0F██@X7F▓▓@X0F██▐ @X04■                                  ■@X0F▐██@X7F▓▓@X0F██@X7F▓@X70▀@X0F▀█@X7F▓  ░░▒▓@X0F█@X70 @X08▌"
  80.     PrintLn "@X08 █@X70 @X7F▒ @X07 @X7F▓@X0F█@X7F▓▒▓@X0F█@X7F▓@X0F█▌▀▌▀▌▀▌ @X04·                                  ■@X0F▌▀▌▀▌▀▌█@X7F▓@X0F█@X7F▓▒▓@X0F█@X7F▓@X07 @X70 @X7F▒ @X08█"
  81.     PrintLn "@X08  ▀@X70 @X7F░ @X07 @X7F▓@X0F███@X7F▓@X07▀         @X04■                                  ▐ jk/pain@X07▀@X7F▓@X0F███@X7F▓@X07 @X70 @X7F░ @X08▀"
  82.     PrintLn "@X08    ▀▀▀ @X70▄@X7F▓▓@X07▀          @X04▌▄    ■▄                          ▄■         @X07▀@X7F▓▓@X70▄@X07 @X08▀▀▀"
  83.     PrintLn "@X08                      @X04▐.▀▐▀▀ ■▀▀▐▐■▀▀▐ ▀▀ ▀■▀▀▌▀▀▀▐▀▀▀▀▀"
  84.     PrintLn "@X04                      .  .       ▐            |"
  85.     FOpen 1, PPEPath() + "verify.cfg", 0, 0
  86.     FGet 1, STRING002
  87.     For INTEGER002 = 1 To 4
  88.         FGet 1, TSTRING003(INTEGER002)
  89.     Next
  90.     FGet 1, STRING004
  91.     FClose 1
  92.     For INTEGER002 = 1 To 4
  93.         If (TSTRING003(INTEGER002) <> "") Then
  94.             AnsiPos 24 + (34 - Len(StripAtx(TSTRING003(INTEGER002)))) / 2, 4 + INTEGER002
  95.             Print "@X01" + StripAtx(TSTRING003(INTEGER002))
  96.             Delay 1
  97.             AnsiPos 24 + (34 - Len(StripAtx(TSTRING003(INTEGER002)))) / 2, 4 + INTEGER002
  98.             Print "@X09" + StripAtx(TSTRING003(INTEGER002))
  99.             Delay 1
  100.             AnsiPos 24 + (34 - Len(StripAtx(TSTRING003(INTEGER002)))) / 2, 4 + INTEGER002
  101.             Print "@X03" + StripAtx(TSTRING003(INTEGER002))
  102.             Delay 1
  103.             AnsiPos 24 + (34 - Len(StripAtx(TSTRING003(INTEGER002)))) / 2, 4 + INTEGER002
  104.             Print "@X0B" + StripAtx(TSTRING003(INTEGER002))
  105.             Delay 2
  106.             AnsiPos 24 + (34 - Len(StripAtx(TSTRING003(INTEGER002)))) / 2, 4 + INTEGER002
  107.             Print "@X0C" + TSTRING003(INTEGER002)
  108.         Endif
  109.     Next
  110.     INTEGER002 = 1
  111.     :LABEL006
  112.     TSTRING005(INTEGER002) = ""
  113.     AnsiPos 24, 2
  114.     Print "                                  "
  115.     AnsiPos 24, 2
  116.     InputStr "_", TSTRING005(INTEGER002), 12, 34, Mask_Pwd(), 1 + 2
  117.     If (TSTRING005(INTEGER002) == STRING004) Goto LABEL007
  118.     AnsiPos 24, 2
  119.     Print "                                  "
  120.     AnsiPos 35, 2
  121.     Print "@X01iNC0RRECT!"
  122.     Delay 1
  123.     AnsiPos 35, 2
  124.     Print "@X09iNC0RRECT!"
  125.     Delay 1
  126.     AnsiPos 35, 2
  127.     Print "@X03iNC0RRECT!"
  128.     Delay 1
  129.     AnsiPos 35, 2
  130.     Print "@X0BiNC0RRECT!"
  131.     Delay 1
  132.     AnsiPos 35, 2
  133.     Print "@X0CiNC0RRECT!"
  134.     Delay 4
  135.     AnsiPos 35, 2
  136.     Print "@X06iNC0RRECT!"
  137.     Delay 3
  138.     AnsiPos 35, 2
  139.     Print "@X04iNC0RRECT!"
  140.     Delay 3
  141.     Inc INTEGER002
  142.     If (INTEGER002 < 4) Goto LABEL006
  143.     GetUser
  144.     Cls
  145.     Delete STRING001 + "checked"
  146.     PrintLn "@X04-(@X8C SECURiTY Vi0LATi0N @X04-@X0C L0CKiNG 0UT USER @X04)-"
  147.     Gosub LABEL002
  148.     FPutLn 1, "@X8AUSER HAS BEEN LOCKED OUT AND HUNG UP."
  149.     FPutLn 1
  150.     FPutLn 1, "@X01(THANX FOR USiNG PAiN!-PRODUCTiONS!)"
  151.     FClose 1
  152.     Message 0, STRING006, "PAiN!-SECURiTY", "SECURiTY ViOLATiON!", "R", 0, 0, 0, PPEPath() + "tmp.msg"
  153.     Delete PPEPath() + "tmp.msg"
  154.     For INTEGER002 = 1 To 5
  155.         Print "@BEEP@"
  156.         Sound 200
  157.         Delay 7
  158.         Print "@BEEP@"
  159.         Sound 1000
  160.         Delay 7
  161.     Next
  162.     U_Sec = 0
  163.     PutUser
  164.     Hangup
  165.     End
  166.     :LABEL007
  167.     End
  168.  
  169. ;------------------------------------------------------------------------------
  170. ;
  171. ; Usage report (before postprocessing)
  172. ;
  173. ; ■ Statements used :
  174. ;
  175. ;    2       End
  176. ;    1       Cls
  177. ;    15      Goto 
  178. ;    10      Let 
  179. ;    17      Print 
  180. ;    12      PrintLn 
  181. ;    10      If 
  182. ;    1       FCreate 
  183. ;    3       FOpen 
  184. ;    5       FClose 
  185. ;    4       FGet 
  186. ;    26      FPutLn 
  187. ;    1       Hangup
  188. ;    1       GetUser
  189. ;    1       PutUser
  190. ;    3       Delete 
  191. ;    1       InputStr 
  192. ;    1       Gosub 
  193. ;    1       Return
  194. ;    13      Delay 
  195. ;    1       Inc 
  196. ;    15      AnsiPos 
  197. ;    1       Message 
  198. ;    2       Sound 
  199. ;
  200. ;
  201. ; ■ Functions used :
  202. ;
  203. ;    5       /
  204. ;    38      +
  205. ;    5       -
  206. ;    4       ==
  207. ;    1       <>
  208. ;    4       <
  209. ;    3       <=
  210. ;    6       >=
  211. ;    5       !
  212. ;    6       &&
  213. ;    3       ||
  214. ;    5       Len(
  215. ;    1       Upper()
  216. ;    1       U_Name()
  217. ;    9       StripAtx()
  218. ;    1       Mask_Pwd()
  219. ;    5       PPEPath()
  220. ;    1       UN_Name()
  221. ;    1       UN_City()
  222. ;    1       CurSec()
  223. ;    1       Exist()
  224. ;    1       I2S()
  225. ;    2       TempPath()
  226. ;
  227. ;------------------------------------------------------------------------------
  228. ;
  229. ; Analysis flags : WB
  230. ;
  231. ; W - Write user ■ 5
  232. ;     Program writes a user record. Although this may be normal for a
  233. ;     User Editor, it may also be a way to modify an account level.
  234. ;     ■ Search for : PUTUSER
  235. ;
  236. ; B - Brute hangup ■ 1
  237. ;     Program hangup without notification. This may be a good way to
  238. ;     disconnect a user, but if used randomly, may be very nasty
  239. ;     ■ Search for : HANGUP, DTROFF
  240. ;
  241. ;------------------------------------------------------------------------------
  242. ;
  243. ; Postprocessing report
  244. ;
  245. ;    3       For/Next
  246. ;    0       While/EndWhile
  247. ;    1       If/Then or If/Then/Else
  248. ;    0       Select Case
  249. ;
  250. ;------------------------------------------------------------------------------
  251. ;                 AEGiS Corp - Break the routines, code against the machines!
  252. ;------------------------------------------------------------------------------
  253.