RFI - LFI - XSS Tool Kit v1.0

[Ras]

CREDITS: xyr0x

'Tool: RFI / LFI / XSS Tester                     
'Author: xyr0x                                   
'Date: September 27th, 2007                     
'Agreement of use of my Open sources are;         
'Give me full credit for where or what of mine   
'you decide to use, thanks. xyr0x                 

'NOTES: I MAY START THIS UP AGAIN EVEN THOUGH I'M GIVING
'IT TO THE OPEN SOURCE COMMUNITY...   

Private Sub cmdAbout_Click()
Form2.Show
End Sub

Private Sub cmdChecksite_Click()
On Error Resume Next
If txtsite.Text = "" Then
MsgBox "Target site is not configured!", vbExclamation, App.Title
Else
If txtsyn = "" Then
MsgBox "Syntax field is not configured!", vbExclamation, App.Title
Else
If txtRFI.Text = "" Then
MsgBox "RFI Template is not included!", vbExclamation, App.Title
Else
If lstRFI.Text = "" Then
MsgBox "Please select an RFI line to include!", vbExclamation, App.Title
Else
txtsite.Text = txtsite.Text + txtsyn.Text + lstRFI.Text + txtRFI.Text
wb1.Navigate txtsite.Text + txtsyn.Text + lstRFI.Text + txtRFI.Text
End If
End If
End If
End If
End Sub

Private Sub cmdClear_Click()
lstRFI.Clear
End Sub

Private Sub cmdimpSyn_Click()
On Error Resume Next
List1.Clear
Dim item As String
With CD1
        .Filter = ".DAT(*.dat)|*.dat"
        .FilterIndex = 2
        .CancelError = True
        On Error GoTo ErrHandler
        .ShowOpen
        Open .FileName For Input As #3
            Do While Not EOF(3)
            Line Input #3, item
                If Len(item) > 0 Then
                    List1.AddItem item
                End If
            Loop
        Close #3
End With
Exit Sub
ErrHandler:
Exit Sub
End Sub

Private Sub cmdStop_Click()
On Error Resume Next
wb1.Stop
wb1.Navigate ":blank"
End Sub

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Command2_Click()
Form3.Show
End Sub

Private Sub cmdXSSCheck_Click()
On Error Resume Next
If txtsite.Text = "" Then
MsgBox "Target site is not configured!", vbExclamation, App.Title
Else
If txtxss.Text = "" Then
MsgBox "XSS string is missing!", vbExclamation, App.Title
Else
txtsite.Text = txtsite.Text + txtxss.Text
wb1.Navigate txtsite.Text + txtxss.Text
End If
End If
End Sub

Private Sub Form_unload(Cancel As Integer)
End
End Sub

Private Sub GurhanButton2_Click()
txtsite.Text = ""
txtsyn.Text = ""
txtxss.Text = ""
lstRFI.Text = ""
txtRFI.Text = ""
End Sub

Private Sub GurhanButton6_Click()
List1.Clear
txtsyn.Text = ""
End Sub

Private Sub ldVulns_Click()
On Error Resume Next
lstRFI.Clear
Dim item As String
With CD1
        .Filter = "DAT(*.dat)|*.dat"
        .FilterIndex = 2
        .CancelError = True
        On Error GoTo ErrHandler
        .ShowOpen
        Open .FileName For Input As #3
            Do While Not EOF(3)
            Line Input #3, item
                If Len(item) > 0 Then
                    lstRFI.AddItem item
                End If
            Loop
        Close #3
End With
Exit Sub
ErrHandler:
Exit Sub
End Sub


Private Sub List1_Click()
Dim start
Dim lstindex
start = txtsyn.SelStart

txtsyn.Text = ""

lstindex = Len(List1.List(List1.ListIndex))

txtsyn.SelText = List1.List(List1.ListIndex)

txtsyn.SetFocus

txtsyn.SelStart = start + lstindex
End Sub

inca nu am testat...

[moubik]

e visual basic ?

il compileaza cineva ?

[michee]

da chiar asa....VB am zis si eu ca e......da' cine stie asa ceva?.....Not me anyway....