Locked ShellChecker By SwedHck

[neo22]

This is the hidden content, please

• Sign In
• or
• Sign Up

 

 

 

[HIDE-THANKS]Imports System.IO

Imports System.Net

Imports Microsoft.VisualBasic.CompilerServices

Imports ShellChecker__By_SwedHck.My

Imports System.Threading

 

Public Class Form1

Public Shared counter As Integer

Public Shared listac As Queue(Of String) = New Queue(Of String)

Public Shared pocetno As HashSet(Of String) = New HashSet(Of String)

Public Shared stopit As Integer

Private Delegate Sub updater(ByVal msg As Object)

 

Private Sub GHFFFTG(ByVal a0 As Object)

Me.status()

End Sub

Private Sub KKKJJIKK(ByVal a0 As Object)

txtTCPadd(Conversions.ToString(a0))

End Sub

 

 

Private Sub ERWSAQW(ByVal a0 As Object)

txtUDPadd(Conversions.ToString(a0))

End Sub

 

 

Private Sub UYURRE(ByVal a0 As Object)

status()

End Sub

 

 

Private Sub OPIKLJHG(ByVal a0 As Object)

checker(Conversions.ToInteger(a0))

End Sub

Private Sub Ambiance_Button_21_Click(sender As Object, e As EventArgs) Handles Ambiance_Button_21.Click

Using dialog As OpenFileDialog = New OpenFileDialog

If (dialog.ShowDialog = DialogResult.OK) Then

txtPocetno.Clear()

 

Try

txtPocetno.Text = MyProject.Computer.FileSystem.ReadAllText(dialog.FileName)

Catch exception1 As Exception

ProjectData.SetProjectError(exception1)

Dim exception As Exception = exception1

Interaction.MsgBox(exception.Message, MsgBoxStyle.ApplicationModal, Nothing)

ProjectData.ClearProjectError()

End Try

End If

End Using

End Sub

 

Private Sub Ambiance_Button_23_Click(sender As Object, e As EventArgs) Handles lblTCP.Click

Using dialog As SaveFileDialog = New SaveFileDialog

If (dialog.ShowDialog = DialogResult.OK) Then

Try

MyProject.Computer.FileSystem.WriteAllText(dialog.FileName, txtTCP.Text, False)

Catch exception1 As Exception

ProjectData.SetProjectError(exception1)

Dim exception As Exception = exception1

Interaction.MsgBox(exception.Message, MsgBoxStyle.ApplicationModal, Nothing)

ProjectData.ClearProjectError()

End Try

End If

End Using

End Sub

 

Private Sub Ambiance_Button_22_Click(sender As Object, e As EventArgs) Handles lblUDP.Click

Using dialog As SaveFileDialog = New SaveFileDialog

If (dialog.ShowDialog = DialogResult.OK) Then

Try

MyProject.Computer.FileSystem.WriteAllText(dialog.FileName, txtUDP.Text, False)

Catch exception1 As Exception

ProjectData.SetProjectError(exception1)

Dim exception As Exception = exception1

Interaction.MsgBox(exception.Message, MsgBoxStyle.ApplicationModal, Nothing)

ProjectData.ClearProjectError()

End Try

End If

End Using

End Sub

 

Private Sub Ambiance_Button_24_Click(sender As Object, e As EventArgs) Handles Ambiance_Button_24.Click

Form1.pocetno.Clear()

Form1.listac.Clear()

Me.ProgressBar1.Value = 0

Form1.stopit = 0

Dim str As String

For Each str In Me.txtPocetno.Lines

Form1.pocetno.Add(str)

Next

Dim str2 As String

For Each str2 In Form1.pocetno

Form1.listac.Enqueue(str2)

Next

Dim num As Integer = Conversions.ToInteger(Me.txtThreads.Text)

Dim parameter As Integer = Conversions.ToInteger(Me.txtTimeout.Text)

Form1.counter = Form1.listac.Count

Dim num5 As Integer = (num - 1)

Dim i As Integer = 0

Do While (i <= num5)

New Thread(New ParameterizedThreadStart(AddressOf Me._Lambda$__5)).Start(parameter)

i += 1

Loop

 

End Sub

 

 

 

Private Sub Ambiance_Button_25_Click(sender As Object, e As EventArgs) Handles Ambiance_Button_25.Click

Form1.stopit = 1

End Sub

Public Sub checker(ByVal timeout As Integer)

Do While ((Form1.listac.Count > 0) And (Form1.stopit = 0))

Try

Dim method As updater = New updater(AddressOf GHFFFTG)

Invoke(method, New Object() {Nothing})

Dim requestUriString As String = Form1.listac.Dequeue

Dim request As HttpWebRequest = DirectCast(WebRequest.Create(requestUriString), HttpWebRequest)

request.UserAgent = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)"

request.Timeout = timeout

request.ReadWriteTimeout = timeout

request.KeepAlive = False

Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)

Dim str As String = New StreamReader(response.GetResponseStream).ReadToEnd

If str.Contains("Don't DoS yourself nub") Then

Dim updater2 As updater = New updater(AddressOf KKKJJIKK)

Invoke(updater2, New Object() {requestUriString})

ElseIf str.Contains("UDP") Then

Dim updater3 As updater = New updater(AddressOf ERWSAQW)

Invoke(updater3, New Object() {requestUriString})

End If

Continue Do

Catch exception1 As Exception

ProjectData.SetProjectError(exception1)

ProjectData.ClearProjectError()

Continue Do

End Try

Loop

Try

Dim updater4 As updater = New updater(AddressOf UYURRE)

Invoke(updater4, New Object() {Nothing})

Catch exception3 As Exception

ProjectData.SetProjectError(exception3)

ProjectData.ClearProjectError()

End Try

End Sub

Public Sub status()

Try

lblchecking.Text = ("Left: " & Conversions.ToString(Form1.listac.Count))

ProgressBar1.Value = CInt(Math.Round(CDbl(((CDbl((Form1.counter - Form1.listac.Count)) / CDbl(Form1.counter)) * 100))))

Catch exception1 As Exception

ProjectData.SetProjectError(exception1)

ProjectData.ClearProjectError()

End Try

End Sub

 

Public Sub txtTCPadd(ByVal a As String)

Try

If Not txtTCP.Text.Contains((a & ChrW(13) & ChrW(10))) Then

txtTCP.SelectionStart = Strings.Len(txtTCP.Text)

txtTCP.SelectedText = (a & ChrW(13) & ChrW(10))

lblTCP.Text = ("TCP: " & Conversions.ToString(CInt((Enumerable.Count(Of String)(txtTCP.Lines) - 1))))

End If

Catch exception1 As Exception

ProjectData.SetProjectError(exception1)

ProjectData.ClearProjectError()

End Try

End Sub

 

Public Sub txtUDPadd(ByVal a As String)

Try

If Not txtUDP.Text.Contains((a & ChrW(13) & ChrW(10))) Then

txtUDP.SelectionStart = Strings.Len(txtUDP.Text)

txtUDP.SelectedText = (a & ChrW(13) & ChrW(10))

lblUDP.Text = ("UDP: " & Conversions.ToString(CInt((Enumerable.Count(Of String)(txtUDP.Lines) - 1))))

End If

Catch exception1 As Exception

ProjectData.SetProjectError(exception1)

ProjectData.ClearProjectError()

End Try

End Sub

End Class

[/HIDE-THANKS]