API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 20th, 2019
133
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 25.42 KB | None | 0 0
raw download clone embed print report
  1. !include sbbsdefs.inc
  2. !include file_io.inc
  3. !include dir_attr.inc
  4.  
  5. INT var_657bbd92
  6. INT var_bff13a6e
  7. INT var_b05bd3fc
  8. INT var_85009ab4
  9. INT var_f6d79d09
  10. INT var_5a6dc01b
  11. INT var_d9f724ae
  12. INT var_d6bb3c52
  13. INT var_259bc567
  14. INT var_603c4198
  15. INT var_9135552d
  16. INT var_18dcfea2
  17. INT var_5cbdc3ad
  18. INT var_d03d191d
  19. INT var_90191091
  20. INT var_847a78a0
  21. INT var_44f4c379
  22. INT var_f45b0b8a
  23. INT var_6a0731ca
  24. INT var_f383ca95
  25. INT var_095621d9
  26. INT var_166c7fde
  27. INT var_4600639c
  28. INT var_bc792fd4
  29. INT var_b17caf1d
  30. INT i
  31. INT t
  32. INT c
  33. STR var_aff31e29
  34. STR var_2e737dc9
  35. STR var_5374a9cc
  36. STR var_91339589
  37. STR var_610c12d1
  38. STR var_b60acbd8
  39. STR var_7bfed70e
  40. STR var_34058c59
  41. STR bbs_name
  42. STR var_a852a950
  43. STR var_49375341
  44. STR var_5f8ef9fe
  45. STR var_8f3c989b
  46. STR var_4c71737b
  47. STR var_65208ec1
  48. STR var_3d6a7529
  49. STR var_5a2fb001
  50. STR time
  51. STR date
  52. STR var_d8a67b73
  53. STR var_3a028b43
  54. STR var_69d3af22
  55. STR var_fd6f2eaa
  56. STR var_3a29e9fc
  57. STR var_6a99c89f
  58. STR var_8c761b05
  59. STR var_7c5110f5
  60. SET var_5374a9cc "1.6"
  61. FOPEN var_d6bb3c52 1 "%n../baja/telval/telval.cfg"
  62. IF_FALSE
  63. SPRINTF STR "\n\r\n\x01nError Loading Configuration File - %%n..//baja//telval//telval16.cfg"
  64. PRINTF "%s" STR
  65. PRINT "\n\r"
  66. PAUSE
  67. HANGUP
  68. RETURN
  69. END_IF
  70. FREAD_LINE var_d6bb3c52 bbs_name
  71. TRUNCSP bbs_name
  72. FREAD_LINE var_d6bb3c52 var_a852a950
  73. TRUNCSP var_a852a950
  74. COPY var_259bc567 var_a852a950
  75. FREAD_LINE var_d6bb3c52 var_d8a67b73
  76. TRUNCSP var_d8a67b73
  77. COPY var_166c7fde var_d8a67b73
  78. FREAD_LINE var_d6bb3c52 var_7bfed70e
  79. TRUNCSP var_7bfed70e
  80. FREAD_LINE var_d6bb3c52 var_34058c59
  81. TRUNCSP var_34058c59
  82. FREAD_LINE var_d6bb3c52 var_49375341
  83. TRUNCSP var_49375341
  84. FREAD_LINE var_d6bb3c52 var_5f8ef9fe
  85. TRUNCSP var_5f8ef9fe
  86. FREAD_LINE var_d6bb3c52 var_4c71737b
  87. TRUNCSP var_4c71737b
  88. FREAD_LINE var_d6bb3c52 var_65208ec1
  89. TRUNCSP var_65208ec1
  90. FREAD_LINE var_d6bb3c52 var_5a2fb001
  91. TRUNCSP var_5a2fb001
  92. FREAD_LINE var_d6bb3c52 var_3d6a7529
  93. TRUNCSP var_3d6a7529
  94. FREAD_LINE var_d6bb3c52 var_7c5110f5
  95. TRUNCSP var_7c5110f5
  96. FCLOSE var_d6bb3c52
  97. SET var_b05bd3fc 0
  98. SET var_85009ab4 0
  99. SET var_4600639c 0
  100. SET var_603c4198 0
  101. COMPARE var_7bfed70e "YES"
  102. IF_TRUE
  103. SET var_603c4198 1
  104. END_IF
  105. SET var_9135552d 0
  106. COMPARE var_34058c59 "YES"
  107. IF_TRUE
  108. SET var_9135552d 1
  109. END_IF
  110. SET var_18dcfea2 0
  111. COMPARE var_49375341 "YES"
  112. IF_TRUE
  113. SET var_18dcfea2 1
  114. END_IF
  115. SET var_5cbdc3ad 0
  116. COMPARE var_5f8ef9fe "YES"
  117. IF_TRUE
  118. SET var_5cbdc3ad 1
  119. END_IF
  120. SET var_f45b0b8a 0
  121. COMPARE var_4c71737b "YES"
  122. IF_TRUE
  123. SET var_f45b0b8a 1
  124. END_IF
  125. SET var_6a0731ca 0
  126. COMPARE var_65208ec1 "YES"
  127. IF_TRUE
  128. SET var_6a0731ca 1
  129. END_IF
  130. SET var_f383ca95 0
  131. COMPARE var_3d6a7529 "YES"
  132. IF_TRUE
  133. SET var_f383ca95 1
  134. END_IF
  135. SET var_095621d9 0
  136. COMPARE var_5a2fb001 "YES"
  137. IF_TRUE
  138. SET var_095621d9 1
  139. END_IF
  140. CLS
  141. PRINTF "\x01n\x01h\x01cTelnet Verifier \x01n\x01cv\x01h%s \x01n\x01cby \x01wPistolGrip\x01n\r\n" var_5374a9cc
  142. SPRINTF STR "%%n..//baja//telval//enter.asc"
  143. PRINTFILE_STR
  144. :label_043b
  145. CMD_HOME
  146. CLS
  147. PRINTF "\x01n\x01h\x01cTelnet Verifier \x01n\x01cv\x01h%s \x01n\x01cby \x01wPistolGrip\x01n\r\n" var_5374a9cc
  148. SPRINTF STR "%%n..//baja//telval//menu.asc"
  149. PRINTFILE_STR
  150. PRINT "\r\n\x01n\x01h\x01cSelect Option \x01n\x01c(\x01h\x01wVUHEOQ?\x01n\x01c) \x01h\x01m: \x01w"
  151. GETCMD "VUHEOQ?"
  152. CMDKEY ?
  153. END_CMD
  154. CMDKEY E
  155. SETSTR "1"
  156. MAIL_SEND_FEEDBACK
  157. END_CMD
  158. CMDKEYS Q^C /
  159. COMPARE var_603c4198 1
  160. IF_FALSE
  161. SPRINTF STR "Exiting Telnet Verifier\r\n"
  162. LOG "%s"
  163. SPRINTF STR "TELVAL - Node %%# Exiting Telnet Verifier\r\n"
  164. PRINT_LOCAL "%s"
  165. RETURN
  166. ELSE
  167. COMPARE _USERON.LEVEL var_a852a950
  168. IF_GREATER
  169. SPRINTF STR "Exiting Telnet Verifier\r\n"
  170. LOG "%s"
  171. SPRINTF STR "TELVAL - Node %%# Exiting Telnet Verifier\r\n"
  172. PRINT_LOCAL "%s"
  173. RETURN
  174. END_IF
  175. COMPARE var_85009ab4 1
  176. IF_TRUE
  177. SPRINTF STR "Exiting Telnet Verifier\r\n"
  178. LOG "%s"
  179. SPRINTF STR "TELVAL - Node %%# Exiting Telnet Verifier\r\n"
  180. PRINT_LOCAL "%s"
  181. RETURN
  182. END_IF
  183. CLS
  184. PRINTF "\x01n\x01h\x01cTelnet Verifier \x01n\x01cv\x01h%s \x01n\x01cby \x01wPistolGrip\x01n\r\n" var_5374a9cc
  185. SPRINTF STR "%%n..//baja//telval//force.asc"
  186. PRINTFILE_STR
  187. END_IF
  188. END_CMD
  189. CMDKEY O
  190. NO_YES "\r\nAre you sure you wish to Logoff"
  191. IF_FALSE
  192. CLS
  193. PRINTF "\x01n\x01h\x01cTelnet Verifier \x01n\x01cv\x01h%s \x01n\x01cby \x01wPistolGrip\x01n\r\n" var_5374a9cc
  194. SPRINTF STR "%%n..//baja//telval//logoff.asc"
  195. PRINTFILE_STR
  196. HANGUP
  197. SPRINTF STR "+ Logged Off From the Telnet Verifier\r\n"
  198. LOG "%s"
  199. SPRINTF STR "TELVAL - Node %%# + Logged Off From the Telnet Verifier\r\n"
  200. PRINT_LOCAL "%s"
  201. RETURN
  202. END_IF
  203. END_CMD
  204. CMDKEY H
  205. CLS
  206. PRINTF "\x01n\x01h\x01cTelnet Verifier \x01n\x01cv\x01h%s \x01n\x01cby \x01wPistolGrip\x01n\r\n" var_5374a9cc
  207. SPRINTF STR "%%n..//baja//telval//help.asc"
  208. PRINTFILE_STR
  209. END_CMD
  210. CMDKEY V
  211. COMPARE _USERON.LEVEL var_a852a950
  212. IF_GREATER
  213. CLS
  214. PRINTF "\x01n\x01h\x01cTelnet Verifier \x01n\x01cv\x01h%s \x01n\x01cby \x01wPistolGrip\x01n\r\n" var_5374a9cc
  215. SPRINTF STR "%%n..//baja//telval//toohigh.asc"
  216. PRINTFILE_STR
  217. CMD_POP
  218. GOTO label_043b
  219. END_IF
  220. FOPEN var_bff13a6e 4 "%n../baja/telval/telval.dat"
  221. IF_TRUE
  222. :label_08cc
  223. FEOF var_bff13a6e
  224. IF_TRUE
  225. FCLOSE var_bff13a6e
  226. GOTO label_0e85
  227. END_IF
  228. FREAD var_bff13a6e var_3a028b43 40
  229. FREAD var_bff13a6e var_91339589 40
  230. FREAD var_bff13a6e var_b60acbd8 40
  231. FREAD var_bff13a6e var_69d3af22 40
  232. FREAD var_bff13a6e var_3a29e9fc 40
  233. FREAD var_bff13a6e var_fd6f2eaa 40
  234. FREAD var_bff13a6e var_6a99c89f 40
  235. FREAD var_bff13a6e var_8c761b05 40
  236. FREAD var_bff13a6e var_b05bd3fc 4
  237. FREAD var_bff13a6e var_bc792fd4 4
  238. FREAD var_bff13a6e var_b17caf1d 4
  239. TRUNCSP var_3a028b43
  240. COMPARE var_3a028b43 _USERON.ALIAS
  241. IF_TRUE
  242. COMPARE var_bc792fd4 var_166c7fde
  243. IF_GREATER_OR_EQUAL
  244. PRINTF "\r\n\r\n\x01n\x01h\x01ySorry, You have sent \x01w%ld \x01yEmails Already. Email the Sysop for validation." var_4600639c
  245. FCLOSE var_bff13a6e
  246. CMD_POP
  247. GOTO label_043b
  248. END_IF
  249. PRINTF "\r\n\r\n\x01n\x01hValidation Email has already been sent to : \x01m%s\x01n" var_91339589
  250. NO_YES "\r\n\r\nWould you like to send another Email this Address"
  251. IF_FALSE
  252. PRINT "\r\n\r\n\x01n\x01hSending Email \x01b\x01;.\x01;\x01g.\x01;\x01m.\x01; "
  253. FOPEN var_5a6dc01b 770 "%ntelval.tmp"
  254. IF_FALSE
  255. PRINTF "\r\n\x01nError opening TMP File!\r\n\x01p"
  256. FCLOSE var_bff13a6e
  257. CMD_POP
  258. GOTO label_043b
  259. ELSE
  260. FPRINTF var_5a6dc01b "%%a\r\n0\r\n%s\r\nTelnet Verifier\r\n0\r\n%s - Telnet Validation" var_91339589 bbs_name
  261. FCLOSE var_5a6dc01b
  262. END_IF
  263. FOPEN var_5a6dc01b 770 "%nemail.tmp"
  264. IF_FALSE
  265. PRINTF "\r\n\x01nError opening TMP File!\r\n\x01p"
  266. FCLOSE var_bff13a6e
  267. CMD_POP
  268. GOTO label_043b
  269. END_IF
  270. FPRINTF var_5a6dc01b "\r\nEmail Validation Information"
  271. FPRINTF var_5a6dc01b "\r\nYour User Name : %s" _USERON.ALIAS
  272. FPRINTF var_5a6dc01b "\r\nValidation Code : %s\r\n" var_b60acbd8
  273. FOPEN var_d9f724ae 1 "%n../baja/telval/email.txt"
  274. IF_FALSE
  275. PRINTF "\r\n\x01nError opening TMP File!\r\n\x01p"
  276. FCLOSE var_5a6dc01b
  277. FCLOSE var_bff13a6e
  278. RETURN
  279. END_IF
  280. :label_0c1f
  281. FEOF var_d9f724ae
  282. IF_TRUE
  283. FCLOSE var_d9f724ae
  284. FCLOSE var_5a6dc01b
  285. GOTO label_0c59
  286. END_IF
  287. FREAD_LINE var_d9f724ae STR
  288. TRUNCSP STR
  289. FPRINTF var_5a6dc01b "%s\r\n" STR
  290. GOTO label_0c1f
  291. :label_0c59
  292. FOPEN var_5a6dc01b 770 "%nemail.bat"
  293. IF_FALSE
  294. PRINTF "\r\n\x01nError opening TMP File!\r\n\x01p"
  295. FCLOSE var_bff13a6e
  296. CMD_POP
  297. GOTO label_043b
  298. END_IF
  299. SPRINTF STR "%%!smbutil.exe n%%nemail.tmp %%jmail.shd < %%ntelval.tmp"
  300. FPRINTF var_5a6dc01b "%s" STR
  301. FCLOSE var_5a6dc01b
  302. SPRINTF STR "%%nemail.bat"
  303. EXEC "%s"
  304. SPRINTF STR "%%nemail.bat"
  305. REMOVE_FILE STR
  306. SPRINTF STR "+ Telnet Verifier Sent Email to %s\r\n" var_91339589
  307. LOG "%s"
  308. SPRINTF STR "TELVAL - Node %%# + Telnet Verifier Sent Email to %s\r\n" var_91339589
  309. PRINT_LOCAL "%s"
  310. CLS
  311. PRINTF "\x01n\x01h\x01cTelnet Verifier \x01n\x01cv\x01h%s \x01n\x01cby \x01wPistolGrip\x01n\r\n" var_5374a9cc
  312. SPRINTF STR "%%n..//baja//telval//mailsent.asc"
  313. PRINTFILE_STR
  314. PRINTF "\r\n\x01n\x01hValidation Email was Sent To \x01c: \x01m%s\x01n\r\n" var_91339589
  315. COPY var_4600639c var_bc792fd4
  316. ADD var_4600639c 1
  317. FSEEK var_bff13a6e -8 CUR
  318. FWRITE var_bff13a6e var_4600639c 4
  319. FCLOSE var_bff13a6e
  320. CMD_POP
  321. GOTO label_043b
  322. ELSE
  323. FCLOSE var_bff13a6e
  324. CMD_POP
  325. GOTO label_043b
  326. END_IF
  327. ELSE
  328. GOTO label_08cc
  329. END_IF
  330. END_IF
  331. :label_0e85
  332. CLS
  333. PRINTF "\x01n\x01h\x01cTelnet Verifier \x01n\x01cv\x01h%s \x01n\x01cby \x01wPistolGrip\x01n\r\n" var_5374a9cc
  334. SPRINTF STR "%%n..//baja//telval//verify.asc"
  335. PRINTFILE_STR
  336. PRINTF "\r\n\r\n\x01n\x01h\x01wYou entered \x01m%.40s \x01wwhen you created this account.\x01n" _USERON.NETMAIL
  337. YES_NO "\r\n\r\nIs this your Correct Email Address"
  338. IF_FALSE
  339. PRINT "\r\n\x01n\x01h\x01yEnter a Valid Email Address \x01w: "
  340. GETLINE STR 45
  341. COMPARE_STR ""
  342. IF_TRUE
  343. CMD_POP
  344. GOTO label_043b
  345. END_IF
  346. COPY var_91339589 STR
  347. ELSE
  348. COPY var_91339589 _USERON.NETMAIL
  349. END_IF
  350. TRUNCSP var_91339589
  351. PRINTF "\r\n\x01n\x01hPlease Verify...\r\n\x01n\x01hYour Email Address is \x01m: \x01c%s\r\n\r\n" var_91339589
  352. YES_NO "Is this correct"
  353. IF_TRUE
  354. COMPARE var_5cbdc3ad 1
  355. IF_TRUE
  356. FOPEN var_5a6dc01b 1 "%n../baja/telval/filter.cfg"
  357. IF_FALSE
  358. PRINT "\r\n\x01nError opening FILTER.CFG File!\r\n\x01p"
  359. GOTO label_110c
  360. END_IF
  361. :label_1067
  362. FEOF var_5a6dc01b
  363. IF_TRUE
  364. FCLOSE var_5a6dc01b
  365. GOTO label_110c
  366. END_IF
  367. FREAD_LINE var_5a6dc01b var_8f3c989b
  368. TRUNCSP var_8f3c989b
  369. STRSTR var_91339589 var_8f3c989b
  370. IF_TRUE
  371. CLS
  372. PRINTF "\x01n\x01h\x01cTelnet Verifier \x01n\x01cv\x01h%s \x01n\x01cby \x01wPistolGrip\x01n\r\n" var_5374a9cc
  373. SPRINTF STR "%%n..//baja//telval//filtered.asc"
  374. PRINTFILE_STR
  375. FCLOSE var_5a6dc01b
  376. CMD_POP
  377. GOTO label_043b
  378. END_IF
  379. GOTO label_1067
  380. END_IF
  381. :label_110c
  382. PRINT "\r\n\x01n\x01hSending Email \x01b\x01;.\x01;\x01g.\x01;\x01m.\x01; "
  383. FOPEN var_5a6dc01b 770 "%ntelval.tmp"
  384. IF_FALSE
  385. PRINTF "\r\n\x01nError opening TMP File!\r\n\x01p"
  386. CMD_POP
  387. GOTO label_043b
  388. ELSE
  389. FPRINTF var_5a6dc01b "%%a\r\n0\r\n%s\r\nTelnet Verifier\r\n0\r\n%s - Telnet Validation" var_91339589 bbs_name
  390. FCLOSE var_5a6dc01b
  391. END_IF
  392. FOPEN var_5a6dc01b 770 "%nemail.tmp"
  393. IF_FALSE
  394. PRINTF "\r\n\x01nError opening TMP File!\r\n\x01p"
  395. CMD_POP
  396. GOTO label_043b
  397. END_IF
  398. SPRINTF STR "%s" _USERON.ALIAS
  399. CRC16 var_847a78a0 STR
  400. RANDOM var_44f4c379 1024
  401. MUL var_44f4c379 56
  402. ADD var_847a78a0 var_44f4c379
  403. COPY var_b60acbd8 var_847a78a0
  404. FPRINTF var_5a6dc01b "\r\nEmail Validation Information"
  405. FPRINTF var_5a6dc01b "\r\nYour User Name : %s" _USERON.ALIAS
  406. FPRINTF var_5a6dc01b "\r\nValidation Code : %s\r\n" var_b60acbd8
  407. FOPEN var_d9f724ae 1 "%n../baja/telval/email.txt"
  408. IF_FALSE
  409. PRINTF "\r\n\x01nError opening TMP File!\r\n\x01p"
  410. FCLOSE var_5a6dc01b
  411. RETURN
  412. END_IF
  413. :label_12f7
  414. FEOF var_d9f724ae
  415. IF_TRUE
  416. FCLOSE var_d9f724ae
  417. GOTO label_132b
  418. END_IF
  419. FREAD_LINE var_d9f724ae STR
  420. TRUNCSP STR
  421. FPRINTF var_5a6dc01b "%s\r\n" STR
  422. GOTO label_12f7
  423. :label_132b
  424. FCLOSE var_5a6dc01b
  425. FOPEN var_5a6dc01b 770 "%nemail.bat"
  426. IF_FALSE
  427. PRINTF "\r\n\x01nError opening TMP File!\r\n\x01p"
  428. FCLOSE var_bff13a6e
  429. CMD_POP
  430. GOTO label_043b
  431. END_IF
  432. SPRINTF STR "%%!smbutil.exe n%%nemail.tmp %%jmail.shd < %%ntelval.tmp"
  433. FPRINTF var_5a6dc01b "%s" STR
  434. FCLOSE var_5a6dc01b
  435. SPRINTF STR "%%nemail.bat"
  436. EXEC "%s"
  437. SPRINTF STR "%%nemail.bat"
  438. REMOVE_FILE STR
  439. SPRINTF STR "+ Telnet Verifier Sent Email to %s\r\n" var_91339589
  440. LOG "%s"
  441. SPRINTF STR "TELVAL - Node %%# + Telnet Verifier Sent Email to %s\r\n" var_91339589
  442. PRINT_LOCAL "%s"
  443. COMPARE var_9135552d 1
  444. IF_TRUE
  445. SPRINTF STR "%s" var_91339589
  446. SET_USER_STRING 13
  447. END_IF
  448. PRINTF "\x01n\x01hEmail Sent To \x01b: \x01m%s\x01n\r\n" var_91339589
  449. :label_14b6
  450. COMPARE var_095621d9 1
  451. IF_TRUE
  452. PRINT "\r\n\x01n\x01hWhere did you hear about this BBS\x01h\x01b: "
  453. GETLINE STR 40
  454. COMPARE_STR ""
  455. IF_FALSE
  456. COPY var_6a99c89f STR
  457. ELSE
  458. PRINT "\r\n\x01h\x01rYou are required to answer this question!"
  459. GOTO label_14b6
  460. END_IF
  461. ELSE
  462. SET var_6a99c89f "None"
  463. END_IF
  464. :label_1547
  465. COMPARE var_f383ca95 1
  466. IF_TRUE
  467. PRINT "\r\n\x01n\x01hWhat are you looking for from this BBS\x01h\x01b: "
  468. GETLINE STR 40
  469. COMPARE_STR ""
  470. IF_FALSE
  471. COPY var_8c761b05 STR
  472. ELSE
  473. PRINT "\r\n\x01h\x01rYou are required to answer this question!"
  474. GOTO label_1547
  475. END_IF
  476. ELSE
  477. SET var_8c761b05 "None"
  478. END_IF
  479. COMPARE var_f45b0b8a 1
  480. IF_TRUE
  481. NO_YES "\r\nAre you a Sysop or Network Administrator"
  482. IF_FALSE
  483. PRINT "\r\n\x01n\x01hEnter your BBS/Network Name \x01h\x01w: "
  484. GETLINE STR 40
  485. COMPARE_STR ""
  486. IF_FALSE
  487. COPY var_3a29e9fc STR
  488. END_IF
  489. PRINT "\r\n\x01n\x01hNetwork Address or Phone Number \x01h\x01b: "
  490. GETLINE STR 40
  491. COMPARE_STR ""
  492. IF_FALSE
  493. COPY var_fd6f2eaa STR
  494. END_IF
  495. YES_NO "\r\nAdd your System to Synchronet\'s Nationwide BBS List"
  496. IF_TRUE
  497. EXEC_XTRN "SBL"
  498. END_IF
  499. ELSE
  500. SET var_3a29e9fc "None"
  501. SET var_fd6f2eaa "None"
  502. END_IF
  503. ELSE
  504. SET var_3a29e9fc "None"
  505. SET var_fd6f2eaa "None"
  506. END_IF
  507. COMPARE var_6a0731ca 1
  508. IF_TRUE
  509. PRINT "\r\n\r\x01n\x01cSynchronet\'s Matchmaker program is a Nationwide Database of BBS Users.\r\n"
  510. PRINT "The Matchmaker is a great way to meet and find people with your interests.\r\n\r\n"
  511. YES_NO "Add your Profile to the Online MatchMaker Database"
  512. IF_TRUE
  513. EXEC_XTRN "SMM"
  514. END_IF
  515. END_IF
  516. FOPEN var_5a6dc01b 2306 "%n../data/user/%4.msg"
  517. IF_FALSE
  518. PRINT "\r\n\x01nError opening TMP File!\r\n\x01p"
  519. RETURN
  520. ELSE
  521. TIME t
  522. TIME_STR time t
  523. SPRINTF STR "\r\nTelnet Verifier Information - Created On : %s" time
  524. FPRINTF var_5a6dc01b "%s" STR
  525. FPRINTF var_5a6dc01b "\r\n\r\nUser Name : %s" _USERON.ALIAS
  526. FPRINTF var_5a6dc01b "\r\nValidation Address : %s" var_91339589
  527. FPRINTF var_5a6dc01b "\r\nValidation Code : %s" var_b60acbd8
  528. FPRINTF var_5a6dc01b "\r\nIP Address : %s" _USERON.NOTE
  529. COMPARE var_f45b0b8a 1
  530. IF_TRUE
  531. SET STR "None"
  532. COMPARE var_3a29e9fc STR
  533. IF_FALSE
  534. FPRINTF var_5a6dc01b "\r\nBBS Name : %s" var_3a29e9fc
  535. END_IF
  536. COMPARE var_fd6f2eaa STR
  537. IF_FALSE
  538. FPRINTF var_5a6dc01b "\r\nBBS Address/# : %s" var_fd6f2eaa
  539. END_IF
  540. END_IF
  541. COMPARE var_095621d9 1
  542. IF_TRUE
  543. FPRINTF var_5a6dc01b "\r\nReferred by : %s" var_6a99c89f
  544. END_IF
  545. COMPARE var_f383ca95 1
  546. IF_TRUE
  547. FPRINTF var_5a6dc01b "\r\nInterest in BBS : %s" var_8c761b05
  548. END_IF
  549. COMPARE _USERON.NOTE ""
  550. IF_TRUE
  551. FCLOSE var_5a6dc01b
  552. GOTO label_1b23
  553. END_IF
  554. FOPEN var_657bbd92 1 "%juser/user.dat"
  555. IF_FALSE
  556. SPRINTF STR "\r\n\r\n\x01nError Loading Configuration File - %%juser/user.dat"
  557. PRINTF "%s" STR
  558. FCLOSE var_5a6dc01b
  559. RETURN
  560. END_IF
  561. SET i 1
  562. FSEEK var_657bbd92 60 CUR
  563. :label_1a90
  564. FEOF var_657bbd92
  565. IF_TRUE
  566. FCLOSE var_657bbd92
  567. FCLOSE var_5a6dc01b
  568. GOTO label_1b23
  569. END_IF
  570. FREAD var_657bbd92 var_aff31e29 30
  571. TRUNCSP var_aff31e29
  572. COMPARE _USERON.NUMBER i
  573. IF_FALSE
  574. COMPARE _USERON.NOTE var_aff31e29
  575. IF_TRUE
  576. FPRINTF var_5a6dc01b "\r\nWarning: Same IP as User #%ld!" i
  577. END_IF
  578. END_IF
  579. FSEEK var_657bbd92 -30 CUR
  580. FSEEK var_657bbd92 834 CUR
  581. ADD i 1
  582. GOTO label_1a90
  583. END_IF
  584. :label_1b23
  585. FOPEN var_bff13a6e 258 "%n../baja/telval/telval.dat"
  586. IF_FALSE
  587. SPRINTF STR "\r\n\r\n\x01nError Loading Configuration File - %%nbaja//telval//telval.dat"
  588. PRINTF "%s" STR
  589. RETURN
  590. END_IF
  591. FSEEK var_bff13a6e 0 END
  592. SET var_4600639c 1
  593. FWRITE var_bff13a6e _USERON.ALIAS 40
  594. FWRITE var_bff13a6e var_91339589 40
  595. FWRITE var_bff13a6e var_b60acbd8 40
  596. FWRITE var_bff13a6e _USERON.NOTE 40
  597. FWRITE var_bff13a6e var_3a29e9fc 40
  598. FWRITE var_bff13a6e var_fd6f2eaa 40
  599. FWRITE var_bff13a6e var_6a99c89f 40
  600. FWRITE var_bff13a6e var_8c761b05 40
  601. FWRITE var_bff13a6e var_b05bd3fc 4
  602. FWRITE var_bff13a6e var_4600639c 4
  603. FWRITE var_bff13a6e _USERON.NUMBER 4
  604. FCLOSE var_bff13a6e
  605. CLS
  606. PRINTF "\x01n\x01h\x01cTelnet Verifier \x01n\x01cv\x01h%s \x01n\x01cby \x01wPistolGrip\x01n\r\n" var_5374a9cc
  607. SPRINTF STR "%%n..//baja//telval//mailsent.asc"
  608. PRINTFILE_STR
  609. PRINTF "\r\n\x01n\x01hValidation Email was Sent To \x01c: \x01m%s\x01n\r\n" var_91339589
  610. END_IF
  611. END_CMD
  612. CMDKEY U
  613. CLS
  614. COMPARE _USERON.LEVEL var_a852a950
  615. IF_GREATER
  616. CLS
  617. PRINTF "\x01n\x01h\x01cTelnet Verifier \x01n\x01cv\x01h%s \x01n\x01cby \x01wPistolGrip\x01n\r\n" var_5374a9cc
  618. SPRINTF STR "%%n..//baja//telval//toohigh.asc"
  619. PRINTFILE_STR
  620. CMD_POP
  621. GOTO label_043b
  622. END_IF
  623. CLS
  624. PRINTF "\x01n\x01h\x01cTelnet Verifier \x01n\x01cv\x01h%s \x01n\x01cby \x01wPistolGrip\x01n\r\n" var_5374a9cc
  625. SPRINTF STR "%%n..//baja//telval//upgrade.asc"
  626. PRINTFILE_STR
  627. PRINT "\r\n\x01n\x01h\x01yEnter the Code you Received \x01m: "
  628. GETLINE STR 20
  629. COMPARE_STR ""
  630. IF_TRUE
  631. CMD_POP
  632. GOTO label_043b
  633. END_IF
  634. TRUNCSP STR
  635. COPY var_610c12d1 STR
  636. PRINTF "\r\n\x01n\x01hYou Entered \x01m: \x01c%s" var_610c12d1
  637. YES_NO "\r\n\r\nIs this correct"
  638. IF_FALSE
  639. CMD_POP
  640. GOTO label_043b
  641. END_IF
  642. FOPEN var_bff13a6e 1 "%n../baja/telval/telval.dat"
  643. IF_FALSE
  644. SPRINTF STR "\r\n\r\n\x01nError Loading Configuration File - %%n..//baja//telval//telval.dat"
  645. PRINTF "%s" STR
  646. CMD_POP
  647. GOTO label_043b
  648. END_IF
  649. :label_1ed2
  650. FEOF var_bff13a6e
  651. IF_TRUE
  652. FCLOSE var_bff13a6e
  653. PRINTF "\r\n\r\n\x01n\x01h\x01rERROR : No Validation Data for \x01w%s\x01n" _USERON.ALIAS
  654. PRINT "\r\n\r\n\x01n\x01h\x01yYou must complete (\x01wV\x01y)alidation First\x01g!\x01n\r\n"
  655. PAUSE
  656. CMD_POP
  657. GOTO label_043b
  658. END_IF
  659. FREAD var_bff13a6e var_3a028b43 40
  660. FREAD var_bff13a6e var_91339589 40
  661. FREAD var_bff13a6e var_b60acbd8 40
  662. FREAD var_bff13a6e var_69d3af22 40
  663. FREAD var_bff13a6e var_3a29e9fc 40
  664. FREAD var_bff13a6e var_fd6f2eaa 40
  665. FREAD var_bff13a6e var_6a99c89f 40
  666. FREAD var_bff13a6e var_8c761b05 40
  667. FREAD var_bff13a6e var_b05bd3fc 4
  668. FREAD var_bff13a6e var_bc792fd4 4
  669. FREAD var_bff13a6e var_b17caf1d 4
  670. TRUNCSP var_3a028b43
  671. COMPARE var_3a028b43 _USERON.ALIAS
  672. IF_TRUE
  673. FCLOSE var_bff13a6e
  674. GOTO label_1ffa
  675. ELSE
  676. GOTO label_1ed2
  677. END_IF
  678. :label_1ffa
  679. COMPARE var_b60acbd8 var_610c12d1
  680. IF_FALSE
  681. PRINT "\r\n\r\n\x01n\x01h\x01yValidation Code Entered is Not Valid\x01m!"
  682. PRINT "\r\n\x01rSecurity Level not Upgraded\x01w!\r\n\r\n\x01p"
  683. SPRINTF STR "%%jmsgs//0001.msg"
  684. FOPEN var_f6d79d09 2370 STR
  685. IF_FALSE
  686. PRINTF "\r\nError Loading MSG File - %s" STR
  687. PAUSE
  688. CMD_POP
  689. GOTO label_043b
  690. END_IF
  691. SPRINTF STR "\x01n\x01h\x01w%%a \x01n\x01c#\x01h\x01c%%1 \x01n\x01cEntered an Invalid Code in the \x01h\x01wTelnet Verifier \x01y(\x01r%s\x01y)\x01w!\x01n" var_b60acbd8
  692. FPRINTF var_f6d79d09 "%s\r\n" STR
  693. FCLOSE var_f6d79d09
  694. CMD_POP
  695. GOTO label_043b
  696. ELSE
  697. COMPARE var_18dcfea2 1
  698. IF_TRUE
  699. FOPEN var_5a6dc01b 770 "%ntelval.tmp"
  700. IF_FALSE
  701. PRINTF "\r\n\x01nError opening TMP File!\r\n\x01p"
  702. CMD_POP
  703. GOTO label_043b
  704. ELSE
  705. FPRINTF var_5a6dc01b "%%o\r\n1\r\n%s\r\n%%a\r\n%%1\r\n%%a - Telnet Validation" var_7c5110f5
  706. FCLOSE var_5a6dc01b
  707. END_IF
  708. FOPEN var_5a6dc01b 770 "%nemail.tmp"
  709. IF_FALSE
  710. PRINTF "\r\n\x01nError opening TMP File!\r\n\x01p"
  711. CMD_POP
  712. GOTO label_043b
  713. END_IF
  714. TIME t
  715. TIME_STR time t
  716. SPRINTF STR "\r\nTELVAL Information - Validation Completed : %s" time
  717. FPRINTF var_5a6dc01b "%s" STR
  718. SPRINTF STR "\r\n-----------------------------------------------------------------------------"
  719. FPRINTF var_5a6dc01b "%s" STR
  720. FPRINTF var_5a6dc01b "\r\nUser Name : %s" _USERON.ALIAS
  721. FPRINTF var_5a6dc01b "\r\nValidation Address : %s" var_91339589
  722. FPRINTF var_5a6dc01b "\r\nValidation Code : %s" var_b60acbd8
  723. FPRINTF var_5a6dc01b "\r\nIP Address : %s" _USERON.NOTE
  724. COMPARE var_f45b0b8a 1
  725. IF_TRUE
  726. SET STR ""
  727. COMPARE var_3a29e9fc STR
  728. IF_FALSE
  729. FPRINTF var_5a6dc01b "\r\nBBS Name : %s" var_3a29e9fc
  730. END_IF
  731. COMPARE var_fd6f2eaa STR
  732. IF_FALSE
  733. FPRINTF var_5a6dc01b "\r\nBBS Address/# : %s" var_fd6f2eaa
  734. END_IF
  735. END_IF
  736. COMPARE var_095621d9 1
  737. IF_TRUE
  738. FPRINTF var_5a6dc01b "\r\nReferred by : %s" var_6a99c89f
  739. END_IF
  740. COMPARE var_f383ca95 1
  741. IF_TRUE
  742. FPRINTF var_5a6dc01b "\r\nInterest in BBS : %s" var_8c761b05
  743. END_IF
  744. FOPEN var_657bbd92 1 "%juser/user.dat"
  745. IF_FALSE
  746. SPRINTF STR "\r\n\r\n\x01nError Loading Configuration File - %%juser//user.dat"
  747. PRINTF "%s" STR
  748. RETURN
  749. END_IF
  750. SET i 1
  751. FSEEK var_657bbd92 60 CUR
  752. :label_24a4
  753. FEOF var_657bbd92
  754. IF_TRUE
  755. FCLOSE var_657bbd92
  756. GOTO label_2530
  757. END_IF
  758. FREAD var_657bbd92 var_aff31e29 30
  759. TRUNCSP var_aff31e29
  760. COMPARE _USERON.NUMBER i
  761. IF_FALSE
  762. COMPARE _USERON.NOTE var_aff31e29
  763. IF_TRUE
  764. FPRINTF var_5a6dc01b "\r\nWarning: Same IP as User #%ld!" i
  765. END_IF
  766. END_IF
  767. FSEEK var_657bbd92 -30 CUR
  768. FSEEK var_657bbd92 834 CUR
  769. ADD i 1
  770. GOTO label_24a4
  771. :label_2530
  772. SPRINTF STR "\r\n-----------------------------------------------------------------------------"
  773. FPRINTF var_5a6dc01b "%s" STR
  774. SPRINTF STR "\r\nHit \'U\' to Edit this Users Account"
  775. FPRINTF var_5a6dc01b "%s" STR
  776. SPRINTF STR "\r\n-----------------------------------------------------------------------------"
  777. FPRINTF var_5a6dc01b "%s" STR
  778. FCLOSE var_5a6dc01b
  779. FOPEN var_5a6dc01b 770 "%nemail.bat"
  780. IF_FALSE
  781. PRINTF "\r\n\x01nError opening TMP File!\r\n\x01p"
  782. FCLOSE var_bff13a6e
  783. CMD_POP
  784. GOTO label_043b
  785. END_IF
  786. SPRINTF STR "%%!smbutil.exe n%%nemail.tmp %%jmail.shd < %%ntelval.tmp"
  787. FPRINTF var_5a6dc01b "%s" STR
  788. FCLOSE var_5a6dc01b
  789. SPRINTF STR "%%nemail.bat"
  790. EXEC "%s"
  791. SPRINTF STR "%%nemail.bat"
  792. REMOVE_FILE STR
  793. SPRINTF STR "+ Telnet Verifier Sent Completion Email to %%o\r\n"
  794. LOG "%s"
  795. SPRINTF STR "TELVAL - Node %%# + Telnet Verifier Sent Completion Email to %%o\r\n"
  796. PRINT_LOCAL "%s"
  797. END_IF
  798. FOPEN var_5a6dc01b 1 "%n../baja/telval/moduser.cfg"
  799. IF_FALSE
  800. PRINTF "\r\n\x01nError opening MODUSER.CFG File!\r\n\x01p"
  801. CMD_POP
  802. GOTO label_043b
  803. END_IF
  804. FOPEN var_d03d191d 770 "%nmoduser.dat"
  805. SET c 1
  806. :label_2804
  807. COMPARE c 17
  808. IF_GREATER
  809. FCLOSE var_d03d191d
  810. FCLOSE var_5a6dc01b
  811. GOTO label_2906
  812. END_IF
  813. FREAD_LINE var_5a6dc01b STR
  814. TRUNCSP STR
  815. COMPARE c 8
  816. IF_TRUE
  817. COMPARE_STR ""
  818. IF_TRUE
  819. ADD c 1
  820. FPRINTF var_d03d191d "%s\r\n" STR
  821. GOTO label_2804
  822. ELSE
  823. COPY var_90191091 STR
  824. COMPARE var_90191091 0
  825. IF_TRUE
  826. FPRINTF var_d03d191d "%lx\r\n" var_90191091
  827. ADD c 1
  828. GOTO label_2804
  829. ELSE
  830. SET i 60
  831. MUL i 60
  832. MUL i 24
  833. MUL i var_90191091
  834. TIME t
  835. ADD t i
  836. FPRINTF var_d03d191d "%lx\r\n" t
  837. ADD c 1
  838. GOTO label_2804
  839. END_IF
  840. END_IF
  841. ELSE
  842. FPRINTF var_d03d191d "%s\r\n" STR
  843. ADD c 1
  844. GOTO label_2804
  845. END_IF
  846. :label_2906
  847. FOPEN var_5a6dc01b 2306 "%n../data/user/%4.msg"
  848. IF_TRUE
  849. TIME t
  850. TIME_STR time t
  851. SPRINTF STR "\r\n\r\nTelnet Verifier Information - <-Verified-> : %s (%s)" time var_b60acbd8
  852. FPRINTF var_5a6dc01b "%s" STR
  853. FCLOSE var_5a6dc01b
  854. ELSE
  855. PRINTF "\r\n\x01nError opening TMP File!\r\n\x01p"
  856. END_IF
  857. FOPEN var_bff13a6e 4 "%n../baja/telval/telval.dat"
  858. IF_FALSE
  859. SPRINTF STR "\r\n\r\n\x01nError Loading Configuration File - %%n..//baja//telval//telval.dat"
  860. PRINTF "%s" STR
  861. RETURN
  862. END_IF
  863. :label_2a37
  864. FEOF var_bff13a6e
  865. IF_TRUE
  866. FCLOSE var_bff13a6e
  867. GOTO label_2b3d
  868. END_IF
  869. FREAD var_bff13a6e var_3a028b43 40
  870. FREAD var_bff13a6e var_91339589 40
  871. FREAD var_bff13a6e var_b60acbd8 40
  872. FREAD var_bff13a6e var_69d3af22 40
  873. FREAD var_bff13a6e var_3a29e9fc 40
  874. FREAD var_bff13a6e var_fd6f2eaa 40
  875. FREAD var_bff13a6e var_6a99c89f 40
  876. FREAD var_bff13a6e var_8c761b05 40
  877. FREAD var_bff13a6e var_b05bd3fc 4
  878. FREAD var_bff13a6e var_bc792fd4 4
  879. FREAD var_bff13a6e var_b17caf1d 4
  880. TRUNCSP var_3a028b43
  881. COMPARE var_3a028b43 _USERON.ALIAS
  882. IF_TRUE
  883. FSEEK var_bff13a6e -332 CUR
  884. SPRINTF STR "VALIDATED"
  885. FWRITE var_bff13a6e STR 40
  886. FSEEK var_bff13a6e 280 CUR
  887. SET var_b05bd3fc 1
  888. SET var_85009ab4 1
  889. FWRITE var_bff13a6e var_b05bd3fc 4
  890. FCLOSE var_bff13a6e
  891. ELSE
  892. GOTO label_2a37
  893. END_IF
  894. :label_2b3d
  895. SPRINTF STR "%%jmsgs//0001.msg"
  896. FOPEN var_f6d79d09 2370 STR
  897. IF_FALSE
  898. PRINTF "\r\nError Loading MSG File - %s" STR
  899. PAUSE
  900. CMD_POP
  901. GOTO label_043b
  902. END_IF
  903. SPRINTF STR "\x01n\x01h\x01w%%a \x01n\x01c#\x01h%%1 \x01n\x01cSuccessfully Completed the \x01h\x01wTelnet Verifier \x01c(\x01g%s\x01c)\x01w!\x01n" var_b60acbd8
  904. FPRINTF var_f6d79d09 "%s\r\n" STR
  905. FCLOSE var_f6d79d09
  906. PRINT "\r\n\r\n\x01n\x01h\x01gSecurity Level Upgraded\x01m!\r\n\r\n\x01p"
  907. SPRINTF STR "+ Telnet Verifier Completed Successfully By : %s\r\n" _USERON.ALIAS
  908. LOG "%s"
  909. SPRINTF STR "TELVAL - Node %%# + Telnet Verifier Completed Successfully By : %s\r\n" _USERON.ALIAS
  910. PRINT_LOCAL "%s"
  911. SET _LOGON_ULS 1
  912. CMD_POP
  913. GOTO label_043b
  914. END_IF
  915. END_CMD
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!