'Fredrik N. Almroth - h.ackack.net
Module PHP_Fuzz
    Sub Main()
        Dim Fuzz As String = "_Array0123456789"
        For Each Method As String In {"XOR", "OR", "AND"}
            For Each Outer As Char In Fuzz
                For Each Inner As Char In Fuzz
                    Select Case Method
                        Case "XOR"
                            IsValid(Outer, Inner, Method, Chr(Asc(Outer) Xor Asc(Inner)))
                        Case "OR"
                            IsValid(Outer, Inner, Method, Chr(Asc(Outer) Or Asc(Inner)))
                        Case "AND"
                            IsValid(Outer, Inner, Method, Chr(Asc(Outer) And Asc(Inner)))
                    End Select
                Next
            Next
        Next
        Console.ReadLine()
    End Sub
    Private Sub IsValid(ByVal Value1 As Char, ByVal Value2 As Char, ByVal Method As String, ByVal Response As Char)
        Dim Match As String = "postgerqu" 'The letters for POST, GET and REQUEST.
        If Match.Contains(LCase(Response)) Then Console.WriteLine(Value1 & " " & Method & " " & Value2 & " -> " & Response)
    End Sub
End Module