> Do you have any suggestions?

I keep an IDE script obfuscate.rbs in a folder "scripts" beside the ide.

I highlight the password and run the script.

The script I use is:

Dim inp, outp As String
Dim i As Integer
//Dim savStart,savLength as Integer
if sellength > 0 then
  //savstart = selstart
  inp = seltext
  if sellength > 1 and left(inp,1) = """" and right(inp,1) = """" then
    inp = mid(inp,2,len(inp)-2)
  end if
  outp = ""
  For i = 1 To len(inp)
    If outp <> "" Then
      outp = outp + "+"
    End If
    outp = outp + "Chr(" + Str(Asc(Mid(inp,i,1))) +")"
  Next i
  seltext = outp
  //selstart = savstart
  //sellength = len(outp)
end if

--
Steve Garman
Using REALbasic 2006r2 Professional on Windows XP Pro


_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Reply via email to