home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PWFAIL11.ZIP / PW-FAIL.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1993-09-18  |  5KB  |  204 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 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING002
  20.     String   STRING003
  21.     String   STRING004
  22.     String   STRING005
  23.     String   STRING006
  24.  
  25. ;------------------------------------------------------------------------------
  26.  
  27.     GetUser
  28.     AdjTime 10
  29.     Log PPEName(), ""
  30.     PrintLn 
  31.     Print "@CLS@"
  32.     PrintLn "                          Password failure v1.1"
  33.     PrintLn 
  34.     PrintLn 
  35.     PrintLn "@X0F▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒"
  36.     PrintLn "@X0F▒▒ It is obvious that you have @X0Bforgotten @X0F@X0Fyour @X0Cpassword@X0F. If you know remember ▒▒"
  37.     PrintLn "@X0F▒▒ your @X0DVERIFICATION @X0Fword, you may enter that now and your password will be  ▒▒"
  38.     PrintLn "▒▒ @X0Frevealed to you. @X07You will then have to @X0Ecall back and relog on. @X0F           ▒▒"
  39.     PrintLn 15
  40.     PrintLn 
  41.     STRING002 = ""
  42.     STRING006 = ""
  43.     InputText "@X0FWhat is your @X0Ahome/voice phone number @X07", STRING006, 14, 12
  44.     PrintLn 
  45.     Log STRING006, ""
  46.     InputStr "@X0FWhat is your @X0Dverfication@X0F word @X07", STRING002, 14, 30, Mask_Ascii(), 2 + 4 + 8
  47.     If (STRING002 == "") Goto LABEL001
  48.     If (STRING002 == U_Ver) Goto LABEL005
  49.     If (STRING002 <> U_Ver) Goto LABEL001
  50.     :LABEL001
  51.     PrintLn "@CLS@ That @X0Cdidn't @X0Fmatch your @X0Bverication word. @X0FYou will now need to leave"
  52.     PrintLn " a message and choose a new word or be voice verified"
  53.     PrintLn 
  54.     PrintLn "@X1E@X70 Is THIS     @X07  User Name      : @X0E@USER@"
  55.     PrintLn "@X1E@X70 INFORMATION @X07  City/State     : @X0F@CITY@"
  56.     PrintLn "@X5F@X6E@X1E@X7E @X70CORRECT     @X07  Last Time On   : @X0B@LASTDATEON@ @X0Aat @X0B@LASTTIMEON@"
  57.     PrintLn 
  58.     STRING002 = ""
  59.     InputYN "@X0FDoes the above information belong to you", STRING002, 14
  60.     If (STRING002 <> YesChar()) Goto LABEL004
  61.     PrintLn "@CLS@@X0FIf you are a @XDF@X0Dregistered @X05@X07user on this system@X07 and simply forgot your password"
  62.     PrintLn "then we can help you out, by @X0Bchanging @X0Fyour @X0Cpassword @X07for you, if you wil first"
  63.     PrintLn "verify the following information for us:"
  64.     PrintLn 
  65.     PrintLn "@X38┌─────────────────────────────────────────────────────────────────────────@X3B┐@X07"
  66.     PrintLn "@X38│@X3E  a) Your voice @X3Fphone number@X3E                                             @X3B│@X07"
  67.     PrintLn "@X38│@X3E  b) The @X3Fnew password@X3E you would like to use on this system               @X3B│@X07"
  68.     PrintLn "@X38│                                                                         @X3B│@X07"
  69.     PrintLn "@X38│@X31We need @X3CBOTH@X31 pieces of information in order to change your password!!    @X3B│@X07"
  70.     PrintLn "@X38└@X3B─────────────────────────────────────────────────────────────────────────┘@X07"
  71.     PrintLn 
  72.     STRING002 = ""
  73.     AdjTime 5
  74.     STRING003 = ""
  75.     STRING004 = ""
  76.     :LABEL002
  77.     PrintLn 
  78.     PrintLn 
  79.     InputText "What is your voice phone number", STRING003, 14, 20
  80.     PrintLn 
  81.     InputText "What would you like your NEW PASSWORD to be", STRING004, 14, 12
  82.     PrintLn 
  83.     PrintLn 
  84.     STRING002 = ""
  85.     InputYN "@X0BIs all of the above information correct@X0F (Y/N Enter = Y)", STRING002, 14
  86.     PrintLn 
  87.     If (STRING002 == YesChar()) Goto LABEL003
  88.     If (STRING002 == NoChar()) Goto LABEL002
  89.     :LABEL003
  90.     PrintLn "@CLS@@X03@X0A"
  91.     PrintLn "@X0FYour answers will be placed into a @X0CCOMMENT @X0Fwhere the Sysop can read them"
  92.     PrintLn "@X0Fand process your request.  This is usually done within a few hours."
  93.     PrintLn 
  94.     PrintLn "@X0BYou will now be placed into the @X0Cmessage editor @X0Bwhere you may provide any"
  95.     PrintLn "other @X0Ecomments @X0Fand/or edit the answers you have given."
  96.     PrintLn 
  97.     Wait
  98.     KbdStuff "Y" + Chr(13)
  99.     If ((U_FSEP == 1) && (U_FSE == 0)) KbdStuff "N" + Chr(13)
  100.     KbdStuff "@X0CVoice Number: @X0B" + STRING003 + Chr(13)
  101.     KbdStuff "@X0ENew Password:@X0A " + STRING004 + Chr(13)
  102.     KbdStuff "@X0DI forgot my password! @X0ECould you verify me and change it@X0F?" + Chr(13)
  103.     PrintLn 
  104.     End
  105.     :LABEL004
  106.     PrintLn 
  107.     PrintLn "@CLS@@X0FSince that user information did NOT belong to you@X0F, please call back using a"
  108.     PrintLn "different user-id, perhaps adding a middle initial to make your logon-id unique"
  109.     PrintLn "for this system."
  110.     PrintLn "@X0A"
  111.     PrintLn "@X0FHere's an example of how to log on with a middle initial:"
  112.     PrintLn 
  113.     PrintLn "    @X0EEnter your first name?  @X07JOHN Q. PUBLIC"
  114.     PrintLn 
  115.     PrintLn "@X0AOr any other variation on your user-id may work."
  116.     PrintLn 
  117.     Wait
  118.     PrintLn 
  119.     PrintLn "Please hang up now and try logging in again."
  120.     PrintLn 
  121.     KbdStuff "N" + Chr(13)
  122.     Goto LABEL006
  123.     :LABEL005
  124.     PrintLn "@CLS@@X07"
  125.     STRING005 = "@X07Y@X0Four @X07p@X0Fassword @X07i@X0Fs: @X0C@X0E" + U_Pwd
  126.     PrintLn 
  127.     PrintLn STRING005
  128.     PrintLn 
  129.     PrintLn "Please call back and re-log onto the BBS"
  130.     Wait
  131.     U_Ver = STRING002
  132.     PutUser
  133.     :LABEL006
  134.     KbdStuff "Y" + Chr(13)
  135.     Goodbye
  136.  
  137. ;------------------------------------------------------------------------------
  138. ;
  139. ; Usage report (before postprocessing)
  140. ;
  141. ; ■ Statements used :
  142. ;
  143. ;    1       End
  144. ;    3       Wait
  145. ;    7       Goto 
  146. ;    9       Let 
  147. ;    1       Print 
  148. ;    62      PrintLn 
  149. ;    7       If 
  150. ;    1       GetUser
  151. ;    1       PutUser
  152. ;    2       AdjTime 
  153. ;    2       Log 
  154. ;    1       InputStr 
  155. ;    2       InputYN 
  156. ;    3       InputText 
  157. ;    7       KbdStuff 
  158. ;    1       Goodbye
  159. ;
  160. ;
  161. ; ■ Functions used :
  162. ;
  163. ;    12      +
  164. ;    6       ==
  165. ;    2       <>
  166. ;    1       &&
  167. ;    7       Chr()
  168. ;    1       NoChar()
  169. ;    2       YesChar()
  170. ;    1       Mask_Ascii()
  171. ;    1       PPEName()
  172. ;
  173. ;------------------------------------------------------------------------------
  174. ;
  175. ; Analysis flags : WAH
  176. ;
  177. ; W - Write user ■ 5
  178. ;     Program writes a user record. Although this may be normal for a
  179. ;     User Editor, it may also be a way to modify an account level.
  180. ;     ■ Search for : PUTUSER
  181. ;
  182. ; A - Adjust online time remaining ■ 5
  183. ;     Program modify the amount of online time remaining, this may
  184. ;     be a way to bypass time limits
  185. ;     ■ Search for : ADJTIME
  186. ;
  187. ; H - Read Password or Password History ■ 5
  188. ;     Program is reading the user's password or last password history
  189. ;     This may be ok for a password manager, but it is very suspect. Check!
  190. ;     ■ Search for : U_PWDHIST, U_PWD
  191. ;
  192. ;------------------------------------------------------------------------------
  193. ;
  194. ; Postprocessing report
  195. ;
  196. ;    0       For/Next
  197. ;    0       While/EndWhile
  198. ;    0       If/Then or If/Then/Else
  199. ;    0       Select Case
  200. ;
  201. ;------------------------------------------------------------------------------
  202. ;                 AEGiS Corp - Break the routines, code against the machines!
  203. ;------------------------------------------------------------------------------
  204.