Help po mga master vb.net

[xavier17]

PATULONG PO KUNG PANO GAWING DLL PO TO AT KUNG PWEDE GAWING FOR LOOP PARA MAS MALIIT UNG CODES NIYA BALE ENCRYPT DECRYPT LANG PO ANJAN NA DIN MGA VALUE NIYA...RUSH PO SANA KUNG PWEDE GANG HAPON PO SALAMAT SA MAKAKATULONG...BALE ISANG CLASS AT ISANG FORM LANG PO CLASS UNG SA DLL

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

TextBox2.Text = TextBox1.Text.ToUpper
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox2.Text = TextBox1.Text.ToLower

End Sub

Function encryptt()
TextBox2.Text = TextBox1.Text.ToLower

For x = 1 To TextBox2.Text.Length
If Mid(TextBox2.Text, x, 1) = "0" Then
TextBox3.Text = TextBox3.Text & "aB"
ElseIf Mid(TextBox2.Text, x, 1) = "1" Then
TextBox3.Text = TextBox3.Text & "cD"
ElseIf Mid(TextBox2.Text, x, 1) = "2" Then
TextBox3.Text = TextBox3.Text & "eF"
ElseIf Mid(TextBox2.Text, x, 1) = "3" Then
TextBox3.Text = TextBox3.Text & "gH"
ElseIf Mid(TextBox2.Text, x, 1) = "4" Then
TextBox3.Text = TextBox3.Text & "iJ"
ElseIf Mid(TextBox2.Text, x, 1) = "5" Then
TextBox3.Text = TextBox3.Text & "kL"
ElseIf Mid(TextBox2.Text, x, 1) = "6" Then
TextBox3.Text = TextBox3.Text & "mN"
ElseIf Mid(TextBox2.Text, x, 1) = "7" Then
TextBox3.Text = TextBox3.Text & "oP"
ElseIf Mid(TextBox2.Text, x, 1) = "8" Then
TextBox3.Text = TextBox3.Text & "qR"
ElseIf Mid(TextBox2.Text, x, 1) = "9" Then
TextBox3.Text = TextBox3.Text & "sT"
ElseIf Mid(TextBox2.Text, x, 1) = "a" Then
TextBox3.Text = TextBox3.Text & "1!"
ElseIf Mid(TextBox2.Text, x, 1) = "b" Then
TextBox3.Text = TextBox3.Text & "2^"
ElseIf Mid(TextBox2.Text, x, 1) = "c" Then
TextBox3.Text = TextBox3.Text & "3-"
ElseIf Mid(TextBox2.Text, x, 1) = "d" Then
TextBox3.Text = TextBox3.Text & "4]"
ElseIf Mid(TextBox2.Text, x, 1) = "e" Then
TextBox3.Text = TextBox3.Text & "5_"
ElseIf Mid(TextBox2.Text, x, 1) = "f" Then
TextBox3.Text = TextBox3.Text & "6;"
ElseIf Mid(TextBox2.Text, x, 1) = "g" Then
TextBox3.Text = TextBox3.Text & "1@"
ElseIf Mid(TextBox2.Text, x, 1) = "h" Then
TextBox3.Text = TextBox3.Text & "2&"
ElseIf Mid(TextBox2.Text, x, 1) = "i" Then
TextBox3.Text = TextBox3.Text & "3+"
ElseIf Mid(TextBox2.Text, x, 1) = "j" Then
TextBox3.Text = TextBox3.Text & "4{"
ElseIf Mid(TextBox2.Text, x, 1) = "k" Then
TextBox3.Text = TextBox3.Text & "5("
ElseIf Mid(TextBox2.Text, x, 1) = "l" Then
TextBox3.Text = TextBox3.Text & "6="
ElseIf Mid(TextBox2.Text, x, 1) = "m" Then
TextBox3.Text = TextBox3.Text & "1#"
ElseIf Mid(TextBox2.Text, x, 1) = "n" Then
TextBox3.Text = TextBox3.Text & "2*"
ElseIf Mid(TextBox2.Text, x, 1) = "o" Then
TextBox3.Text = TextBox3.Text & "3\"
ElseIf Mid(TextBox2.Text, x, 1) = "p" Then
TextBox3.Text = TextBox3.Text & "4}"
ElseIf Mid(TextBox2.Text, x, 1) = "q" Then
TextBox3.Text = TextBox3.Text & "5)"
ElseIf Mid(TextBox2.Text, x, 1) = "r" Then
TextBox3.Text = TextBox3.Text & "6|"
ElseIf Mid(TextBox2.Text, x, 1) = "s" Then
TextBox3.Text = TextBox3.Text & "1$"
ElseIf Mid(TextBox2.Text, x, 1) = "t" Then
TextBox3.Text = TextBox3.Text & "2<"
ElseIf Mid(TextBox2.Text, x, 1) = "u" Then
TextBox3.Text = TextBox3.Text & "3/"
ElseIf Mid(TextBox2.Text, x, 1) = "v" Then
TextBox3.Text = TextBox3.Text & "4"""
ElseIf Mid(TextBox2.Text, x, 1) = "w" Then
TextBox3.Text = TextBox3.Text & "5:"
ElseIf Mid(TextBox2.Text, x, 1) = "x" Then
TextBox3.Text = TextBox3.Text & "6,"
ElseIf Mid(TextBox2.Text, x, 1) = "y" Then
TextBox3.Text = TextBox3.Text & "1%"
ElseIf Mid(TextBox2.Text, x, 1) = "z" Then
TextBox3.Text = TextBox3.Text & "2>"
ElseIf Mid(TextBox2.Text, x, 1) = "ñ" Then
TextBox3.Text = TextBox3.Text & "3["
End If
Next




Return True

End Function
Function decrypt()


For y = 1 To TextBox3.Text.Length
If Mid(TextBox3.Text, y, 2) = "aB" Then
TextBox4.Text = TextBox4.Text & "0"
ElseIf Mid(TextBox3.Text, y, 2) = "cD" Then
TextBox4.Text = TextBox4.Text & "1"
ElseIf Mid(TextBox3.Text, y, 2) = "eF" Then
TextBox4.Text = TextBox4.Text & "2"
ElseIf Mid(TextBox3.Text, y, 2) = "gH" Then
TextBox4.Text = TextBox4.Text & "3"
ElseIf Mid(TextBox3.Text, y, 2) = "iJ" Then
TextBox4.Text = TextBox4.Text & "4"
ElseIf Mid(TextBox3.Text, y, 2) = "kL" Then
TextBox4.Text = TextBox4.Text & "5"
ElseIf Mid(TextBox3.Text, y, 2) = "mN" Then
TextBox4.Text = TextBox4.Text & "6"
ElseIf Mid(TextBox3.Text, y, 2) = "oP" Then
TextBox4.Text = TextBox4.Text & "7"
ElseIf Mid(TextBox3.Text, y, 2) = "qR" Then
TextBox4.Text = TextBox4.Text & "8"
ElseIf Mid(TextBox3.Text, y, 2) = "sT" Then
TextBox4.Text = TextBox4.Text & "9"
ElseIf Mid(TextBox3.Text, y, 2) = "1!" Then
TextBox4.Text = TextBox4.Text & "a"
ElseIf Mid(TextBox3.Text, y, 2) = "2^" Then
TextBox4.Text = TextBox4.Text & "b"
ElseIf Mid(TextBox3.Text, y, 2) = "3-" Then
TextBox4.Text = TextBox4.Text & "c"
ElseIf Mid(TextBox3.Text, y, 2) = "4]" Then
TextBox4.Text = TextBox4.Text & "d"
ElseIf Mid(TextBox3.Text, y, 2) = "5_" Then
TextBox4.Text = TextBox4.Text & "e"
ElseIf Mid(TextBox3.Text, y, 2) = "6;" Then
TextBox4.Text = TextBox4.Text & "f"
ElseIf Mid(TextBox3.Text, y, 2) = "1@" Then
TextBox4.Text = TextBox4.Text & "g"
ElseIf Mid(TextBox3.Text, y, 2) = "2&" Then
TextBox4.Text = TextBox4.Text & "h"
ElseIf Mid(TextBox3.Text, y, 2) = "3+" Then
TextBox4.Text = TextBox4.Text & "i"
ElseIf Mid(TextBox3.Text, y, 2) = "4{" Then
TextBox4.Text = TextBox4.Text & "j"
ElseIf Mid(TextBox3.Text, y, 2) = "5(" Then
TextBox4.Text = TextBox4.Text & "k"
ElseIf Mid(TextBox3.Text, y, 2) = "6=" Then
TextBox4.Text = TextBox4.Text & "l"
ElseIf Mid(TextBox3.Text, y, 2) = "1#" Then
TextBox4.Text = TextBox4.Text & "m"
ElseIf Mid(TextBox3.Text, y, 2) = "2*" Then
TextBox4.Text = TextBox4.Text & "n"
ElseIf Mid(TextBox3.Text, y, 2) = "3\" Then
TextBox4.Text = TextBox4.Text & "o"
ElseIf Mid(TextBox3.Text, y, 2) = "4}" Then
TextBox4.Text = TextBox4.Text & "p"
ElseIf Mid(TextBox3.Text, y, 2) = "5)" Then
TextBox4.Text = TextBox4.Text & "q"
ElseIf Mid(TextBox3.Text, y, 2) = "6|" Then
TextBox4.Text = TextBox4.Text & "r"
ElseIf Mid(TextBox3.Text, y, 2) = "1$" Then
TextBox4.Text = TextBox4.Text & "s"
ElseIf Mid(TextBox3.Text, y, 2) = "2<" Then
TextBox4.Text = TextBox4.Text & "t"
ElseIf Mid(TextBox3.Text, y, 2) = "3/" Then
TextBox4.Text = TextBox4.Text & "u"
ElseIf Mid(TextBox3.Text, y, 2) = "4"" Then" Then
TextBox4.Text = TextBox4.Text & "v"
ElseIf Mid(TextBox3.Text, y, 2) = "5:" Then
TextBox4.Text = TextBox4.Text & "w"
ElseIf Mid(TextBox3.Text, y, 2) = "6," Then
TextBox4.Text = TextBox4.Text & "x"
ElseIf Mid(TextBox3.Text, y, 2) = "1%" Then
TextBox4.Text = TextBox4.Text & "y"
ElseIf Mid(TextBox3.Text, y, 2) = "2>" Then
TextBox4.Text = TextBox4.Text & "z"
ElseIf Mid(TextBox3.Text, y, 2) = "3[" Then
TextBox4.Text = TextBox4.Text & "ñ"
End If
Next



Return True

End Function

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
encryptt()

End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
decrypt()

End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
reset()
End Sub
Function reset()

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""

Return True
End Function
End Class


- - - Updated - - -

PA UP!!!! PO

 

[maskio]

here you go:

        ' Please take note na dapat match ang index ng orig at swap
        Dim orig() As String = {0, 1, 2, 3, 4, 5} ' so on and so forth
        Dim swap() As String = {"aB", "cD", "eF", "gH", "iJ"} ' so on and so forth
        Dim _encryptvalue As String = ""
        Dim _decryptvalue As String = ""

        For i As Integer = 0 To text1.Text.Length - 1
            Dim myCharacter As String = text1.Text.ToCharArray.ElementAt(i)
            Dim charIndex As Integer = orig.ToList.IndexOf(myCharacter)
            _encryptvalue = String.Format("{0}{1}", _encryptvalue, myCharacter.Replace(orig(charIndex), swap(charIndex)))
        Next

        For j As Integer = 1 To _encryptvalue.Length Step 2
            Dim myCharacters As String = Mid(_encryptvalue, j, 2)
            Dim charIndex As Integer = swap.ToList.IndexOf(myCharacters)
            _decryptvalue = String.Format("{0}{1}", _decryptvalue, myCharacters.Replace(swap(charIndex), orig(charIndex)))
        Next

        MsgBox(_encryptvalue)
        MsgBox(_decryptvalue)