Public Sub encoding()
    Console.WriteLine(tempmsg)
    encodecounter = 0
    For encodecounter = 0 To 149
        tempcoding = extractor.Next(0, 59)
        If flagencode(encodecounter) = False Then
            If arrayofmsg(encodecounter) Nothing Then
                If arrayofmsg(encodecounter) <> Chr(32) Then
                    While asciinum(tempcoding) = 0
                        tempcoding = extractor.Next(0, 59)
                    End While
                    encodedarrayofmsg(encodecounter) = Chr(asciinum(tempcoding))
                    flagencode(encodecounter) = True
                    change = 0
                    Do Until change > 149
                        If flagencode(change) = True Then
                            change = change + 1
                        Else
                            If arrayofmsg(change) = arrayofmsg(encodecounter) Then
                                encodedarrayofmsg(change) = Chr(asciinum(tempcoding))
                                flagencode(change) = True
                                change = change + 1
                            Else
                                change = change + 1
                            End If
                        End If
                    Loop
                    asciinum(tempcoding) = 0
                 End If
            End If
        End If
    Next
End Sub