1 / 58

; KEY 259

; KEY 259. ;. ; Program SYSPWD-Check. ; Config:. ; 1 Hide System-PWD ? Y TEST. ; 2 Replace PWD with following STRING *** PWD CONFIRMED ***. ; 3 Backscreen C:pcbppeleer.ans. ; 4 X Y Position, Maxlen, Maxtries 33 2 12 3.

tasya
Télécharger la présentation

; KEY 259

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ; KEY 259

  2. ;

  3. ; Program SYSPWD-Check

  4. ; Config:

  5. ; 1 Hide System-PWD ? Y TEST

  6. ; 2 Replace PWD with following STRING *** PWD CONFIRMED ***

  7. ; 3 Backscreen C:\pcb\ppe\leer.ans

  8. ; 4 X Y Position, Maxlen, Maxtries 33 2 12 3

  9. ; 5 Y/N Display <File> on .X. mismatches Y C:\pcb\ppe\hangup.ans

  10. ; 6 X Y Position, Maxlen 18 4 12

  11. ; (HANDLE)

  12. STRING tmp, pwd, hide, backfile, showhang, hangfile, reptxt

  13. INTEGER error, x, y, xh, yh, maxlen, maxlenh, maxtries

  14. BEGIN

  15. tmp=READLINE(PPEPATH()+"SYSPWD.CFG",1)

  16. TOKENIZE tmp

  17. GETTOKEN hide

  18. GETTOKEN pwd

  19. reptxt=READLINE(PPEPATH()+"SYSPWD.CFG",2)

  20. backfile=READLINE(PPEPATH()+"SYSPWD.CFG",3)

  21. tmp=READLINE(PPEPATH()+"SYSPWD.CFG",4)

  22. TOKENIZE tmp

  23. GETTOKEN x

  24. GETTOKEN y

  25. GETTOKEN maxlen

  26. GETTOKEN maxtries

  27. tmp=READLINE(PPEPATH()+"SYSPWD.CFG",5)

  28. TOKENIZE tmp

  29. GETTOKEN showhang

  30. IF (UPPER(showhang)="Y") GETTOKEN hangfile

  31. tmp=READLINE(PPEPATH()+"SYSPWD.CFG",6)

  32. TOKENIZE tmp

  33. GETTOKEN xh

  34. GETTOKEN yh

  35. GETTOKEN maxlenh

  36. FCLOSEALL

  37. ERROR=0

  38. CLS

  39. DISPFILE backfile,GRAPH

  40. :checksys

  41. ANSIPOS x,y

  42. IF (UPPER(hide)="Y") INPUTSTR "_",tmp,0,maxlen,"qwertzuiop+asdfgh@jkl”„#yxcvbnm,.-<>QWERTZUIOPš*ASDFGHJKL™Ž'YXCVBNM;:_!$%&/()=?`ø^1234567890|~ýü ",ECHODOTS

  43. IF (UPPER(hide)!="Y") INPUTSTR "_",tmp,0,maxlen,"qwertzuiop+asdfgh@jkl”„#yxcvbnm,.-<>QWERTZUIOPš*ASDFGHJKL™Ž'YXCVBNM;:_!$%&/()=?`ø^1234567890|~ýü ",0

  44. IF (UPPER(tmp)=UPPER(pwd)) goto checkhandle

  45. INC error

  46. IF (error=maxtries) goto falsch

  47. ANSIPOS x,y

  48. print SPACE(LEN(tmp))

  49. goto checksys

  50. :falsch

More Related