Non-reverseable Encryption Engine To Verify Passwords and other issues.

by Tony (9 Submissions)
Category: Encryption
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Mon 5^th August 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
variableforpassword = Encrypt("Password") To Check variable = Encrypt(text1.text or anything, "variableforpassword) If they match, variable = 1 If not, variable = 0 Questions, Comments, CONSTRUCTIVE criticisim Email me @ [email protected]

Rate Non-reverseable Encryption Engine To Verify Passwords and other issues.



For i = 1 To Len(inp)
    Bit = Asc(Mid(inp, 2, 1))
    Bit = Bit - i
    Encrypt = Encrypt & Chr(Bit)
Next i

If Pass <> "" Then
    If Encrypt = Pass Then
        Encrypt = "1"
    Else
        Encrypt = "0"
    End If
End If
End Function

Download this snippet Add to My Saved Code

Non-reverseable Encryption Engine To Verify Passwords and other issues. Comments

No comments have been posted about Non-reverseable Encryption Engine To Verify Passwords and other issues.. Why not be the first to post a comment about Non-reverseable Encryption Engine To Verify Passwords and other issues..

Non-reverseable Encryption Engine To Verify Passwords and other issues.

Non-reverseable Encryption Engine To Verify Passwords and other issues. Comments

Post your comment

Difficulty