by GORAN AL KURDY AND NO ONe... (1 Submission)
Category: Microsoft Office Apps/VBA
Compatability: Visual Basic 3.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: (3 Votes)
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
Inputs
the CODE BY GORAN AL KURDY AND NO ONE----Vit is not full code if you need to plsea send emsil to me.txt
Code Returns
VB
API Declarationsit
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
Upload