[yarinaz]

Minecraft Premium account checker

I am vb.net beginner and this is one of my little projects with some WebClient and HttpWebRequests, etc..

Hope it will be useful for some people here.

Download : Here

Virus scan :
https://www.virustotal.com/he/file/c82ac...416226916/

[$lick]

For those not wanting to execute a project file;

Code

Public Class Form1
    Dim check As New System.Threading.Thread(AddressOf checker)
    Public Sub checker()
      For i = 0 To ListBox1.Items.Count - 1
      ListBox1.SelectedIndex = i 'Causes CrossThreadCalls error
      Dim s As String = New System.Net.WebClient().DownloadString("https://minecraft.net/haspaid.jsp?user=" & ListBox1.SelectedItem)
      If s.Contains("true") Then '<-- premium'
      ListBox2.Items.Add(ListBox1.SelectedItem)
      GoTo nextcheck '
      Else
      '<--failed'
      End If
nextcheck:
      Next i
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs)
      Me.Close()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Control.CheckForIllegalCrossThreadCalls = False 'Ignore CrossThreadCalls error
      check.Start()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
      Dim load As New OpenFileDialog With { _
.AddExtension = True, _
.Filter = "txt files (*.txt)|*.txt", _
.FilterIndex = 0, _
.RestoreDirectory = True, _
.InitialDirectory = My.Application.Info.DirectoryPath}
      If load.ShowDialog = Windows.Forms.DialogResult.OK Then
      ListBox1.Items.Clear()
      ListBox1.Items.AddRange(IO.File.ReadAllLines(load.FileName))
      End If
    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
      Me.Close()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
      Dim SetSave As SaveFileDialog = New SaveFileDialog
      Dim i As Integer
      SetSave.Title = "Export .txt"
      SetSave.Filter = ".txt File (*.txt)|*.txt"

      If SetSave.ShowDialog = Windows.Forms.DialogResult.OK Then
      Dim s As New IO.StreamWriter(SetSave.FileName, True)
      For i = 0 To ListBox2.Items.Count - 1
      s.WriteLine(ListBox2.Items.Item(i))
      Next
      s.Close()
      End If
    End Sub
End Class

[StamenixD]

Good stuff, i will try it later for sure!

[Aeolus]

For those not wanting to execute a project file;

Code

Public Class Form1
    Dim check As New System.Threading.Thread(AddressOf checker)
    Public Sub checker()
      For i = 0 To ListBox1.Items.Count - 1
      ListBox1.SelectedIndex = i 'Causes CrossThreadCalls error
      Dim s As String = New System.Net.WebClient().DownloadString("https://minecraft.net/haspaid.jsp?user=" & ListBox1.SelectedItem)
      If s.Contains("true") Then '<-- premium'
      ListBox2.Items.Add(ListBox1.SelectedItem)
      GoTo nextcheck '
      Else
      '<--failed'
      End If
nextcheck:
      Next i
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs)
      Me.Close()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Control.CheckForIllegalCrossThreadCalls = False 'Ignore CrossThreadCalls error
      check.Start()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
      Dim load As New OpenFileDialog With { _
.AddExtension = True, _
.Filter = "txt files (*.txt)|*.txt", _
.FilterIndex = 0, _
.RestoreDirectory = True, _
.InitialDirectory = My.Application.Info.DirectoryPath}
      If load.ShowDialog = Windows.Forms.DialogResult.OK Then
      ListBox1.Items.Clear()
      ListBox1.Items.AddRange(IO.File.ReadAllLines(load.FileName))
      End If
    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
      Me.Close()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
      Dim SetSave As SaveFileDialog = New SaveFileDialog
      Dim i As Integer
      SetSave.Title = "Export .txt"
      SetSave.Filter = ".txt File (*.txt)|*.txt"

      If SetSave.ShowDialog = Windows.Forms.DialogResult.OK Then
      Dim s As New IO.StreamWriter(SetSave.FileName, True)
      For i = 0 To ListBox2.Items.Count - 1
      s.WriteLine(ListBox2.Items.Item(i))
      Next
      s.Close()
      End If
    End Sub
End Class

Bro! the code will be working but the program made from it would be not stable as the program can't handle huge passwords wordlists which will cause the app to freeze!

[$lick]

Bro! the code will be working but the program made from it would be not stable as the program can't handle huge passwords wordlists which will cause the app to freeze!

Huh?

All he is doing is checking if they have premium... No password lists needed.

[LordCoder]

Huh?

All he is doing is checking if they have premium... No password lists needed.

He thinks it's an account bruteforcer as I see.

[Madopt]

Huh?

All he is doing is checking if they have premium... No password lists needed.

Actually, he has a point. When you are dealing with huge amount of data (importing/exporting) application should be multithreaded. Otherwise, the program will freeze/crash).

[WhyWork]

Here's another one that ByteBlast made:

https://hackforums.net/showthread.php?tid=2200674

I believe it's better because it shows how to use delegates in order to update the UI, instead of disabling the check for illegal cross threading (huge no-no)

[Trig-Config-Maker]

i wrote 1 myself from a thread last week someone asked for about a onlins single checker ive updated it since with cape check, skin grabber and a few more things but heres the original rough draft.

http://uppit.com/3elt9votp456/Mc_Multi_Checker.rar <-- yes its exe but also virustotal scann is below too

https://www.virustotal.com/en/file/bb5b5...416533934/

[Mr. Cash]

Code

Private Function isPremium(ByVal username As String)
  Dim x As New Net.WebClient
  Dim z As String = x.DownloadString("http://www.minecraft.net/haspaid.jsp?user=" & username)
  If z.Contains("true") Then
    Return True
  Else
    Return False
  End If
    End Function