Encryption

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic


   Im pretty interested in encryption, but am useless at it.  I decided not to use MD5 because id probably get bonus points for my exam if they saw I wrote my own one.  Can anyone tell me if this one is ok, I know it probably has inefficiencys in it, and ive no idea how good it is.  (I wrote it when I was drunk)
Example of input:
letmein
Example of output:
 280893626268753333301610053332834944666732261075333273912869 53333469


'Function to encrypt text
Public Function encrypt(ByVal strInput As String) As String
    Dim intInputLength As Integer   'Holds length of inputted string
    Dim strSelectedChar As String   'Holds the selected char
    Dim intLoop As  Integer          ; 'Loop counter
    Dim intCharCode As Single       'Holds character code
    Dim intSelectedNum As Integer
    Dim intSelectedNum2 As Integer
    Dim strNewEncrypt As String
    
    'Initialise
    intInputLength = Len(strInput)
    
    'Loop through all characters
    Do Until intLoop = intInputLength
        'Encrypt
        intLoop = intLoop + 1
        strSelectedChar = Mid(strInput, intLoop, 1)
        intCharCode = Asc(strSelectedChar)
        intCharCode = intCharCode + 3.2 * (intCharCode / 2)
        
        If InStr(encrypt, intCharCode) <> 0 Then
              intCharCode = intCharCode + Len(intCharCode) * 2 + (Len(encrypt))
        End If
        
        encrypt = encrypt & intCharCode & Str(intCharCode / 3)
    Loop
    encrypt = Replace(encrypt, ".", "")
    encrypt = Replace(encrypt, " ", "")
    encrypt = encrypt & CStr(InStr(encrypt, "0") + Len(encrypt))
    
    'Reset loop
    intLoop = 0
    
    'Got through all the characters
    Do Until intLoop = Len(encrypt)
        intLoop = intLoop + 1
        intSelectedNum = Mid(encrypt, intLoop, 1)
        intSelectedNum2 = Mid(encrypt, intLoop, 2)
        strNewEncrypt = CStr((intSelectedNum - (Len(strNewEncrypt) * (intSelectedNum2)) * Len(intLoop)))
    Loop
End Function