q0n4jPL4

1' Written by SQLi
2' http://gaming-and-security.blogspot.com/
3
4Public Class Pastebin
5    Public Function NewPaste(ByVal Content As String)
6        Dim api_dev_key As String = "" '<-- Your API key here
7        Dim api_paste_code As String = URLEncode(Content)
8        Dim api_paste_private As String = "2"
9        'Dim api_paste_name As String = URLEncode(Name)
10        Dim api_paste_expire_date As String = "10M"
11        Dim api_paste_format As String = "php"
12        Dim api_user_key As String = ""
13        Dim Response As String = HttpPost("http://pastebin.com/api/api_post.php", "api_option=paste&api_dev_key=" & api_dev_key & "&api_paste_code=" & api_paste_code)
14        If Response.Contains("Bad API request") = False Then
15            Return Raw(Response)
16        Else
17            Return "Error"
18        End If
19    End Function
20    Private Function URLEncode(ByVal EncodeStr As String) As String
21        Dim i As Integer
22        Dim erg As String
23        erg = EncodeStr
24        erg = Replace(erg, "%", Chr(1))
25        erg = Replace(erg, "+", Chr(2))
26        For i = 0 To 255
27            Select Case i
28                Case 37, 43, 48 To 57, 65 To 90, 97 To 122
29                Case 1
30                    erg = Replace(erg, Chr(i), "%25")
31                Case 2
32                    erg = Replace(erg, Chr(i), "%2B")
33                Case 32
34                    erg = Replace(erg, Chr(i), "+")
35                Case 3 To 15
36                    erg = Replace(erg, Chr(i), "%0" & Hex(i))
37                Case Else
38                    erg = Replace(erg, Chr(i), "%" & Hex(i))
39            End Select
40        Next
41        Return erg
42    End Function
43    Public Function Raw(ByVal URL As String)
44        Dim ID As String = URL.Substring(URL.LastIndexOf("/") + 1)
45        ID = "http://pastebin.com/raw.php?i=" & ID
46        Return ID
47    End Function
48    Private Function HttpPost(ByVal URL As String, ByVal Data As String)
49        Dim request As WebRequest = WebRequest.Create(URL)
50        request.Method = "POST"
51        Dim byteArray As Byte() = Encoding.UTF8.GetBytes(Data)
52        request.ContentType = "application/x-www-form-urlencoded"
53        request.ContentLength = byteArray.Length
54        Dim dataStream As Stream = request.GetRequestStream()
55        dataStream.Write(byteArray, 0, byteArray.Length)
56        dataStream.Close()
57        Dim response As WebResponse = request.GetResponse()
58        'Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)
59        dataStream = response.GetResponseStream()
60        Dim reader As New StreamReader(dataStream)
61        Dim responseFromServer As String = reader.ReadToEnd()
62        reader.Close()
63        dataStream.Close()
64        response.Close()
65        Return responseFromServer
66    End Function
67End Class