winzip icon

CGI Exploit Scanner 3.0.1 (680 tests) *goran and no OnE*

Email
Submitted on: 1/21/2015 10:04:00 PM
By: GORAN AL KURDY AND NO ONe... (from psc cd)  
Level: Intermediate
User Rating: By 3 Users
Compatibility: VB 5.0, VB 6.0
Views: 2494
 
     You can ether scan for exploits one by one, or run through the whole list of 680. This will tell if CGI code was found and if you have access (i.e. Forbidden!). Even supports a simple form of OS and Server App. detection. This was ported from a couple of ..it is not full code if you need to plsea send emsil to me.txt

 

Windows API/Global Declarations:

Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
'**************************************
'Windows API/Global Declarations for :CGI Exploit Scanner 3.0.1 (680 tests) *goran and no OnE*
'**************************************
it 
Public MAIN_BUFFER As String
Public SOCK_KILL As Boolean
Private Sub CGIlst_DblClick()
Dim selecteD As Long
PageViewtxt.Text = ""
Bar1.Value = 0
selecteD = CGIlst.ListIndex + 1
With sock1
.Close
.RemoteHost = URLtxt.Text
.RemotePort = 80
.Connect
End With
MESSAGE_TO_SEND = Buff(selecteD)
MESSAGE_LOCAL = Cnm(selecteD)
StatusBar1.Panels(1).Text = MESSAGE_TO_SEND
Resultstxt.Text = MESSAGE_LOCAL
 
End Sub
Private Sub Command1_Click()
 MsgBox "Unregistered Version GGI & PHP Scanner plsea Registered your version of Scanner to get Full A"
 End Sub
Private Sub Form_Load()
PageViewtxt.Text = ""
Resultstxt.Text = ""
CGIFoundtxt = ""
Skin1.ApplySkin hwnd
End Sub
Private Sub Form_Unload(Cancel As Integer)
sock1.Close
End Sub
Private Sub killBtn_Click()
sock1.Close
SOCK_KILL = True
Resultstxt.Text = "Scan Stoped!"
End Sub
Private Sub mnufile_Click()
End Sub
Private Sub menuabout_Click()
End Sub
Private Sub MENUGGI_Click()
End Sub
Private Sub menuregistered_Click()
End Sub
Private Sub menuTools_Click()
 MsgBox " Soory you have a Unregistered Version we can not enbel "
End Sub
Private Sub menuUpdate_Click()
End Sub
Private Sub menuWindows_Click()
End Sub
Private Sub menybuy_Click()
End Sub
Private Sub Scanbtn_Click()
Dim CountR As Long
SOCK_KILL = False
CountR = 1
Bar1.Value = CountR
CGIFoundtxt = ""
For CountR = 1 To 505
If Len(MAIN_BUFFER) > 40 Then
Call setInfo
sock1.Close
End If
End Sub
Public Sub setInfo()
Dim foundIt As String
foundIt = Found(MAIN_BUFFER)
StatusBar1.Panels(2).Text = getServerType(MAIN_BUFFER)
Resultstxt.Text = Resultstxt.Text + foundIt + vbdrlf
End Sub
winzip iconDownload code

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come out every day, so no prevention program can catch 100% of them. For your own safety, please:
  1. Re-scan downloaded files using your personal virus checker before using it.
  2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
  3. Scan the source code with Minnow's Project Scanner

If you don't have a virus scanner, you can get one at many places on the net including:McAfee.com


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Intermediate category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)
 

Other User Comments


 There are no comments on this submission.
 

Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular code, please click here instead.)
 

To post feedback, first please login.