THIS IS A PASSWORD ENCRYPTION PROGRAM!

by GAUTAM KAIKINI (5 Submissions)
Category: Encryption
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 9^th December 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate THIS IS A PASSWORD ENCRYPTION PROGRAM!



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

Download this snippet Add to My Saved Code

THIS IS A PASSWORD ENCRYPTION PROGRAM! Comments

No comments have been posted about THIS IS A PASSWORD ENCRYPTION PROGRAM!. Why not be the first to post a comment about THIS IS A PASSWORD ENCRYPTION PROGRAM!.

THIS IS A PASSWORD ENCRYPTION PROGRAM!

THIS IS A PASSWORD ENCRYPTION PROGRAM! Comments

Post your comment

Difficulty