BaSs_HaXoR

BaSs_HaXoRs Google Doc Spammer Source

Sep 6th, 2014
380
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 17.86 KB | None | 0 0
  1. ' THREAD: http://adf.ly/rt4XB
  2. ' GIF OF WHAT IT DOES AND LOOKS LIKE: http://adf.ly/rt4YN
  3.  
  4. Imports System
  5. Imports System.ComponentModel
  6. Imports System.Drawing
  7. Imports System.Windows.Forms
  8. Imports googleDocs_Spammer.My.Resources
  9. Imports System.Collections.Generic
  10. Imports System.Text.RegularExpressions
  11.  
  12. '  
  13. '  /$$$$$$                  /$$                 /$$       /$$$$$$$              
  14. ' /$$__  $$                | $$                | $$      | $$__  $$              
  15. '| $$  \__/  /$$$$$$   /$$$$$$$  /$$$$$$   /$$$$$$$      | $$  \ $$ /$$   /$$ /$$
  16. '| $$       /$$__  $$ /$$__  $$ /$$__  $$ /$$__  $$      | $$$$$$$ | $$  | $$|__/
  17. '| $$      | $$  \ $$| $$  | $$| $$$$$$$$| $$  | $$      | $$__  $$| $$  | $$    
  18. '| $$    $$| $$  | $$| $$  | $$| $$_____/| $$  | $$      | $$  \ $$| $$  | $$ /$$
  19. '|  $$$$$$/|  $$$$$$/|  $$$$$$$|  $$$$$$$|  $$$$$$$      | $$$$$$$/|  $$$$$$$|__/
  20. ' \______/  \______/  \_______/ \_______/ \_______/      |_______/  \____  $$    
  21. '                                                                   /$$  | $$    
  22. '                                                                  |  $$$$$$/    
  23. '                                                                   \______/    
  24. '    
  25. '          _____                    _____                    _____                    _____                    _____                    _____                                           _______                   _____          
  26. '         /\    \                  /\    \                  /\    \                  /\    \                  /\    \                  /\    \                 ______                  /::\    \                 /\    \        
  27. '        /::\    \                /::\    \                /::\    \                /::\    \                /::\____\                /::\    \               |::|   |                /::::\    \               /::\    \        
  28. '       /::::\    \              /::::\    \              /::::\    \              /::::\    \              /:::/    /               /::::\    \              |::|   |               /::::::\    \             /::::\    \      
  29. '      /::::::\    \            /::::::\    \            /::::::\    \            /::::::\    \            /:::/    /               /::::::\    \             |::|   |              /::::::::\    \           /::::::\    \      
  30. '     /:::/\:::\    \          /:::/\:::\    \          /:::/\:::\    \          /:::/\:::\    \          /:::/    /               /:::/\:::\    \            |::|   |             /:::/~~\:::\    \         /:::/\:::\    \    
  31. '    /:::/__\:::\    \        /:::/__\:::\    \        /:::/__\:::\    \        /:::/__\:::\    \        /:::/____/               /:::/__\:::\    \           |::|   |            /:::/    \:::\    \       /:::/__\:::\    \    
  32. '   /::::\   \:::\    \      /::::\   \:::\    \       \:::\   \:::\    \       \:::\   \:::\    \      /::::\    \              /::::\   \:::\    \          |::|   |           /:::/    / \:::\    \     /::::\   \:::\    \  
  33. '  /::::::\   \:::\    \    /::::::\   \:::\    \    ___\:::\   \:::\    \    ___\:::\   \:::\    \    /::::::\    \   _____    /::::::\   \:::\    \         |::|   |          /:::/____/   \:::\____\   /::::::\   \:::\    \  
  34. ' /:::/\:::\   \:::\ ___\  /:::/\:::\   \:::\    \  /\   \:::\   \:::\    \  /\   \:::\   \:::\    \  /:::/\:::\    \ /\    \  /:::/\:::\   \:::\    \  ______|::|___|___ ____ |:::|    |     |:::|    | /:::/\:::\   \:::\____\
  35. ' :::/__\:::\   \:::|    |/:::/  \:::\   \:::\____\/::\   \:::\   \:::\____\/::\   \:::\   \:::\____\/:::/  \:::\    /::\____\/:::/  \:::\   \:::\____\|:::::::::::::::::|    ||:::|____|     |:::|    |/:::/  \:::\   \:::|    |
  36. '\:::\   \:::\  /:::|____|\::/    \:::\  /:::/    /\:::\   \:::\   \::/    /\:::\   \:::\   \::/    /\::/    \:::\  /:::/    /\::/    \:::\  /:::/    /|:::::::::::::::::|____| \:::\    \   /:::/    / \::/   |::::\  /:::|____|
  37. ' \:::\   \:::\/:::/    /  \/____/ \:::\/:::/    /  \:::\   \:::\   \/____/  \:::\   \:::\   \/____/  \/____/ \:::\/:::/    /  \/____/ \:::\/:::/    /  ~~~~~~|::|~~~|~~~        \:::\    \ /:::/    /   \/____|:::::\/:::/    /
  38. '  \:::\   \::::::/    /            \::::::/    /    \:::\   \:::\    \       \:::\   \:::\    \               \::::::/    /            \::::::/    /         |::|   |            \:::\    /:::/    /          |:::::::::/    /  
  39. '   \:::\   \::::/    /              \::::/    /      \:::\   \:::\____\       \:::\   \:::\____\               \::::/    /              \::::/    /          |::|   |             \:::\__/:::/    /           |::|\::::/    /  
  40. '    \:::\  /:::/    /               /:::/    /        \:::\  /:::/    /        \:::\  /:::/    /               /:::/    /               /:::/    /           |::|   |              \::::::::/    /            |::| \::/____/    
  41. '     \:::\/:::/    /               /:::/    /          \:::\/:::/    /          \:::\/:::/    /               /:::/    /               /:::/    /            |::|   |               \::::::/    /             |::|  ~|          
  42. '      \::::::/    /               /:::/    /            \::::::/    /            \::::::/    /               /:::/    /               /:::/    /             |::|   |                \::::/    /              |::|   |          
  43. '       \::::/    /               /:::/    /              \::::/    /              \::::/    /               /:::/    /               /:::/    /              |::|   |                 \::/____/               \::|   |          
  44. '        \::/____/                \::/    /                \::/    /                \::/    /                \::/    /                \::/    /               |::|___|                  ~~                      \:|   |          
  45. '         ~~                       \/____/                  \/____/                  \/____/                  \/____/                  \/____/                 ~~                                                \|___|                                                                                                                                                                                                                                    
  46. '
  47. '                                                                                                                                                                                                  
  48. '                                                                                                                                                                                                  
  49. '     OOOOOOOOO                                                                       SSSSSSSSSSSSSSS                                                                                              
  50. '   OO:::::::::OO                                                                   SS:::::::::::::::S                                                                                              
  51. ' OO:::::::::::::OO                                                                S:::::SSSSSS::::::S                                                                                              
  52. 'O:::::::OOO:::::::O                                                               S:::::S     SSSSSSS                                                                                              
  53. 'O::::::O   O::::::Oppppp   ppppppppp       eeeeeeeeeeee    nnnn  nnnnnnnn         S:::::S               ooooooooooo   uuuuuu    uuuuuu rrrrr   rrrrrrrrr       cccccccccccccccc    eeeeeeeeeeee    
  54. 'O:::::O     O:::::Op::::ppp:::::::::p    ee::::::::::::ee  n:::nn::::::::nn       S:::::S             oo:::::::::::oo u::::u    u::::u r::::rrr:::::::::r    cc:::::::::::::::c  ee::::::::::::ee  
  55. 'O:::::O     O:::::Op:::::::::::::::::p  e::::::eeeee:::::een::::::::::::::nn       S::::SSSS         o:::::::::::::::ou::::u    u::::u r:::::::::::::::::r  c:::::::::::::::::c e::::::eeeee:::::ee
  56. 'O:::::O     O:::::Opp::::::ppppp::::::pe::::::e     e:::::enn:::::::::::::::n       SS::::::SSSSS    o:::::ooooo:::::ou::::u    u::::u rr::::::rrrrr::::::rc:::::::cccccc:::::ce::::::e     e:::::e
  57. 'O:::::O     O:::::O p:::::p     p:::::pe:::::::eeeee::::::e  n:::::nnnn:::::n         SSS::::::::SS  o::::o     o::::ou::::u    u::::u  r:::::r     r:::::rc::::::c     ccccccce:::::::eeeee::::::e
  58. 'O:::::O     O:::::O p:::::p     p:::::pe:::::::::::::::::e   n::::n    n::::n            SSSSSS::::S o::::o     o::::ou::::u    u::::u  r:::::r     rrrrrrrc:::::c             e:::::::::::::::::e
  59. 'O:::::O     O:::::O p:::::p     p:::::pe::::::eeeeeeeeeee    n::::n    n::::n                 S:::::So::::o     o::::ou::::u    u::::u  r:::::r            c:::::c             e::::::eeeeeeeeeee  
  60. 'O::::::O   O::::::O p:::::p    p::::::pe:::::::e             n::::n    n::::n                 S:::::So::::o     o::::ou:::::uuuu:::::u  r:::::r            c::::::c     ccccccce:::::::e          
  61. 'O:::::::OOO:::::::O p:::::ppppp:::::::pe::::::::e            n::::n    n::::n     SSSSSSS     S:::::So:::::ooooo:::::ou:::::::::::::::uur:::::r            c:::::::cccccc:::::ce::::::::e          
  62. ' OO:::::::::::::OO  p::::::::::::::::p  e::::::::eeeeeeee    n::::n    n::::n     S::::::SSSSSS:::::So:::::::::::::::o u:::::::::::::::ur:::::r             c:::::::::::::::::c e::::::::eeeeeeee  
  63. '   OO:::::::::OO    p::::::::::::::pp    ee:::::::::::::e    n::::n    n::::n     S:::::::::::::::SS  oo:::::::::::oo   uu::::::::uu:::ur:::::r              cc:::::::::::::::c  ee:::::::::::::e  
  64. '     OOOOOOOOO      p::::::pppppppp        eeeeeeeeeeeeee    nnnnnn    nnnnnn      SSSSSSSSSSSSSSS      ooooooooooo       uuuuuuuu  uuuurrrrrrr                cccccccccccccccc    eeeeeeeeeeeeee  
  65. '                    p:::::p                                                                                                                                                                        
  66. '                    p:::::p                                                                                                                                                                        
  67. '                   p:::::::p                                                                                                                                                                      
  68. '                   p:::::::p                                                                                                                                                                      
  69. '                   p:::::::p                                                                                                                                                                      
  70. '                   ppppppppp                                                                                                                                                                      
  71. '                                                                                                                                                                                                  
  72. '
  73. 'Yb        dP 8           w      .d88b.                       w  w          dP"Yb
  74. ' Yb  db  dP  8d8b. .d88 w8ww    YPwww. .d88b .d8b 8   8 8d8b w w8ww Yb  dP "  d8
  75. '  YbdPYbdP   8P Y8 8  8  8          d8 8.dP' 8    8b d8 8P   8  8    YbdP    dP  
  76. '   YP  YP    8   8 `Y88  Y8P    `Y88P' `Y88P `Y8P `Y8P8 8    8  Y8P   dP     w  
  77. '                                                                     dP        
  78. '
  79. '
  80.  
  81.  
  82. Public Class Form1
  83.  
  84.     Private ReadOnly RanDIM As New Random()
  85.     Private Const _chars As String = "AbCdEfGhIjKlMnOpQrStUvWxYz$#!-_" '_ YOU CAN CHANGE THIS ACCORDINGLY TO RANDOM STRING YOUR TRYING TO GENERATE :)
  86.     Private Const EmailHash As String = "AbCdEfGhIjKlMnOpQrStUvWxYz1234567890" '_ YOU CAN CHANGE THIS ACCORDINGLY TO RANDOM STRING YOUR TRYING TO GENERATE :)
  87.     Private Function RandomNumber(ByVal size As Integer, ByVal size2 As Integer, ByVal size3 As Integer, ByVal subtract As Integer) As Integer
  88.         Dim rnd As New Random()
  89.         Dim Num1 As Integer = rnd.Next(size)
  90.         Dim Num2 As Integer = rnd.Next(size2)
  91.         Dim Num3 As Integer = rnd.Next(size3)
  92.         Dim minus As Integer = rnd.Next(subtract)
  93.         Dim outcome As Integer = (Num1 + Num2 + Num3) - minus
  94.         Return (outcome)
  95.     End Function
  96.  
  97.     Private Function RandomEmail(ByVal size As Integer) As String
  98.         Dim buffer(size - 1) As Char
  99.  
  100.         For i As Integer = 0 To size - 1
  101.             buffer(i) = EmailHash.Chars(RanDIM.Next(EmailHash.Length))
  102.  
  103.         Next i
  104.         Return New String(buffer)
  105.     End Function
  106.  
  107.     Private Function RandomString(ByVal size As Integer) As String
  108.         Dim buffer(size - 1) As Char
  109.  
  110.         For i As Integer = 0 To size - 1
  111.             buffer(i) = _chars.Chars(RanDIM.Next(_chars.Length))
  112.  
  113.         Next i
  114.         Return New String(buffer)
  115.     End Function
  116.  
  117.     Private Function randomPass() As String
  118.         Dim strPwdchar As String = "abcdefghijklmnopqrstuvwxyz0123456789#+@&$ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  119.         Dim strPwd As String = ""
  120.         Dim rnd As New Random()
  121.         For i As Integer = 0 To 11
  122.             Dim iRandom As Integer = rnd.Next(0, strPwdchar.Length - 1)
  123.             strPwd &= strPwdchar.Substring(iRandom, 1)
  124.         Next i
  125.         Return strPwd
  126.     End Function
  127.  
  128.     Dim RandGen As New Random
  129.     Dim RandBool As Boolean
  130.     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
  131.         TextBox3.Text = googleDocs_Spammer.My.Settings.URLgo
  132.         WebBrowser1.Navigate(TextBox3.Text)
  133.     End Sub
  134.  
  135.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  136.         Timer1.Stop()
  137.         WebBrowser1.Navigate(TextBox3.Text)
  138.         googleDocs_Spammer.My.Settings.URLgo = TextBox3.Text
  139.         googleDocs_Spammer.My.Settings.Save()
  140.         Timer1.Start()
  141.     End Sub
  142.  
  143.     Private Sub Label1_Click(sender As Object, e As EventArgs)
  144.  
  145.     End Sub
  146.  
  147.     Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs)
  148.  
  149.     End Sub
  150.  
  151.     Private Sub Label2_Click(sender As Object, e As EventArgs)
  152.  
  153.     End Sub
  154.     Dim randomBool As Boolean
  155.     Public Function Rand()
  156.         Dim rng As New Random()
  157.         randomBool = rng.Next(0, 2) > 0
  158.         Return randomBool
  159.     End Function
  160.  
  161.     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
  162.         Try
  163.             Dim document As HtmlDocument = Me.WebBrowser1.Document
  164.             'NAME
  165.             document.GetElementById("entry_1860725911").SetAttribute("value", randomPass())
  166.             'Age
  167.             document.GetElementById("entry_1041008777").SetAttribute("value", randomPass())
  168.             'how long for moddin
  169.             document.GetElementById("entry_1738889966").SetAttribute("value", randomPass())
  170.             'portfolio
  171.             document.GetElementById("entry_303465052").SetAttribute("value", randomPass())
  172.             'Why should we?
  173.             document.GetElementById("entry_1367840364").SetAttribute("value", randomPass())
  174.             'Email, skype or NGU?
  175.             document.GetElementById("entry_925826936").SetAttribute("value", "SPAMMED")
  176.  
  177.             '----------------------'
  178.             '-------CHECKBOX-------'
  179.             '----------------------'
  180.  
  181.             'C/C++
  182.             document.GetElementById("group_1847588236_1").SetAttribute("Checked", Rand())
  183.             'VB
  184.             document.GetElementById("group_1847588236_2").SetAttribute("Checked", Rand())
  185.             'C#
  186.             document.GetElementById("group_1847588236_3").SetAttribute("Checked", Rand())
  187.             'PHP/HTML/CSS
  188.             document.GetElementById("group_1847588236_4").SetAttribute("Checked", Rand())
  189.             'None
  190.             document.GetElementById("group_1847588236_6").SetAttribute("Checked", Rand())
  191.  
  192.             WebBrowser1.Document.GetElementById("ss-submit").InvokeMember("Click")
  193.             Timer1.Stop()
  194.             Timer2.Start()
  195.         Catch ex As Exception
  196.             Timer1.Stop()
  197.             Timer2.Start()
  198.         End Try
  199.     End Sub
  200.  
  201.  
  202.  
  203.     Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
  204.         Try
  205.             If (WebBrowser1.Url.ToString = TextBox3.Text) Then
  206.                 ' SendKeys.Send("{DOWN}")  ---IGNORE THIS, THIS WAS TO INVOKE KEYPRESS FOR JAVASCRIPT POPUP for PAGE NAVIGATION
  207.                 ' SendKeys.Send("{Enter}") ---IGNORE THIS, THIS WAS TO INVOKE KEYPRESS FOR JAVASCRIPT POPUP for PAGE NAVIGATION
  208.                 WebBrowser1.Document.GetElementById("ss-submit").InvokeMember("Click")
  209.                 Timer2.Stop()
  210.                 Timer1.Start()
  211.             Else
  212.                 Timer2.Stop()
  213.                 WebBrowser1.Navigate(TextBox3.Text)
  214.                 'SendKeys.Send("{Enter}") ' LEAVE PAGE
  215.                 Timer1.Start()
  216.             End If
  217.         Catch
  218.             'DO NOTHING
  219.             Timer1.Start()
  220.         End Try
  221.     End Sub
  222.  
  223.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  224.         Timer1.Stop()
  225.         Timer2.Stop()
  226.     End Sub
  227.     Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
  228.  
  229.     End Sub
  230.  
  231.     Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
  232.         WebBrowser1.ScriptErrorsSuppressed = True
  233.         Dim Document As HtmlDocument = Me.WebBrowser1.Document
  234.     End Sub
  235.  
  236.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
  237.         WebBrowser1.Document.GetElementById("ss-submit").InvokeMember("Click")
  238.     End Sub
  239.  
  240.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  241.  
  242.     End Sub
  243.  
  244.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
  245.         Timer1.Stop()
  246.         Timer2.Stop()
  247.         TextBox3.Text = "https://docs.google.com/forms/d/17NH8ruF3vpChPNUailP9tYhMk5yW6EhzDygnEnzZa5I/viewform?fbzx=1039479243069787340"
  248.     End Sub
  249. End Class
Add Comment
Please, Sign In to add comment