trying to encrypt a web page

[sigil]

I want to change all the text in a web page according to a given encryption algorithm. I couldn't find a _IEBodyWriteText function in my version of AutoIt (v3.2.2.0), so I built one based on _IEBodyReadText and _IEBodyWriteHTML. But instead of just replacing the text with its encrypted equivalent, the script makes a page that's just the encrypted text, without any links, graphics, etc. This isn't what I want; I want to preserve the formatting of the page and just change the words. Here's the code:

expandcollapse popup

#include <ie.au3>
#include <string.au3>

$title="encryptPage"
$url=inputbox($title,"Enter URL:")

$page=_iecreate($url)
$plaintext=_IEBodyReadtext($page)
$ciphertext=encrypt($plaintext)
_IEBodyWritetext($page,$ciphertext)

func encrypt($text)
    $len=stringlen($text)
    $newtext=""
    for $c=1 to $len
        $char=stringmid($text,$c,1)
        $new=cipher($char)
        $newtext=$newtext&$new
    Next
    return $newtext
EndFunc

func cipher($char)
    if stringisalpha($char) Then
        $num=asc($char)
        $newchar=chr($num+1)
        return $newchar
    Else
        return($char)
    EndIf
EndFunc

Func _IEBodyWriteText(ByRef $o_object, $s_text)
    If Not IsObj($o_object) Then
        __IEErrorNotify("Error", "_IEBodyWriteHTML", "$_IEStatus_InvalidDataType")
        SetError($_IEStatus_InvalidDataType, 1)
        Return 0
    EndIf
;
    $o_object.document.body.innerText = $s_text
    Local $oTemp = $o_object.document
    _IELoadWait($oTemp)
    SetError(@error)
    Return -1
EndFunc

For various IT-security related reasons, I don't have administrative rights to install the newest AutoIt release, so a solution like "just use the _IEBodyWriteText function in the latest release" isn't feasible. However, a link to a UDF library that has a _IEBodyWriteText function will help.

[MISIIM]

Download the zip version and use that. It doesn't require admin privs.

[DaleHohm]

When you say you want to encrypt the text, what exactly do you mean? Do you mean text in certain regions or all text including labels and buttons etc.?

Something like this comes to mind:

$oBody = _IETagnameGetCollection($oIE, "body", 0)
$oElements = _IETagnameAllGetCollection($oBody)
For $oElement in $oElements
    $sText = _IEPropertyGet($oElement, "innertext")
    _IEPropertySet($oElement, "innertext", encrypt($sText))
Next

Not tested. Could break things.

Dale