Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;--------------------------------------------
- ; nom du projet : bot vote ivalice -
- ; version : 1.0b (b = beta) -
- ; auteur : n0way -
- ; msn : n0way@live.fr -
- ; -
- ; debut de la prog° : 5/01/11 (12:09) -
- ; fin de la prog° : -
- ;--------------------------------------------
- ;- include -
- #include <ButtonConstants.au3>
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <GUIListBox.au3>
- #include <StaticConstants.au3>
- #include <TabConstants.au3>
- #include <WindowsConstants.au3>
- #include <String.au3>
- #include <Timers.au3>
- #Include <Date.au3>
- ;- gui -
- Global $Form1 = GUICreate("Ivalice BOT Vote - v1.0b by n0way", 448, 335, 326, 146)
- Global $Tab1 = GUICtrlCreateTab(8, 8, 433, 321)
- GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
- ;- TabSheet1 -
- Global $TabSheet1 = GUICtrlCreateTabItem(" Vote ")
- GUICtrlSetState(-1,$GUI_SHOW)
- Global $Group1 = GUICtrlCreateGroup(" Historique des votes ", 232, 40, 185, 273)
- Global $List1 = GUICtrlCreateList("", 240, 64, 169, 240)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- Global $Group2 = GUICtrlCreateGroup(" Informations sur le compte ", 16, 40, 209, 129)
- Global $Input1 = GUICtrlCreateInput("login", 50, 72, 137, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
- Global $Input2 = GUICtrlCreateInput("password", 50, 105, 137, 21, BitOR($ES_CENTER,$ES_PASSWORD,$ES_AUTOHSCROLL))
- Global $Button2 = GUICtrlCreateButton("Confirmer", 82, 136, 75, 25, $WS_GROUP)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- ;- TabSheet3 -
- Global $TabSheet3 = GUICtrlCreateTabItem(" About ")
- Global $Edit1 = GUICtrlCreateEdit("", 20, 64, 410, 241)
- GUICtrlSetData(-1, StringFormat("Nom : Ivalice BOT Vote\r\nAuteur : n0way\r\nVersion : 1.0b (b=béta)\r\nLangage utilisé : AutoIT\r\n\r\n---\r\n\r\n- encrypt password / decrypt password :\r\n les mots de passe que vous introduirez \r\nseront encrypter, de manière simple et \r\nfacilement cassable, mais cela évite \r\nque votre mot de passe traine dans le\r\n fichier config.ini du programme en toute \r\nlettre, et donc qu"&Chr(39)&"un ami de passage \r\nvous prennes votre mot de passe.\r\n\r\n- le vote est effectué toutes les 2h0x , \r\noù x est un chiffre au hasard entre 2 et 9,\r\n ca évite que bizarrement le vote soit pile poil\r\n tout les 2 heures (ca peut évite d"&Chr(39)&"être détecté \r\nsi jamais ils ont un détecteur de vote par un bot.\r\n\r\n- le user-agent est différent, il est choisi parmi \r\nplusieurs de manière aléatoire, afin de faire\r\n croire que a chaque fois vous utilisez \r\nun Navigateur différent.\r\n\r\nListe des User-Agent :\r\n1- Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13 ( .NET CLR 3.5.30729)\r\n2- Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) \r\n3- Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0) \r\n4- Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1)\r\n5- Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, like Gecko) Version/4.0 Mobile/7A341 Safari/528.16 \r\n"))
- GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
- GUICtrlCreateTabItem("")
- GUISetState(@SW_SHOW)
- ;- variable -
- TCPStartup()
- Global $configfile = @ScriptDir & '\config.ini'
- if Not FileExists($configfile) Then
- IniWrite($configfile, "account", "login", "")
- IniWrite($configfile, "account", "pw", "")
- IniWrite($configfile, "exec", "load", "0")
- EndIf
- Global $load = IniRead($configfile, "exec", "load", "")
- IniWrite($configfile, "exec", "load", $load+1)
- Global $loginIVA = IniRead($configfile, "account", "login", "")
- Global $pwIVA = IniRead($configfile, "account", "pw", "")
- $pwIVA = DecryptPW($pwIVA)
- Global $voteserv = "www.ivalice-serveur.com"
- Global $voteipserv = TCPNameToIp($voteserv)
- Global $voteport = 80
- Global $votecount = 0
- Global $voterandplusminute = 0
- Global $var = 0
- Global $UserAgent[6]
- $UserAgent[1] = "Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13 ( .NET CLR 3.5.30729)"
- $UserAgent[2] = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"
- $UserAgent[3] = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)"
- $UserAgent[4] = "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1)"
- $UserAgent[5] = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, like Gecko) Version/4.0 Mobile/7A341 Safari/528.16"
- Global $Init1 = _Timer_Init()
- Global $Init2 = 0
- ;- func -
- Func EncryptPW($pw)
- $pwencrypted = _StringEncrypt(1, $pw, "n0way", 1)
- return $pwencrypted
- EndFunc
- Func DecryptPW($pw)
- $pwdecrypted = _StringEncrypt(0, $pw, "n0way", 1)
- return $pwdecrypted
- EndFunc
- Func IniWriteLoginPw($login, $pw)
- if $login <> "" AND $pw <> "" Then
- IniWrite($configfile, "account", "login", $login)
- IniWrite($configfile, "account", "pw", EncryptPW($pw))
- msgbox(1, "Confirmation", "votre login et password ont bien été sauvegardés")
- Else
- msgBox(1, "Erreur", "Le login ou password n'est pas correct")
- EndIf
- EndFunc
- Func VoteRightNow()
- $x = Random(1, 5)
- $loginpost = "checkHidden=PITEUR&userform=" & $loginIVA & "&passform=" & $pwIVA
- $packet = "POST /index.php?section=connexion HTTP/1.1" & @CRLF & _
- "Host: www.ivalice-serveur.com" & @CRLF & _
- "User-Agent: " & $UserAgent[$x] & @CRLF & _
- "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
- "Accept-Language: fr,fr-fr;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
- "Accept-Encoding: gzip,deflate" & @CRLF & _
- "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
- "Keep-Alive: 115" & @CRLF & _
- "Connection: keep-alive" & @CRLF & _
- "Referer: http://www.ivalice-serveur.com/index.php?section=index" & @CRLF & _
- "Cookie: PHPSESSID=dffc260b16ff580333ff9626e809f166; __utma=38717691.459574506.1294249589.1294249589.1294259069.2; __utmc=38717691; __utmz=38717691.1294249589.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); __utmb=38717691.1.10.1294259069" & @CRLF & _
- "Content-Type: application/x-www-form-urlencoded" & @CRLF & _
- "Content-Length: 50" & @CRLF & @CRLF & $loginpost
- $packet2 = "GET /index.php?section=vote HTTP/1.1" & @CRLF & _
- "Host: www.ivalice-serveur.com" & @CRLF & _
- "User-Agent: " & $UserAgent[$x] & @CRLF & _
- "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
- "Accept-Language: fr,fr-fr;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
- "Accept-Encoding: gzip,deflate" & @CRLF & _
- "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
- "Keep-Alive: 115" & @CRLF & _
- "Connection: keep-alive" & @CRLF & _
- "Referer: http://www.ivalice-serveur.com/index.php?section=mon_compte" & @CRLF & _
- "Cookie: PHPSESSID=dffc260b16ff580333ff9626e809f166; __utma=38717691.459574506.1294249589.1294249589.1294259069.2; __utmc=38717691; __utmz=38717691.1294249589.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); __utmb=38717691.1.10.1294259069" & @CRLF & @CRLF
- $sockvote = TCPConnect($voteipserv, $voteport)
- sleep(100)
- $test = TCPSend($sockvote, $packet)
- sleep(1000)
- $test2 = TCPSend($sockvote, $packet2)
- sleep(100)
- TCPCloseSocket($sockvote)
- _GUICTrlListBox_AddString($List1, _NowDate() & " @ " & _NowTime(4))
- $votecount = $votecount + 1
- $Init2 = _Timer_Init()
- $voterandplusminute = Random(1, 9) * 60 * 1000
- EndFunc
- ;- check -
- if $loginIVA = "" Then
- IniWrite($configfile, "account", "login", "login")
- IniWrite($configfile, "account", "pw", EncryptPW("password"))
- Else
- GuiCTRLSetData($Input1, $loginIVA)
- GuiCTRLSetData($Input2, $pwIVA)
- EndIf
- ;- en continu -
- While 1
- sleep(10)
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $Button2
- IniWriteLoginPw(GUICTrlRead($Input1), GUICTRLRead($input2))
- EndSwitch
- if _Timer_Diff($Init1) > 30000 AND $loginIVA <> "login" AND $var = 0 AND $loginIVA <> "login" Then
- $var = 1
- VoteRightNow()
- EndIf
- if _Timer_Diff($Init2) > 7200000 + $voterandplusminute AND $loginIVA <> "login" Then
- VoteRightNow()
- EndIf
- WEnd
- TCPShutdown()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement