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.9K
~110 People Reached
This member's community profile is only visible to logged in members until they have earned 15 reputation points.
Favorite Forums
Favorite Tags
1 Posted Topic
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, …
The End.