Sign in to follow this  
Followers 0
gamerman2360

String Encoder for Webpages

1 post in this topic

#1 ·  Posted (edited)

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.

; ----------------------------------------------------------------------------
; 
; 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 by gamerman2360

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0