String Encoder for Webpages

[gamerman2360]

This GUI makes info hidden on webpages from most bots that look for things like e-mail addresses. It's not guaranteed to work but it's better then those [at] and [dot] things in your e-mail addresses. It's mostly used on webpages if your editing the html. If you're brave, uncomment the line to see if you can get it to stop acting funny. The line makes it so it blocks out the buttons when someone changes the edit ctrl.

expandcollapse popup

; ----------------------------------------------------------------------------
; 
; AutoIt Version: 3.1.0.92
; Author:        Steve B
; 
; Script Function:
;   Encodes stings into ASC character codes.
; 
; ----------------------------------------------------------------------------

#NoTrayIcon

GuiCreate("String Encoder(ASC) for WebBuilders", 392, 216,(@DesktopWidth-392)/2, (@DesktopHeight-216)/2)
GuiCtrlCreateGroup("To:", 10, 10, 100, 60)
$Dec = GuiCtrlCreateRadio("&Decimal", 20, 25)
$Hex = GuiCtrlCreateRadio("&Hexadecimal", 20, 45)
GuiCtrlCreateGroup("For:", 10, 80, 100, 80)
$Norm = GuiCtrlCreateRadio("(&Normal text)", 20, 95)
$Html = GuiCtrlCreateRadio("&HTML", 20, 115)
$URL = GuiCtrlCreateRadio("&URL", 20, 135)
$Input = GUICtrlCreateEdit("", 150, 30, 160, 60, 0x1000)
GuiCtrlCreateLabel("Input", 220, 10)
$Compute = GUICtrlCreateButton("&Compute", 150, 110, 50, 25, 1)
$Msgbox = GUICtrlCreateButton("&Show Output", 220, 140, 140, 20, 8192)
$Clipboard = GUICtrlCreateButton("&Copy Output", 220, 160, 140, 20, 8192)
Global $clip, $oldInput, $changed
GUICtrlSetState($Dec, 1)
GUICtrlSetState($Norm, 1)
GUICtrlSetState($Msgbox, 32)
GUICtrlSetState($Clipboard, 32)
GUISetState()
GUICtrlSetState($Input, 256)

While 1
    $msg = GUIGetMsg()
;~  If $msg = 0 And $oldInput <> GUICtrlRead($Input) Then Global $msg = $Dec, $oldInput = GUICtrlRead($Input)
    Select
    Case $msg = 0 And $clip > 0
        If ClipGet() <> $out And $clip == 1 Then
            GUICtrlSetState($Clipboard, 64)
            $clip = 2
        ElseIf ClipGet() == $out And $clip == 2 Then
            GUICtrlSetState($Clipboard, 128)
            $clip = 1
        EndIf
        ContinueLoop
    Case $msg == -3
        ExitLoop
    Case $msg == $Dec Or $msg == $Hex
        GUICtrlSetState($Msgbox, 128)
        GUICtrlSetState($Clipboard, 128)
        $clip = 0
        GUICtrlSetState($Input, 256)
    Case $msg == $Norm
        GUICtrlSetState($Msgbox, 128)
        GUICtrlSetState($Clipboard, 128)
        GUICtrlSetState($Dec, 64)
        GUICtrlSetState($Hex, 64)
        $clip = 0
        GUICtrlSetState($Input, 256)
    Case $msg == $Html
        GUICtrlSetState($Msgbox, 128)
        GUICtrlSetState($Clipboard, 128)
        GUICtrlSetState($Dec, 1)
        GUICtrlSetState($Dec, 64)
        GUICtrlSetState($Hex, 128)
        $clip = 0
        GUICtrlSetState($Input, 256)
    Case $msg == $URL
        GUICtrlSetState($Msgbox, 128)
        GUICtrlSetState($Clipboard, 128)
        GUICtrlSetState($Hex, 1)
        GUICtrlSetState($Dec, 128)
        GUICtrlSetState($Hex, 64)
        $clip = 0
        GUICtrlSetState($Input, 256)
    Case $msg == $Compute
        $in = StringSplit(String(GUICtrlRead($Input)), "")
        If GUICtrlRead($Dec) = 1 Then
            For $i = 1 To $in[0]
                $in[$i] = Asc($in[$i])
            Next
        ElseIf GUICtrlRead($Hex) = 1 Then
            For $i = 1 To $in[0]
                $in[$i] = Hex(Asc($in[$i]), 2)
            Next
        EndIf
        If Not $in[0] Then
            $out = ""
        ElseIf GUICtrlRead($Norm) = 1 Then
            $out = $in[1]
            For $i = 2 To $in[0]
                $out &= "," & $in[$i]
            Next
        ElseIf GUICtrlRead($Html) = 1 Then
            $out = ""
            For $i = 1 To $in[0]
                $out &= "&#" & $in[$i] & ";"
            Next
        ElseIf GUICtrlRead($URL) = 1 Then 
            $out = ""
            For $i = 1 To $in[0]
                $out &= "%" & $in[$i]
            Next
        EndIf
        GUICtrlSetState($Msgbox, 80)
        GUICtrlSetState($Clipboard, 80)
        GUICtrlSetState($Input, 256)
    Case $msg == $Clipboard
        ClipPut($out)
        GUICtrlSetState($Clipboard, 128)
        $clip = 1
        GUICtrlSetState($Input, 256)
    Case $msg == $Msgbox
        GUICtrlSetState($Msgbox, 128)
        MsgBox(0, "Output", $out)
        GUICtrlSetState($Msgbox, 64)
        GUICtrlSetState($Input, 256)
    EndSelect
WEnd

Edited February 21, 2006 by gamerman2360