Global $hGUI=X('GUI'& _ ;#####################################
'Create("Base64 Dec'& _ ;#    #                              #
'oder",600,300)'),$I= _ ;######   Programm: Base64 Decoder   #
GUICtrlCreateEdit('', _ ;#    #   Autor   : Mars             #
0,0,600,150,4096+64), _ ;######   Datum   : 13.08.12         #
$O=GUICtrlCreateEdit( _ ;#    #   AutoIt  : 3.3.8.1          #
'',0,150,600, 150,2112) ;######                              #
Global $B=X('GUISet'& _ ;#    ################################
'State()')+X('GUIRe'& _ ;######
'gisterMsg(0x0111,"'& _ ;#    #
'WM_COMMAND")')+X(''& _ ;######
'GUICtrlSetData($I,'& _ ;#    #
'"SGFsbG8sIGljaCBia'& _ ;######
'W4gZWluIEJhc2U2NC1'& _ ;#    #
'EZWNvZGVy")')+X('G'& _ ;######
'UICtrlSetData($O,B'& _ ;#    #
'6(GUICtrlRead($I )))') ;######
While Not(GUIGetMsg() _ ;#    #
=-3) + None(0xFF+3,0x5) ;######
WEnd;WEnd ist auch hmm. ;#    #
Func WM_COMMAND($WND, _ ;######
$iMSG, $wParam,$lParam) ;#    #
If X('' &'BitShift('& _ ;######
$wParam&',16)')=0x300 _ ;#    #
And BitAND ($wParam , _ ;######
0xFFFF)=$I Then X(''& _ ;#    #
'GUICtrlSetData($O,'& _ ;######
'B6(GUICtrlRead($I)))') ;#    #
EndFunc ; WM_COMMAND--- ;######
Func B6($sB6,$sinn='l') ;#    #
Local $v=BX('446C6C'& _ ;######
'537472756374437265'& _ ;#    #
'6174652827696E7427'& _ ;######
'29'),$x=DllCall('C'& _ ;#    #
'rypt32.dll' , 'int', _ ;######
'CryptStringToBinar'& _ ;#    #
'y','str',$sB6,'int', _ ;######
0, 'int', 1 ,'ptr',0, _ ;#    #
'ptr',GP($v,1),'ptr', _ ;######
0,'ptr',0),$z ='byt'& _ ;#    #
'e['&GD($v,1)&']',$a= _ ;######
DllStructCreate($z) , _ ;#    #
$w=DllCall('Crypt32'& _ ;######
'.dll','int','Crypt'& _ ;#    #
'StringToBinary','s'& _ ;######
'tr',$sB6,'int',0,''& _ ;#    #
'int',1,'ptr',GP($a), _ ;######
'ptr',GP($v, 1),'pt'& _ ;#    #
'r',0,'ptr',0), $Lustig ;######
Return BTS( HX(GD($a, _ ;#    #
1))) & None('Return..') ;######
EndFunc;So wird gelesen ;#    #
Func GP($v,$el=1,$i=44) ;######
Return None(0) & '' & _ ;#    #
DllStructGetPtr($v,$el) ;######
EndFunc; StructGetPtr.- ;#    #
Func GD($v,$e=1,$i=0xF) ;######
Return None(0) & '' & _ ;#    #
DllStructGetData($v,$e) ;######
EndFunc; StructGetData- ;#    #
Func None($a=0, $b = 0) ;######
If $a+$b Then Return '' ;#    #
Return String(''&''&'') ;######
EndFunc;Lieblings Func. ;#    #
Func BTS($a,$b='Hallo') ;######
Return X('BinaryToS'& _ ;#    #
'tring("0x' & $a &'")') ;######
EndFunc;wiedereinEnde.. ;#    #
Func X ($dhjgfg, $D='') ;######
Return Execute($dhjgfg) ;#    #
EndFunc ; Bubel lässt_# ;######
Func HX($s,$Mars='Gut') ;#    #
Return None('Mööp') & _ ;######
StringTrimLeft( $s , 2) ;#    #
EndFunc;##>-->>>--<<##| ;######
Func BX($sB,$QTTR=1450) ;#    #
Local $a=BTS($sB,$QTTR) ;######
Return X($a)+None(0xDA) ;#    #
EndFunc;horch horch...# ;######