1
0

hsoauth.comgt 404 B

12345678910111213141516171819202122232425262728293031323334
  1. opengt
  2. set com 115200n81
  3. set senddelay 0.02
  4. waitquiet 1 0.2
  5. :start
  6. flash 0.1
  7. :getuser
  8. let $u=$env("USER")
  9. let a=len($u)
  10. if a=0 goto continue
  11. :getpass
  12. let $p=$env("PASS")
  13. :auth
  14. print "User: ",$u,"\n"
  15. print "Pass: ",$p,"\n"
  16. send "AT$QCPDPP=1,1,\""
  17. send $p
  18. send "\",\""
  19. send $u
  20. send "\"^m"
  21. waitfor 2 "OK"
  22. if % = -1 goto error
  23. if % = 0 goto continue
  24. :error
  25. exit 1
  26. :continue
  27. exit 0