• Home
 · 
• Encryption
 · 
• THIS IS A PASSWORD ENCRYPTION PROGRAM!

THIS IS A PASSWORD ENCRYPTION PROGRAM!

THIS IS A PASSWORD ENCRYPTION PROGRAM!

Rate THIS IS A PASSWORD ENCRYPTION PROGRAM!

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

s = Len(pass.Text)
Dim login, pass1 As String
Dim passch(8) As String
Dim ctr

        pass1 = Len(pass.Text)
        ctr = 1
             Do While ctr <= pass1
             passch(ctr) = Mid(pass.Text, ctr, 1)
             passtemp = Asc(passch(ctr)) + 17
             passnew = CStr(passnew) & Chr(passtemp)
             passtemp = ""
             ctr = ctr + 1
            Loop
            MsgBox "YOUR PASSWORD AFTER ENCRYPTION IS : " & passnew, vbInformation
End Sub