1 / 314

;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ-- -- -- - - - - - -

;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ-- -- -- - - - - - -. ;³Ultra Logon v2.5b. ;³Released 11.14.96. ;À-- -- -- - - - - - <-by BooGer->. String DatFile1, DatFile2, Ver, LogFile. Integer N, M, Er, X, Y, G. Ver = "v2.5". LogFile = PpePath() + "UL.LOG".

bijan
Download Presentation

;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ-- -- -- - - - - - -

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. ;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ-- -- -- - - - - - -

  2. ;³Ultra Logon v2.5b

  3. ;³Released 11.14.96

  4. ;À-- -- -- - - - - - <-by BooGer->

  5. String DatFile1, DatFile2, Ver, LogFile

  6. Integer N, M, Er, X, Y, G

  7. Ver = "v2.5"

  8. LogFile = PpePath() + "UL.LOG"

  9. DatFile1 = PpePath() + "ULOGON.PCB"

  10. DatFile2 = PpePath() + "ULOGON.CFG"

  11. FAppend 2, LogFile, O_RW, 0

  12. :FindToken

  13. N = GetToken()

  14. If (N = 259) Goto InName

  15. If (N = 148) Goto InPassword

  16. If (N <> 260) Then

  17. FPutLn 2, " -Invalid Token"

  18. End

  19. EndIf

  20. KbdStuff Chr(13)

  21. End

  22. :InName

  23. FPutLn 2, "UltraLogon Started at " +String(Time())

  24. FPutLn 2, " Name Sequence Started "

  25. Cls

  26. Gosub ULLogo

  27. X = ReadLine(DatFile2,1)

  28. Y = ReadLine(DatFile2,2)

  29. DispFile DatFile1, 0

  30. AnsiPos X, Y

  31. ; This IEMSI Support Section was originated is (C)1996, PAUL MILLER

  32. ; for use with IEMSI Auto Logon 1.01

  33. ; -[Begin]----------------------------------------------------------

  34. BigStr Client_Packet ; entire EMSI_ICI data packet

  35. String ICI_Name ; name of client (case insensitive)

  36. String ICI_Alias ; name/alias of client (case insensitive)

  37. String ICI_Location ; geographical location of client

  38. String ICI_Data# ; unformatted, full data telephone number

  39. String ICI_Voice# ; unformatted, full voice telephone number

  40. String ICI_Password ; client password (case insensitive)

  41. String ICI_Birthdate ; hexadecimal of birth date (UNIX)

  42. String ICI_CrtDef ; requested terminal emulation protocol

  43. String ICI_Protocol ; preferred file transfer protocol

  44. String ICI_Capabilities ; capabilities of client's software

  45. String ICI_Requests ; client system requests - NEWS, MAIL, • ; FILE, HOT, CLR, HUSH, MORE, FSED, XPRS

  46. String ICI_Software ; name, version, serial number of software

  47. String ICI_XLatTabl ; character translation server:client

  48. Integer UserNum ; user/record number of user name

  49. G = FNext()

  50. FOpen G, "IEMSI."+ToString(PCBNode()), O_RD, S_DN

More Related