home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SEXUSVER.ZIP / USER.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-02-28  |  6KB  |  275 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.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     String   STRING001
  25.     String   STRING002
  26.     String   STRING003
  27.     String   STRING004
  28.     String   STRING005
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     If (!PPEPath() + "FSDKSJFDLKLJFSDKLJSDFKSLJFDKLJFSDKLJSDFKLJFSDKJLSDFKJLDFSKJL") Delay 0 ; PPLC BUG!
  33.     FOpen 1, PPEPath() + "USER.CFG", 0, 0
  34.     FGet 1, STRING003
  35.     FGet 1, STRING004
  36.     FGet 1, STRING005
  37.     FGet 1, INTEGER001
  38.     FGet 1, INTEGER002
  39.     FClose 1
  40.     :LABEL001
  41.     GetUser
  42.     If (U_Sec >= INTEGER001) Goto LABEL003
  43.     If (U_Sec >= INTEGER002) Goto LABEL002
  44.     Cls
  45.     PrintLn STRING003 + ".-----------------------------------------------------------------------------."
  46.     PrintLn STRING003 + "| @X08 @X05AMi-X User Verification Utility  @X07[@X08ACCESS LEVEL@X07:@X043@X07]                        @POS:79@" + STRING003 + "|"
  47.     PrintLn STRING003 + "|-----------------------------------------------------------------------------|"
  48.     PrintLn STRING003 + "| " + STRING004 + "Handle@X04...........@X03:                                              @POS:79@" + STRING003 + "|"
  49.     PrintLn STRING003 + "| " + STRING004 + "User Note@X04........@X03:                                              @POS:79@" + STRING003 + "|"
  50.     PrintLn STRING003 + "| " + STRING004 + "User Security@X04....@X03:                                              @POS:79@" + STRING003 + "|"
  51.     PrintLn STRING003 + "| " + STRING004 + "Last Time On@X04.....@X03:                                              @POS:79@" + STRING003 + "|"
  52.     PrintLn STRING003 + "|-----------------------------------------------------------------------------|"
  53.     PrintLn STRING003 + "|                                                                           @POS:79@" + STRING003 + "|"
  54.     PrintLn STRING003 + "`---------------------------------------@X07(@X08Coded by Cyber Demon@X07)" + STRING003 + "----@X07[@X04SEX'@X0995@X07]" + STRING003 + "----'"
  55.     STRING001 = ""
  56.     AnsiPos 3, 9
  57.     InputStr "@X06User Name   : _", STRING001, 1, 25, Mask_Ascii(), 4096
  58.     STRING001 = Upper(STRING001)
  59.     INTEGER003 = U_RecNum(STRING001)
  60.     If (INTEGER003 == "-1") Goto LABEL004
  61.     GetAltUser INTEGER003
  62.     AnsiPos 22, 4
  63.     Print STRING005 + U_Name()
  64.     AnsiPos 22, 5
  65.     Print STRING005 + U_City
  66.     AnsiPos 22, 6
  67.     Print STRING005 + U_Sec
  68.     AnsiPos 22, 7
  69.     Print STRING005 + String(U_LDate())
  70.     Goto LABEL005
  71.     :LABEL002
  72.     Cls
  73.     PrintLn STRING003 + ".-----------------------------------------------------------------------------."
  74.     PrintLn STRING003 + "|  @X05AMi-X User Verification Utility  @X07[@X08ACCESS LEVEL@X07:@X042@X07]                        @POS:79@" + STRING003 + "|"
  75.     PrintLn STRING003 + "|-----------------------------------------------------------------------------|"
  76.     PrintLn STRING003 + "| " + STRING004 + "Handle@X04...........@X03:                                              @POS:79@" + STRING003 + "|"
  77.     PrintLn STRING003 + "| " + STRING004 + "User Note@X04........@X03:                                              @POS:79@" + STRING003 + "|"
  78.     PrintLn STRING003 + "| " + STRING004 + "User Security@X04....@X03:                                              @POS:79@" + STRING003 + "|"
  79.     PrintLn STRING003 + "| " + STRING004 + "Last Time On@X04.....@X03:                                              @POS:79@" + STRING003 + "|"
  80.     PrintLn STRING003 + "| " + STRING004 + "Uploaded Bytes@X04...@X03:                                              @POS:79@" + STRING003 + "|"
  81.     PrintLn STRING003 + "| " + STRING004 + "Uploaded Files@X04...@X03:                                              @POS:79@" + STRING003 + "|"
  82.     PrintLn STRING003 + "| " + STRING004 + "Downloaded Bytes@X04.@X03:                                              @POS:79@" + STRING003 + "|"
  83.     PrintLn STRING003 + "| " + STRING004 + "Downloaded Files@X04.@X03:                                              @POS:79@" + STRING003 + "|"
  84.     PrintLn STRING003 + "| " + STRING004 + "Messages Posted@X04..@X03:                                              @POS:79@" + STRING003 + "|"
  85.     PrintLn STRING003 + "| " + STRING004 + "Number of logons@X04.@X03:                                              @POS:79@" + STRING003 + "|"
  86.     PrintLn STRING003 + "|-----------------------------------------------------------------------------|"
  87.     PrintLn STRING003 + "|                                                                           @POS:79@" + STRING003 + "|"
  88.     PrintLn STRING003 + "`---------------------------------------@X07(@X08Coded by Cyber Demon@X07)" + STRING003 + "----@X07[@X04SEX'@X0995@X07]" + STRING003 + "----'"
  89.     STRING001 = ""
  90.     AnsiPos 3, 15
  91.     InputStr "@X06User Name   : _", STRING001, 1, 25, Mask_Ascii(), 4096
  92.     STRING001 = Upper(STRING001)
  93.     INTEGER003 = U_RecNum(STRING001)
  94.     If (INTEGER003 == "-1") Goto LABEL004
  95.     GetAltUser INTEGER003
  96.     AnsiPos 22, 4
  97.     Print STRING005 + U_Name()
  98.     AnsiPos 22, 5
  99.     Print STRING005 + U_City
  100.     AnsiPos 22, 6
  101.     Print STRING005 + U_Sec
  102.     AnsiPos 22, 7
  103.     Print STRING005 + String(U_LDate())
  104.     AnsiPos 22, 8
  105.     Print STRING005 + U_Bul()
  106.     AnsiPos 22, 9
  107.     Print STRING005 + U_Ful()
  108.     AnsiPos 22, 10
  109.     Print STRING005 + U_Bdl()
  110.     AnsiPos 22, 11
  111.     Print STRING005 + U_Fdl()
  112.     AnsiPos 22, 12
  113.     Print STRING005 + U_MsgWr()
  114.     AnsiPos 22, 13
  115.     Print STRING005 + String(U_Logons())
  116.     Goto LABEL005
  117.     :LABEL003
  118.     Cls
  119.     PrintLn STRING003 + ".-----------------------------------------------------------------------------."
  120.     PrintLn STRING003 + "|  @X05AMi-X User Verification Utility  @X07[@X08ACCESS LEVEL@X07:@X041@X07]                    @POS:79@" + STRING003 + "|"
  121.     PrintLn STRING003 + "|-----------------------------------------------------------------------------|"
  122.     PrintLn STRING003 + "| " + STRING004 + "Handle@X04...........@X03:                                              @POS:79@" + STRING003 + "|"
  123.     PrintLn STRING003 + "| " + STRING004 + "Password@X04.........@X03:                                              @POS:79@" + STRING003 + "|"
  124.     PrintLn STRING003 + "| " + STRING004 + "User Note@X04........@X03:                                              @POS:79@" + STRING003 + "|"
  125.     PrintLn STRING003 + "| " + STRING004 + "User Security@X04....@X03:                                              @POS:79@" + STRING003 + "|"
  126.     PrintLn STRING003 + "| " + STRING004 + "Last Time On@X04.....@X03:                                              @POS:79@" + STRING003 + "|"
  127.     PrintLn STRING003 + "| " + STRING004 + "Uploaded Bytes@X04...@X03:                                              @POS:79@" + STRING003 + "|"
  128.     PrintLn STRING003 + "| " + STRING004 + "Uploaded Files@X04...@X03:                                              @POS:79@" + STRING003 + "|"
  129.     PrintLn STRING003 + "| " + STRING004 + "Downloaded Bytes@X04.@X03:                                              @POS:79@" + STRING003 + "|"
  130.     PrintLn STRING003 + "| " + STRING004 + "Downloaded Files@X04.@X03:                                              @POS:79@" + STRING003 + "|"
  131.     PrintLn STRING003 + "| " + STRING004 + "Messages Posted@X04..@X03:                                              @POS:79@" + STRING003 + "|"
  132.     PrintLn STRING003 + "| " + STRING004 + "Number of logons@X04.@X03:                                              @POS:79@" + STRING003 + "|"
  133.     PrintLn STRING003 + "|-----------------------------------------------------------------------------|"
  134.     PrintLn STRING003 + "|                                                                           @POS:79@" + STRING003 + "|"
  135.     PrintLn STRING003 + "`---------------------------------------@X07(@X08Coded by Cyber Demon@X07)" + STRING003 + "----@X07[@X04SEX'@X0995@X07]" + STRING003 + "----'"
  136.     STRING001 = ""
  137.     AnsiPos 3, 16
  138.     InputStr "@X06User Name   : _", STRING001, 1, 25, Mask_Ascii(), 4096
  139.     STRING001 = Upper(STRING001)
  140.     INTEGER003 = U_RecNum(STRING001)
  141.     If (INTEGER003 == "-1") Goto LABEL004
  142.     GetAltUser INTEGER003
  143.     AnsiPos 22, 4
  144.     Print STRING005 + U_Name()
  145.     AnsiPos 22, 5
  146.     Print STRING005 + U_Pwd
  147.     AnsiPos 22, 6
  148.     Print STRING005 + U_City
  149.     AnsiPos 22, 7
  150.     Print STRING005 + U_Sec
  151.     AnsiPos 22, 8
  152.     Print STRING005 + String(U_LDate())
  153.     AnsiPos 22, 9
  154.     Print STRING005 + U_Bul()
  155.     AnsiPos 22, 10
  156.     Print STRING005 + U_Ful()
  157.     AnsiPos 22, 11
  158.     Print STRING005 + U_Bdl()
  159.     AnsiPos 22, 12
  160.     Print STRING005 + U_Fdl()
  161.     AnsiPos 22, 13
  162.     Print STRING005 + U_MsgWr()
  163.     AnsiPos 22, 14
  164.     Print STRING005 + String(U_Logons())
  165.     Goto LABEL005
  166.     :LABEL004
  167.     AnsiPos 3, GetY()
  168.     Print "@X04User Not Found . . .                                               "
  169.     BOOLEAN001 = 1
  170.     Delay 10
  171.     AnsiPos 3, 15
  172.     If (U_Sec >= INTEGER002) AnsiPos 3, 16
  173.     If (U_Sec < INTEGER002) AnsiPos 3, 9
  174.     Print "                    "
  175.     Backup 22
  176.     :LABEL005
  177.     If (BOOLEAN001 == 1) Then
  178.         INTEGER004 = GetY()
  179.     Else
  180.         INTEGER004 = GetY() + 2
  181.     Endif
  182.     AnsiPos 3, INTEGER004
  183.     Print "@X08(@X07N@X08)ew Search (@X07Q@X08)uit ·· »@X03 Q @X08«"
  184.     BOOLEAN001 = 0
  185.     Backup 3
  186.     InputStr "@POS:3@@X05_", STRING002, 1, 1, "QNqn", 4096
  187.     STRING002 = Upper(STRING002)
  188.     If (STRING002 == "N") Goto LABEL001
  189.     End
  190.  
  191. ;------------------------------------------------------------------------------
  192. ;
  193. ; Usage report (before postprocessing)
  194. ;
  195. ; ■ Statements used :
  196. ;
  197. ;    1       End
  198. ;    3       Cls
  199. ;    11      Goto 
  200. ;    14      Let 
  201. ;    28      Print 
  202. ;    43      PrintLn 
  203. ;    10      If 
  204. ;    1       FOpen 
  205. ;    1       FClose 
  206. ;    5       FGet 
  207. ;    1       GetUser
  208. ;    4       InputStr 
  209. ;    2       Delay 
  210. ;    33      AnsiPos 
  211. ;    2       Backup 
  212. ;    3       GetAltUser 
  213. ;
  214. ;
  215. ; ■ Functions used :
  216. ;
  217. ;    195     +
  218. ;    5       ==
  219. ;    1       <
  220. ;    3       >=
  221. ;    36      !
  222. ;    4       Upper()
  223. ;    3       U_Name()
  224. ;    3       U_LDate()
  225. ;    2       U_Logons()
  226. ;    2       U_Ful()
  227. ;    2       U_Fdl()
  228. ;    2       U_Bdl()
  229. ;    2       U_Bul()
  230. ;    5       String()
  231. ;    3       Mask_Ascii()
  232. ;    2       PPEPath()
  233. ;    2       U_MsgWr()
  234. ;    3       GetY()
  235. ;    3       U_RecNum()
  236. ;
  237. ;------------------------------------------------------------------------------
  238. ;
  239. ; Analysis flags : RH
  240. ;
  241. ; R - Read user ■ 5
  242. ;     User records are read, this may signify that someone wants to get
  243. ;     various informations about a user (for example his password), but
  244. ;     this may also be normal for a program accessing user records (for
  245. ;     example a User Editor)
  246. ;     ■ Search for : GETALTUSER
  247. ;
  248. ; H - Read Password or Password History ■ 5
  249. ;     Program is reading the user's password or last password history
  250. ;     This may be ok for a password manager, but it is very suspect. Check!
  251. ;     ■ Search for : U_PWDHIST, U_PWD
  252. ;
  253. ;
  254. ;------------------------------------------------------------------------------
  255. ;
  256. ;     One or more PPLC bugs were found, this is not a PPLX error, but PPLX is  
  257. ;     reporting the error ;)  Some statements  like VAR = !!!!10, VAR = !0*!0  
  258. ;     or similar things are not handled  correctly by PPLC, some may use this  
  259. ;     to  avoid a  correct decompilation...  This doesn't mean that there  is  
  260. ;     actually an error, but the probability of error is high...               
  261. ;     ■ Search for : PPLC BUG
  262. ;
  263. ;------------------------------------------------------------------------------
  264. ;
  265. ; Postprocessing report
  266. ;
  267. ;    0       For/Next
  268. ;    0       While/EndWhile
  269. ;    1       If/Then or If/Then/Else
  270. ;    0       Select Case
  271. ;
  272. ;------------------------------------------------------------------------------
  273. ;                 AEGiS Corp - Break the routines, code against the machines!
  274. ;------------------------------------------------------------------------------
  275.