Re: Internal String Visibility

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance


"Lorin" <Lorin@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:FC411D5B-B5E3-45D9-ACB7-E3748F493F52@xxxxxxxxxxxxxxxx
I am currently thinking I should write an eternal VB6 app to take clear
text
and garble it. Maybe something like what is on Randy Birch's site.
Just a simple NOT AND &HFF per int character is a possiblility.
Or make a byte array and NOT.
Also, could shift left a few bits since usual text printables are in the
0-127 range.
Thoughts?

Well here is an incredibly simple routine to jumble up text, it would be
easy to decrypt as long as it's known to be scrambled text, if it's encoded
in an executable the crypt-text is not obvious.

Public Function EasyEncrypt(Plaintext As String) As String
' Painfully simple encryption for comments etc.
' Same routine to encrypt and decrypt
Dim n As Integer
Dim c As Integer

EasyEncrypt = StrReverse(Plaintext)
For n = 1 To Len(EasyEncrypt)
c = Asc(Mid$(EasyEncrypt, n, 1))
If c > 32 Then
If c > 127 Then
c = 383 - c
Else
c = 160 - c
End If
Mid$(EasyEncrypt, n, 1) = Chr$(c)
End If
Next
End Function


.

Relevant Pages

  • Re: Update DB table from visual basic script
    ... Dim dbs As Database ... Public Function UpdateDB(dbName As String) As Boolean ... Public Function updateDB_fnameAs Boolean ... On Error Resume Next ' if proc does not exist then return blank string ...
    (comp.databases.ms-access)
  • Load registry hive (AdjustTokenPrivileges error)
    ... Public PrivilegeCount As Int32 ... Public Function RegLoadKey(ByVal hKey As Int32, ... String, ByVal lpFile As String) As Int32 ... Dim strKeyName As String ...
    (microsoft.public.vb.winapi)
  • Load registry hive (AdjustTokenPrivileges error)
    ... Public PrivilegeCount As Int32 ... Public Function RegLoadKey(ByVal hKey As Int32, ... String, ByVal lpFile As String) As Int32 ... Dim strKeyName As String ...
    (microsoft.public.dotnet.languages.vb)
  • Re: Help creating object in excel VBA
    ... Dim confirm, sent As Boolean ... Dim rowColArrayAs String ... ' TODO: Call CreateEmailMsg ... Public Function GetApptRecAs String, ...
    (microsoft.public.excel.programming)
  • Help creating object in excel VBA
    ... Outlook, and using an word.doc as the message body. ... Dim confirm, sent As Boolean ... Dim rowColArrayAs String ... Public Function GetApptRecAs String, ...
    (microsoft.public.excel.programming)