• Home
 · 
• Miscellaneous
 · 
• This is a very basic encryption program that converts the message into alternating decimal and hex.

This is a very basic encryption program that converts the message into alternating decimal and hex.

This is a very basic encryption program that converts the message into alternating decimal and hex.

Rate This is a very basic encryption program that converts the message into alternating decimal and hex.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'This is a very simple encryption program. It switches between
'decimal and hex conversion for each character.

Private Sub cmdDecrypt_Click()
    Dim sIn As String
    Dim out As String
    Dim lx As Long
    Dim num As Long
    Dim MyArray() As String
    On Error GoTo unknown
       
    out = ""
    sIn = Trim(txtMessage.Text)
    txtMessage.Text = ""
    MyArray = Split(sIn, Chr(32))   'chr(32) is a space or " "
    For lx = 0 To UBound(MyArray())
        If lx Mod 2 = 0 Then
            'if its an even number then read in ascii
            out = out & Chr(MyArray(lx))
        Else
            'if odd, read in hex
            out = out & Chr(CLng("&h" & MyArray(lx)))
        End If
    Next
    If Len(out) = 0 Then
        MsgBox "Put numbers or something"
    End If
    txtMessage.Text = out
    Exit Sub
unknown:
    MsgBox "Unknown encryption!", vbCritical, "Error"
End Sub

Private Sub cmdEncrypt_Click()
    Dim Original As String
    Dim out As String
    Dim lx As Long
    Dim char As String
          
    out = ""
    Original = txtMessage.Text
    txtMessage.Text = ""
    For lx = 1 To Len(Original)
            If lx Mod 2 = 0 Then
                'if even, write in hex
                char = Mid(Original, lx, 1)
                out = out & Hex(Asc(char)) & " "
            Else
                'if odd, write in dec
                char = Mid(Original, lx, 1)
                out = out & Asc(char) & " "
            End If
    Next
    txtMessage.Text = out
End Sub

Private Sub Form_Load()
    txtMessage.Text = ""
    txtMessage.SetFocus
End Sub