Ras Posted November 6, 2007 Report Share Posted November 6, 2007 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.ShowEnd SubPrivate Sub cmdChecksite_Click()On Error Resume NextIf txtsite.Text = "" ThenMsgBox "Target site is not configured!", vbExclamation, App.TitleElseIf txtsyn = "" ThenMsgBox "Syntax field is not configured!", vbExclamation, App.TitleElseIf txtRFI.Text = "" ThenMsgBox "RFI Template is not included!", vbExclamation, App.TitleElseIf lstRFI.Text = "" ThenMsgBox "Please select an RFI line to include!", vbExclamation, App.TitleElsetxtsite.Text = txtsite.Text + txtsyn.Text + lstRFI.Text + txtRFI.Textwb1.Navigate txtsite.Text + txtsyn.Text + lstRFI.Text + txtRFI.TextEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub cmdClear_Click()lstRFI.ClearEnd SubPrivate Sub cmdimpSyn_Click()On Error Resume NextList1.ClearDim item As StringWith 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 #3End WithExit SubErrHandler:Exit SubEnd SubPrivate Sub cmdStop_Click()On Error Resume Nextwb1.Stopwb1.Navigate ":blank"End SubPrivate Sub Command1_Click()Form2.ShowEnd SubPrivate Sub Command2_Click()Form3.ShowEnd SubPrivate Sub cmdXSSCheck_Click()On Error Resume NextIf txtsite.Text = "" ThenMsgBox "Target site is not configured!", vbExclamation, App.TitleElseIf txtxss.Text = "" ThenMsgBox "XSS string is missing!", vbExclamation, App.TitleElsetxtsite.Text = txtsite.Text + txtxss.Textwb1.Navigate txtsite.Text + txtxss.TextEnd IfEnd IfEnd SubPrivate Sub Form_unload(Cancel As Integer)EndEnd SubPrivate Sub GurhanButton2_Click()txtsite.Text = ""txtsyn.Text = ""txtxss.Text = ""lstRFI.Text = ""txtRFI.Text = ""End SubPrivate Sub GurhanButton6_Click()List1.Cleartxtsyn.Text = ""End SubPrivate Sub ldVulns_Click()On Error Resume NextlstRFI.ClearDim item As StringWith 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 #3End WithExit SubErrHandler:Exit SubEnd SubPrivate Sub List1_Click()Dim startDim lstindexstart = txtsyn.SelStarttxtsyn.Text = ""lstindex = Len(List1.List(List1.ListIndex))txtsyn.SelText = List1.List(List1.ListIndex)txtsyn.SetFocustxtsyn.SelStart = start + lstindexEnd Subinca nu am testat... Quote Link to comment Share on other sites More sharing options...
moubik Posted November 6, 2007 Report Share Posted November 6, 2007 e visual basic ?il compileaza cineva ? Quote Link to comment Share on other sites More sharing options...
michee Posted November 6, 2007 Report Share Posted November 6, 2007 da chiar asa....VB am zis si eu ca e......da' cine stie asa ceva?.....Not me anyway.... Quote Link to comment Share on other sites More sharing options...