• Home
 · 
• Encryption
 · 
• A function that encrypts/decrypts.

A function that encrypts/decrypts.

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.

Returns
The decrypt function returns the decrypted value

Side Effects
No side effects

Rate A function that encrypts/decrypts.

• 1
• 2
• 3
• 4
• 5

(8(8 Vote))

'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