SHARE
TWEET

Untitled

a guest Feb 17th, 2013 22 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;--------------------------------------------
  2. ; nom du projet : bot vote ivalice            -
  3. ; version : 1.0b (b = beta)                    -
  4. ; auteur : n0way                            -
  5. ; msn : n0way@live.fr                         -
  6. ;                                            -
  7. ; debut de la prog° : 5/01/11         (12:09)    -
  8. ; fin de la prog° :                            -
  9. ;--------------------------------------------
  10.  
  11.  
  12.  
  13. ;- include -
  14.  
  15. #include <ButtonConstants.au3>
  16. #include <EditConstants.au3>
  17. #include <GUIConstantsEx.au3>
  18. #include <GUIListBox.au3>
  19. #include <StaticConstants.au3>
  20. #include <TabConstants.au3>
  21. #include <WindowsConstants.au3>
  22. #include <String.au3>
  23.  
  24. #include <Timers.au3>
  25. #Include <Date.au3>
  26.  
  27.  
  28.  
  29. ;- gui -
  30.  
  31. Global $Form1 = GUICreate("Ivalice BOT Vote - v1.0b                                                                by n0way", 448, 335, 326, 146)
  32.  
  33. Global $Tab1 = GUICtrlCreateTab(8, 8, 433, 321)
  34. GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
  35.  
  36.     ;- TabSheet1 -
  37. Global $TabSheet1 = GUICtrlCreateTabItem("   Vote   ")
  38. GUICtrlSetState(-1,$GUI_SHOW)
  39. Global $Group1 = GUICtrlCreateGroup(" Historique des votes ", 232, 40, 185, 273)
  40. Global $List1 = GUICtrlCreateList("", 240, 64, 169, 240)
  41. GUICtrlCreateGroup("", -99, -99, 1, 1)
  42. Global $Group2 = GUICtrlCreateGroup(" Informations sur le compte ", 16, 40, 209, 129)
  43. Global $Input1 = GUICtrlCreateInput("login", 50, 72, 137, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
  44. Global $Input2 = GUICtrlCreateInput("password", 50, 105, 137, 21, BitOR($ES_CENTER,$ES_PASSWORD,$ES_AUTOHSCROLL))
  45. Global $Button2 = GUICtrlCreateButton("Confirmer", 82, 136, 75, 25, $WS_GROUP)
  46. GUICtrlCreateGroup("", -99, -99, 1, 1)
  47.  
  48.     ;- TabSheet3 -
  49. Global $TabSheet3 = GUICtrlCreateTabItem("   About   ")
  50. Global $Edit1 = GUICtrlCreateEdit("", 20, 64, 410, 241)
  51. 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"))
  52. GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
  53. GUICtrlCreateTabItem("")
  54. GUISetState(@SW_SHOW)
  55.  
  56.  
  57.  
  58. ;- variable -
  59.  
  60. TCPStartup()
  61.  
  62. Global $configfile = @ScriptDir & '\config.ini'
  63.  
  64. if Not FileExists($configfile) Then
  65.     IniWrite($configfile, "account", "login", "")
  66.     IniWrite($configfile, "account", "pw", "")
  67.     IniWrite($configfile, "exec", "load", "0")
  68. EndIf
  69.  
  70. Global $load = IniRead($configfile, "exec", "load", "")
  71.         IniWrite($configfile, "exec", "load", $load+1)
  72. Global $loginIVA = IniRead($configfile, "account", "login", "")
  73. Global $pwIVA = IniRead($configfile, "account", "pw", "")
  74. $pwIVA = DecryptPW($pwIVA)
  75.  
  76. Global $voteserv = "www.ivalice-serveur.com"
  77. Global $voteipserv = TCPNameToIp($voteserv)
  78. Global $voteport = 80
  79. Global $votecount = 0
  80. Global $voterandplusminute = 0
  81.  
  82. Global $var = 0
  83.  
  84. Global $UserAgent[6]
  85. $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)"
  86. $UserAgent[2] = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"
  87. $UserAgent[3] = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)"
  88. $UserAgent[4] = "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1)"
  89. $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"
  90.  
  91. Global $Init1 = _Timer_Init()
  92. Global $Init2 = 0
  93.  
  94.  
  95.  
  96. ;- func -
  97.  
  98. Func EncryptPW($pw)
  99.     $pwencrypted = _StringEncrypt(1, $pw, "n0way", 1)
  100.     return $pwencrypted
  101. EndFunc
  102.  
  103. Func DecryptPW($pw)
  104.     $pwdecrypted = _StringEncrypt(0, $pw, "n0way", 1)
  105.     return $pwdecrypted
  106. EndFunc
  107.  
  108. Func IniWriteLoginPw($login, $pw)
  109.     if $login <> "" AND $pw <> "" Then
  110.         IniWrite($configfile, "account", "login", $login)
  111.         IniWrite($configfile, "account", "pw", EncryptPW($pw))
  112.         msgbox(1, "Confirmation", "votre login et password ont bien été sauvegardés")
  113.     Else
  114.         msgBox(1, "Erreur", "Le login ou password n'est pas correct")
  115.     EndIf
  116. EndFunc
  117.  
  118. Func VoteRightNow()
  119.     $x = Random(1, 5)
  120.     $loginpost = "checkHidden=PITEUR&userform=" & $loginIVA & "&passform=" & $pwIVA
  121.  
  122.     $packet = "POST /index.php?section=connexion HTTP/1.1" & @CRLF & _
  123.     "Host: www.ivalice-serveur.com" & @CRLF & _
  124.     "User-Agent: " & $UserAgent[$x] & @CRLF & _
  125.     "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
  126.     "Accept-Language: fr,fr-fr;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
  127.     "Accept-Encoding: gzip,deflate" & @CRLF & _
  128.     "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
  129.     "Keep-Alive: 115" & @CRLF & _
  130.     "Connection: keep-alive" & @CRLF & _
  131.     "Referer: http://www.ivalice-serveur.com/index.php?section=index" & @CRLF & _
  132.     "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 & _
  133.     "Content-Type: application/x-www-form-urlencoded" & @CRLF & _
  134.     "Content-Length: 50" & @CRLF & @CRLF & $loginpost
  135.  
  136.     $packet2 = "GET /index.php?section=vote HTTP/1.1" & @CRLF & _
  137.     "Host: www.ivalice-serveur.com" & @CRLF & _
  138.     "User-Agent: " & $UserAgent[$x] & @CRLF & _
  139.     "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
  140.     "Accept-Language: fr,fr-fr;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
  141.     "Accept-Encoding: gzip,deflate" & @CRLF & _
  142.     "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
  143.     "Keep-Alive: 115" & @CRLF & _
  144.     "Connection: keep-alive" & @CRLF & _
  145.     "Referer: http://www.ivalice-serveur.com/index.php?section=mon_compte" & @CRLF & _
  146.     "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
  147.  
  148.     $sockvote = TCPConnect($voteipserv, $voteport)
  149.     sleep(100)
  150.     $test = TCPSend($sockvote, $packet)
  151.     sleep(1000)
  152.     $test2 = TCPSend($sockvote, $packet2)
  153.     sleep(100)
  154.  
  155.     TCPCloseSocket($sockvote)
  156.     _GUICTrlListBox_AddString($List1, _NowDate() & " @ " &  _NowTime(4))
  157.     $votecount = $votecount + 1
  158.  
  159.     $Init2 = _Timer_Init()
  160.  
  161.     $voterandplusminute = Random(1, 9) * 60 * 1000
  162. EndFunc
  163.  
  164.  
  165.  
  166. ;- check -
  167.  
  168. if $loginIVA = "" Then
  169.     IniWrite($configfile, "account", "login", "login")
  170.     IniWrite($configfile, "account", "pw", EncryptPW("password"))
  171. Else
  172.     GuiCTRLSetData($Input1, $loginIVA)
  173.     GuiCTRLSetData($Input2, $pwIVA)
  174. EndIf
  175.  
  176.  
  177.  
  178.  
  179. ;- en continu -
  180.  
  181. While 1
  182.     sleep(10)
  183.  
  184.     $nMsg = GUIGetMsg()
  185.  
  186.     Switch $nMsg
  187.         Case $GUI_EVENT_CLOSE
  188.             Exit
  189.         Case $Button2
  190.             IniWriteLoginPw(GUICTrlRead($Input1), GUICTRLRead($input2))
  191.     EndSwitch
  192.  
  193.     if _Timer_Diff($Init1) > 30000 AND $loginIVA <> "login" AND $var = 0 AND $loginIVA <> "login" Then
  194.         $var = 1
  195.         VoteRightNow()
  196.     EndIf
  197.     if _Timer_Diff($Init2) > 7200000 + $voterandplusminute AND $loginIVA <> "login" Then
  198.         VoteRightNow()
  199.     EndIf
  200.  
  201. WEnd
  202.  
  203. TCPShutdown()
RAW Paste Data
Pastebin PRO Summer Special!
Get 60% OFF on Pastebin PRO accounts!
Top