AIDNA

[ValeryVal]

Since Russian Federation has today received the .РФ top level for IDN,

one can transfer domain names between the encoded (Punycode) notation and the decoded (UTF-8) notation (Russia!) AIDNA.au3:

expandcollapse popup

;===================================================
; AIDNA by Valery Ivanov, 13 March 2010
; It uses service on http://idnaconv.phlymail.de
;===================================================
#include <GUIConstants.au3>
Global $EncodeIn, $DecodeIn

$hWnd = GUICreate("AIDNA © Valery Ivanov, 13 March 2010", 400, 150)
;--------------------------------------------------
$LabelEncode = GUICtrlCreateLabel("Original (Unicode):", 10, 40, 180, 21)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
$EncodeIn = GUICtrlCreateInput('правительство.рф', 10, 70, 180, 20)

$LabelDecode = GUICtrlCreateLabel("Punycode (ACE):", 240, 40, 130, 21)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
$DecodeIn = GUICtrlCreateInput('xn--80aealotwbjpid2k.xn--p1ai', 200, 70, 180, 20)

$Encode = GUICtrlCreateButton("Encode >>", 100, 100, 90, 21)
$Decode = GUICtrlCreateButton("<< Decode", 200, 100, 100, 21)
GUISetState()

; Start the main loop
While 1
$Msg = GUIGetMsg()
Select
Case $Msg = $GUI_EVENT_CLOSE
  Exit
Case $Msg = $Decode
  GUICtrlSetData($EncodeIn,"")
  DecodeIt()
Case $Msg = $Encode
  GUICtrlSetData($DecodeIn,"")
  EncodeIt()
EndSelect
WEnd

func DecodeIt()
local $DecodeContent, $EncodeContent
 $DecodeContent = GUICtrlRead($DecodeIn)
 InetGet("http://idnaconv.phlymail.de/index.php?encoded=" & $DecodeContent & "&decode=%3C%3C+Decode", "tmp.html", 1, 0)
 While Not FileExists("tmp.html")
  Sleep(250)
 Wend
 $HTMLSource = FileRead("tmp.html")
 $EncodeContent = _StringBetween($HTMLSource, '<input type="text" name="decoded" value="', '" size="')
 GUICtrlSetData($EncodeIn,$EncodeContent)
 FileDelete("tmp.html")
endfunc

func EncodeIt()
local $DecodeContent, $EncodeContent
 $EncodeContent = BinaryToString(StringToBinary(GUICtrlRead($EncodeIn),4))
 InetGet("http://idnaconv.phlymail.de/index.php?decoded=" & $EncodeContent & "&encode=%3C%3C+Encode", "tmp.html", 1, 0)
 While Not FileExists("tmp.html")
  Sleep(250)
 Wend
 $HTMLSource = FileRead("tmp.html")
 $DecodeContent = _StringBetween($HTMLSource, '<input type="text" name="encoded" value="', '" size="')
 GUICtrlSetData($DecodeIn,$DecodeContent)
 FileDelete("tmp.html")
endfunc

Func _StringBetween($s, $from, $to)
    $x = StringInStr($s, $from) + StringLen($from)
    $y = StringInStr(StringTrimLeft($s, $x), $to)
    Return StringMid($s, $x, $y)
EndFunc

It uses working service on http://idnaconv.phlymail.de