Создание dll для кодирования/декодирования xxe и uue

$Test="12345"
$return=DllCall("xxe.dll", "str", "bin2xxe", "str", $Test, "int", 5, "str", "blablabla")
MsgBox(0, "", $return[0], 0)

$FileName=$CmdLine[1] 
$hFile=FileOpen($FileName,16)
$Data=FileRead($hFile)
FileClose($hFile)
$Name=StringRegExpReplace($FileName,'(^.*)\\(.*)$','\2')

$bin2xxe=DllCall("xxe.dll", "str", "bin2xxe", "str", $Data, "int", 5, "str", $Name)

$hFile=FileOpen('W:\Test\77\Test.xxe',8+2)
FileWrite($hFile,$bin2xxe[0])
FileClose($hFile)

; $FileName - имя файла
; $E_U - 0 в xxe, 1 - в uue
Func _Encoding_XXE_UUE($FileName,$E_U)
    $hFile=FileOpen($FileName,16)
    $src=FileRead($hFile)
    FileClose($hFile)
    Switch $E_U
      Case 0 ; xxe
        $sLineX='+-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'
        $SymX='h'
        $SymB='+'
      Case 1 ; uue
        $sLineX='`!"#$%&'&"'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_"
        $SymX='M'
        $SymB='`'
    EndSwitch
    Local $n=BinaryLen($src),$i=0,$s,$xxe=StringSplit($sLineX,'',2),$aSym[$n+1]
    While $i<=$n
        $iDec=Dec(Hex(BinaryMid($src,$i+1,1)))
        Switch Mod($i,3)
            Case 0
                $aSym[$i]=$xxe[Int($iDec/4)]
                $t=BitAND($iDec,3)*16
            Case 1
                $aSym[$i]=$xxe[$t+Int($iDec/ 16)]
                $t=BitAND($iDec,15)*4
            Case 2
                $aSym[$i]=$xxe[$t+Int($iDec/ 64)]&$xxe[BitAND($iDec,63)]
                $t=0
        EndSwitch
        If Mod($i,45)=44 Then $aSym[$i]=@CRLF&$SymX
        $i=$i+1
    WEnd

    $s=_ArrayToString($aSym,'')
    
    If Mod($n+1,3)<>0 Then $s&=$xxe[$t]
    $t=Mod($n,45)+1
    If $t<>45 Then
      $k=StringInStr($s,@CRLF,0,-1)
      If $k Then
        $s=$SymX&StringLeft($s,$k)&$xxe[$t-1]&StringMid($s,$k+3)&$SymB&@CRLF
      Else
        $s=$xxe[$t-1]&$s&$SymB&@CRLF
      EndIf
    EndIf
    $s='begin 644 '&StringRegExpReplace($FileName,'(^.*)\\(.*)$','\2')&@CRLF&$s&$SymB&@CRLF&'end'&@CRLF&$n&' bytes'&@CRLF
    Return $s
EndFunc   ;==>_Encoding_XXE_UUE