you are an idiot the source code is in the same file you dumbshit its prob false possitives,
if you have vb look in the folder thats in the zip names Source you fool... and if your to stupid decompile it its not packed at all... and heres all of the code that is in it.
Private Sub Command1_Click()
If Option1.Value = True Then
Call NCCconnect
Else: Call ProxyConnect
End If
End Sub
Private Sub Command2_Click()
Winsock1.Close
RichTextBox1 = ""
Label1 = "Disconnected"
End Sub
Private Sub Form_Load()
For R = Rnd * 99 To Rnd * 999
List1.AddItem Replace(R, ".", "")
Next
List1.Text = List1.ListIndex + 1
End Sub
Private Sub Option1_Click()
Text3.Enabled = False
Text4.Enabled = False
Label2.Enabled = False
Label3.Enabled = False
End Sub
Private Sub Option2_Click()
Text3.Enabled = True
Text4.Enabled = True
Label2.Enabled = True
Label3.Enabled = True
End Sub
Private Sub Winsock1_Connect()
Dim LoginYahoo As String
Dim Login22 As String
Login22 = "account=" & Text1 & List1.Text & "&myemail=" & Text5 & "&username=" & Text6 & List1.Text & "&pasword=" & Text2 & "&pasword=" & Text2 & "&gender=0&submit=REGISTER"
LoginYahoo = "POST /fembria/regcheck.php HTTP/1.1" & vbCrLf
LoginYahoo = LoginYahoo & "Host: 221.195.40.141:1026" & vbCrLf
LoginYahoo = LoginYahoo & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)" & vbCrLf
LoginYahoo = LoginYahoo & "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-shockwave-flash, */*" & vbCrLf
LoginYahoo = LoginYahoo & "Accept-Language: en-us" & vbCrLf
LoginYahoo = LoginYahoo & "Accept-Encoding: gzip, deflate" & vbCrLf
LoginYahoo = LoginYahoo & "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & vbCrLf
LoginYahoo = LoginYahoo & "Connection: Keep-Alive" & vbCrLf
LoginYahoo = LoginYahoo & "Referer: http://221.195.40.141:1026/fembria/" & vbCrLf
LoginYahoo = LoginYahoo & "Content-Type: application/x-www-form-urlencoded" & vbCrLf
LoginYahoo = LoginYahoo & "Content-Length: " & Len(Login22) & vbCrLf & vbCrLf
Winsock1.SendData LoginYahoo & Login22
Debug.Print LoginYahoo
Debug.Print Login22
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim LoginData As String
Winsock1.GetData LoginData
RichTextBox1 = LoginData
If InStr(LoginData, "successed") Then
Label1 = "Account Made!"
RTB.Text = RTB.Text & "Account Name: " & Text1 & List1.Text & vbCrLf
RTB.Text = RTB.Text & "Email: " & Text5 & vbCrLf
RTB.Text = RTB.Text & "User Name: " & Text6 & List1.Text & vbCrLf
RTB.Text = RTB.Text & "Password: " & Text2 & vbCrLf & vbCrLf
End If
If InStr(LoginData, "999") Then
Label1 = "Banned"
End If
Debug.Print LoginData
List1.ListIndex = List1.ListIndex + 1
Call NCCconnect
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Label1 = Description
End Sub
Public Function NCCconnect()
Winsock1.Close
Winsock1.Connect "221.195.40.141", "1026"
Label1 = "Connecting NCC"
End Function
Public Function ProxyConnect()
Winsock1.Close
Winsock1.Connect Text3, Text4
Label1 = "Connecting Proxy"
End Function
thats it simple
if you have vb look in the folder thats in the zip names Source you fool... and if your to stupid decompile it its not packed at all... and heres all of the code that is in it.
Private Sub Command1_Click()
If Option1.Value = True Then
Call NCCconnect
Else: Call ProxyConnect
End If
End Sub
Private Sub Command2_Click()
Winsock1.Close
RichTextBox1 = ""
Label1 = "Disconnected"
End Sub
Private Sub Form_Load()
For R = Rnd * 99 To Rnd * 999
List1.AddItem Replace(R, ".", "")
Next
List1.Text = List1.ListIndex + 1
End Sub
Private Sub Option1_Click()
Text3.Enabled = False
Text4.Enabled = False
Label2.Enabled = False
Label3.Enabled = False
End Sub
Private Sub Option2_Click()
Text3.Enabled = True
Text4.Enabled = True
Label2.Enabled = True
Label3.Enabled = True
End Sub
Private Sub Winsock1_Connect()
Dim LoginYahoo As String
Dim Login22 As String
Login22 = "account=" & Text1 & List1.Text & "&myemail=" & Text5 & "&username=" & Text6 & List1.Text & "&pasword=" & Text2 & "&pasword=" & Text2 & "&gender=0&submit=REGISTER"
LoginYahoo = "POST /fembria/regcheck.php HTTP/1.1" & vbCrLf
LoginYahoo = LoginYahoo & "Host: 221.195.40.141:1026" & vbCrLf
LoginYahoo = LoginYahoo & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)" & vbCrLf
LoginYahoo = LoginYahoo & "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-shockwave-flash, */*" & vbCrLf
LoginYahoo = LoginYahoo & "Accept-Language: en-us" & vbCrLf
LoginYahoo = LoginYahoo & "Accept-Encoding: gzip, deflate" & vbCrLf
LoginYahoo = LoginYahoo & "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & vbCrLf
LoginYahoo = LoginYahoo & "Connection: Keep-Alive" & vbCrLf
LoginYahoo = LoginYahoo & "Referer: http://221.195.40.141:1026/fembria/" & vbCrLf
LoginYahoo = LoginYahoo & "Content-Type: application/x-www-form-urlencoded" & vbCrLf
LoginYahoo = LoginYahoo & "Content-Length: " & Len(Login22) & vbCrLf & vbCrLf
Winsock1.SendData LoginYahoo & Login22
Debug.Print LoginYahoo
Debug.Print Login22
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim LoginData As String
Winsock1.GetData LoginData
RichTextBox1 = LoginData
If InStr(LoginData, "successed") Then
Label1 = "Account Made!"
RTB.Text = RTB.Text & "Account Name: " & Text1 & List1.Text & vbCrLf
RTB.Text = RTB.Text & "Email: " & Text5 & vbCrLf
RTB.Text = RTB.Text & "User Name: " & Text6 & List1.Text & vbCrLf
RTB.Text = RTB.Text & "Password: " & Text2 & vbCrLf & vbCrLf
End If
If InStr(LoginData, "999") Then
Label1 = "Banned"
End If
Debug.Print LoginData
List1.ListIndex = List1.ListIndex + 1
Call NCCconnect
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Label1 = Description
End Sub
Public Function NCCconnect()
Winsock1.Close
Winsock1.Connect "221.195.40.141", "1026"
Label1 = "Connecting NCC"
End Function
Public Function ProxyConnect()
Winsock1.Close
Winsock1.Connect Text3, Text4
Label1 = "Connecting Proxy"
End Function
thats it simple