Start a new project named Cryptogram. Build the form as shown below:

1. Add a label with the words "Enter a saying, then press the button to make a cryptogram"
2. Add a text box named TxtWords.
3. Set multiline to true for the text box.
4. Copy TxtWords and paste. Rename as TxtCryptogram.
5. Add a button . Name it BtnGo and make the text &Go

Write the code as shown below:

Public Class Form1

    Private Sub BtnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGo.Click
        Dim Alphabet As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim Code As String = Scramble(Alphabet)
        Me.Text = Code
        Dim S As String = Me.TxtWords.Text
        S = S.ToUpper
        Dim S2 As String = ""
        Dim I, Pos As Integer
        For I = 0 To S.Length - 1
            Dim Ch As Char = S.Substring(I, 1) 'get 1 character from S
            Pos = Alphabet.IndexOf(Ch)
            If Pos >= 0 Then
                S2 += Code.Substring(I, 1) 'get the corresponding character from code
            Else
                S2 += Ch 'if not a letter, do not encode it
            End If
        Next
        Me.TxtCryptogram.Text = S2
    End Sub
    Private Function Scramble(ByVal S As String) As String
        Dim Ch As Char()
        Ch = S.ToCharArray()
        Dim I As Integer
        For I = 0 To Ch.Length - 1
            Dim R As Integer = Int(Rnd() * Ch.Length)
            Dim Temp As Char = Ch(I)
            Ch(I) = Ch(R)
            Ch(R) = Temp
        Next
        Dim S2 As String = ""
        For I = 0 To Ch.Length - 1
            S2 += Ch(I)
        Next
        Return S2
    End Function 'Scramble

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
    End Sub
End Class

Copyright © Zebra0.com
All rights reserved worldwide.

Cryptograms