by m@llot (1 Submission)
Category: Encryption
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: 
(7 Votes)
2 functions 1 that encrypts a passed variable(string) and the other decrypts the data(path of file)
Mainly used for a single password.
The code encrypts each character with a simple formula, the more characters the better the encryption.
The limit on the password length is 50 characters.
Inputs
The encrypt function input is the passed variable which is the password to encrypt.
Assumes
Its very simple, and not even close to "great" encryption. but it gets the job done for what it does.
Code Returns
The decrypt function returns the decrypted value
Side Effects
No side effects
VBcoders'simple just pass the password to it like this
'Encrypt("password")
Private Function Encrypt(varPass As String)
If Dir(path to save password to) <> "" Then: Kill "path to save password to"
Dim varEncrypt As String * 50
Dim varTmp As Double
Open "path to save password to" For Random As #1 Len = 50
For I = 1 To Len(varPass)
varTmp = Asc(Mid$(varPass, I, 1))
varEncrypt = Str$(((((varTmp * 1.5) / 2.1113) * 1.111119) * I))
Put #1, I, varEncrypt
Next I
Close #1
End Function
'returns the decrypted pass
'like if decrypt() = "password" then
Private Function Decrypt()
Open "path to save password to" For Random As #1 Len = 50
Dim varReturn As String * 50
Dim varConvert As Double
Dim varFinalPass As String
Dim varKey As Integer
For I = 1 To LOF(1) / 50
Get #1, I, varReturn
varConvert = Val(Trim(varReturn))
varConvert = ((((varConvert / 1.5) * 2.1113) / 1.111119) / I)
varFinalPass = varFinalPass & Chr(varConvert)
Next I
Decrypt = varFinalPass
Close #1
End Function
