How To Make A Sharecash Mirror Link Creator In VB.NET

sharecash is a best PPD (pay per download) website where you upload your files and get paid for downloads now you gonna learn how to make a sharecash mirror link creator in vb.net its pretty easy but its very useful it works like this for example you have a link http://verified-download.com/file/0OBo2 and you want to change that link or we can say generate mirror links

so lets get started as usual just open your favourite visual basic 2008/2010 and make a new project and name it whatever you want and form will load and go to toolbox and add two textboxes and a button textbox1 is for the original link and textbox2 for the mirror link now go to button1 properties and change the text to create mirror link or whatever you want and at last just double click your form and delete everything and paste the code

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = ("http://sharecash.org/download.php?file=" & zerOfactorANDunknownAsif(TextBox1.Text.Substring((TextBox1.Text.LastIndexOf("/"c) + 1))))
    End Sub

    Private Function zerOfactorANDunknownAsif(ByVal asif As String) As String
        asif = asif.Remove(0, 1)
        Dim thanksasif As New System.Text.StringBuilder()
        For Each c As Char In asif
            If (c >= CChar("0") AndAlso c <= CChar("9")) Then
                thanksasif.Append(c)
            ElseIf (c = "-") Then
                thanksasif.Append("52")
            ElseIf (c = "_") Then
                thanksasif.Append("53")
            Else
                If (Char.ToLower(c) < CChar("f")) Then
                    thanksasif.Append("0")
                End If
                thanksasif.Append(((Convert.ToInt32(Char.ToLower(c)) - Convert.ToInt32(CChar("a"))) * 2) + Convert.ToInt32(Char.IsUpper(c)))

            End If
        Next
        zerOfactorANDunknownAsif = thanksasif.ToString()
    End Function
End Class

preview -