Кодирование/Декодирование UUE и XXE

Func _Encoding_Base64Decode($sData)
  $struct=DllStructCreate("int")
  $a_Call=DllCall("Crypt32.dll","int","CryptStringToBinary","str",$sData,"int",0,"int",1,"ptr",0,"ptr",DllStructGetPtr($struct,1),"ptr",0,"ptr",0)
  If @error Or Not $a_Call[0] Then Return SetError(1,0,"")
  $a=DllStructCreate("byte["&DllStructGetData($struct,1)&"]")
  $a_Call=DllCall("Crypt32.dll","int","CryptStringToBinary", "str",$sData,"int",0,"int",1,"ptr",DllStructGetPtr($a),"ptr",DllStructGetPtr($struct,1),"ptr",0,"ptr",0)
  If @error Or Not $a_Call[0] Then Return SetError(2,0,"")
  Return BinaryToString(DllStructGetData($a,1))
EndFunc

Func _Encoding_Base64Encode($sData)
  $sData=Binary($sData)
  $struct=DllStructCreate("byte["&BinaryLen($sData)&"]")
  DllStructSetData($struct,1,$sData)
  Local $strc=DllStructCreate("int"),$a_Call=DllCall("Crypt32.dll","int","CryptBinaryToString","ptr",DllStructGetPtr($struct),"int",DllStructGetSize($struct), "int",1,"ptr",0,"ptr",DllStructGetPtr($strc))
  If @error Or Not $a_Call[0] Then Return SetError(1,0,"")
  $ast=DllStructCreate("char["&DllStructGetData($strc,1)&"]")
  $a_Call=DllCall("Crypt32.dll","int","CryptBinaryToString","ptr",DllStructGetPtr($struct),"int",DllStructGetSize($struct),"int",1,"ptr",DllStructGetPtr($ast),"ptr",DllStructGetPtr($strc))
  If @error Or Not $a_Call[0] Then Return SetError(2,0,""); error encoding
  Return BinaryToString(DllStructGetData($ast,1))
EndFunc

$fileName = '1.txt'
$hFile = FileOpen($fileName, 16)
$data = FileRead($hFile)
FileClose($hFile)

bin2xxe($data, $fileName)

Func bin2xxe($src, $fname)
	$src = Binary($src)
	Local $xxe = StringSplit('+-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz', '', 3)

	Local $n = BinaryLen($src) - 1
	Local $pt = 1
	Local $sz = 12 + StringLen($fname)
	Local $i = 0, $s

	For $_i = 1 To (($n + 1) / 45) * 63 + (Mod(($n + 1), 45)) * 4 / 3 + 280
		$s &= ' '
	Next
;~ 	или StringFormat('%' & $count & 's', '')

	Mid($s, 1, $sz, "begin 644 " & $fname & @CRLF)
	$pt = $pt + $sz + 1
	$sz = $pt - 1

	While $i <= $n
		Switch Mod($i, 3)
			Case 0
				Mid($s, $pt, 1, $xxe[Int(Dec(Hex(BinaryMid($src, $i + 1, 1))) / 4)])
				$pt = $pt + 1
				$t = BitAND(Dec(Hex(BinaryMid($src, $i + 1, 1))), 3) * 16
			Case 1
				Mid($s, $pt, 1, $xxe[$t + Int(Dec(Hex(BinaryMid($src, $i + 1, 1))) / 16)])
				$pt = $pt + 1
				$t = BitAND(Dec(Hex(BinaryMid($src, $i + 1, 1))), 15) * 4
			Case 2
				Mid($s, $pt, 2, $xxe[$t + Int(Dec(Hex(BinaryMid($src, $i + 1, 1))) / 64)] & _
						$xxe[BitAND(Dec(Hex(BinaryMid($src, $i + 1, 1))), 63)])
				$pt = $pt + 2
				$t = 0
		EndSwitch
		If Mod($i, 45) = 44 Then
			Mid($s, $sz, 1, 'h')
			Mid($s, $pt, 2, @CRLF)
			$pt = $pt + 3
			$sz = $pt - 1
		EndIf
		$i = $i + 1
	WEnd

	If Mod($n + 1, 3) <> 0 Then
		Mid($s, $pt, 1, $xxe[$t])
		$pt = $pt + 1
	EndIf

	$t = Mod($n, 45) + 1

	If $t <> 45 Then
		Mid($s, $sz, 1, $xxe[$t])
		Mid($s, $pt, 3, "+" & @CRLF)
		$pt = $pt + 3
	EndIf

	Mid($s, $pt, 3, "end")
	$sz = $pt + 2
	$bin2xxe = StringLeft($s, $sz)

	ConsoleWrite($bin2xxe & @LF)
	Return $bin2xxe
EndFunc   ;==>bin2xxe

Func Mid(ByRef $s, $start, $count, $string)
	$s = StringReplace($s, $start, $string)
EndFunc   ;==>Mid

Local $n = BinaryLen($src) - 1
    Local $pt = 1
    Local $sz = 12 + StringLen($fname)
    Local $i = 0, $s


    $count=(($n + 1) / 45) * 63 + (Mod(($n + 1), 45)) * 4 / 3 + 280
    $space='  '
    $len=StringLen($src)
    If $len<256 Then
      For $k=1 To $count/$len/8+1
        $space&='        '
      Next
    EndIf
    $s=StringRegExpReplace($src, '[\H]', $space)
    $s=StringLeft($s,$count)

Func _Encoding_XXE($FileName)
    $hFile=FileOpen($FileName,16)
    $Data=FileRead($hFile)
    FileClose($hFile)
    $src=Binary($Data)
    $xxe=StringSplit('+-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz','',2)
    Local $n=BinaryLen($src),$i=0,$s

    While $i<=$n
        $iDec=Dec(Hex(BinaryMid($src,$i+1,1)))
        Switch Mod($i,3)
            Case 0
                $s&=$xxe[Int($iDec/ 4)]
                $t=BitAND($iDec,3)*16
            Case 1
                $s&=$xxe[$t+Int($iDec/ 16)]
                $t=BitAND($iDec,15)*4
            Case 2
                $s&=$xxe[$t+Int($iDec/ 64)]&$xxe[BitAND($iDec,63)]
                $t=0
        EndSwitch
        If Mod($i,45)=44 Then $s&=@CRLF&'h'
        $i=$i+1
    WEnd

    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='h'&StringLeft($s,$k)&$xxe[$t-1]&StringMid($s,$k+3)&'+'&@CRLF
      Else
        $s=$xxe[$t-1]&$s&'+'&@CRLF
      EndIf
    EndIf
    $s='begin 644 '&StringRegExpReplace($FileName,'(^.*)\\(.*)$','\2')&@CRLF&$s&'+'&@CRLF&'end'&@CRLF&$n&' bytes'&@CRLF
    Return $s
EndFunc   ;==>_Encoding_XXE