Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #72.7K
|
I'm using this encrypting function psoted by a member: [CODE]Public Function SimpleCrypt(ByVal Text As String) Dim strTempChar As String = "" Dim i As Integer For i = 1 To Text.Length If Asc(Mid$(Text, i, 1)) < 128 Then strTempChar = _ CType(Asc(Mid$(Text, i, 1)) + 128, String) ElseIf Asc(Mid$(Text, i, …
|