Binär Code in Text umwandeln

'DeCrypt.vbs  
sOutFile = "C:\DeCryptErgebnis.txt"  
Set fso=WScript.CreateObject("Scripting.FileSystemObject")  
Set oInFile = fso.OpenTextFile(WScript.Arguments(0),1)
sTemp = ""  
Do While Not oInFile.AtEndOfStream
    BZahl = oInFile.ReadLine
    If Len(BZahl) <> 8 Then
        oInFile.Close
        MsgBox "Eingabedaten fehlerhaft!"  
        WScript.Quit(1)
    End If
    DZahl = 0
    For i = 1 to 8
        DZahl = DZahl + CInt(Mid(BZahl, i, 1)) * 2^(i-1)
    Next
    sTemp = sTemp & Chr(DZahl)
Loop
oInFile.Close
Set oOutFile = fso.OpenTextFile(sOutFile, 2, True)
oOutFile.Write sTemp & vbCrLF
aErg = Split(sTemp, " ")  
sErg = ""  
For i = 0 To UBound(aErg)
    sErg = sErg & Chr(aErg(i))
Next
oOutFile.Write sErg
oOutFile.Close

'DeCryptBiberVariante.vbs  
Set fso=WScript.CreateObject("Scripting.FileSystemObject")  
Set oFile = fso.OpenTextFile(WScript.Arguments(0),1)
sTemp = ""  

Do While Not oFile.AtEndOfStream
    BZahl = oFile.ReadLine
    If Len(BZahl) <> 8 Then
        oFile.Close
        MsgBox "Eingabedaten fehlerhaft!"  
        WScript.Quit(1)
    End If
    DZahl = 0
    For i = 1 to 8
        DZahl = DZahl + CInt(Mid(BZahl, 9-i, 1)) * 2^(i-1)
    Next
    sTemp = sTemp & Chr(DZahl)
Loop
oFile.Close
WScript.Echo sTemp

>set /a 0b00010110
Ungültige Zahl. Nummerische Konstanten sind entweder dezimale (17),
hexadezimale (0x11) oder oktale (021) Zahlen.
>set /?
.....
d.h. außerhalb eines Befehlsskripts ausgeführt wird, dann zeigt er
den endgültigen Wert des Ausdrucks an. Der Zuordnungsoperator erfordert
eine Umgebungsvariable auf der linken Seite des Operators. Nummerische Werte
stellen immer Dezimalzahlen dar, es sei denn, sie haben ein Präfix 0x für
hexadezimale Zahlen, <b>0b für binäre Zahlen </b>oder 0 für oktale Zahlen. Damit
stellt 0x12 dieselbe Zahl wie 18 oder 022 dar. Beachten Sie, dass die oktale
Schreibweise verwirrend sein kann: So sind 08 und 09 keine gültigen Zahlen,
da 8 und 9 keine erlaubten oktalen Ziffern sind.

Die sieben Zwerge (für Realisten) 
Es waren einmal sieben Zwerge, die lebten hinter den sieben Bergen. Tag 
für Tag suchten sie im Bergwerk nach Gold. Jeder der Zwerge war 
rechtschaffen, fleißig und achtete den Anderen. 
Wenn einer von Ihnen müde wurde, ruhte er sich aus, ohne daß die Anderen 
erzürnten. Wenn es einem von Ihnen an etwas mangelte, so gaben die 
Anderen bereitwillig und gerne. Abends wenn das Tagwerk geschaffen war, 
aßen sie einträchtig ihr Brot und gingen zu Bett. Am siebten Tage jedoch 
ruhten sie. 
Doch eines Tages meinte einer von Ihnen, daß sie so recht nicht wüßten, 
wieviel denn geschafft sei und begann, die Goldklumpen zu zählen, die 
sie Tag für Tag aus dem Bergwerk schleppten. Und weil er so mit Zählen 
beschäftigt war, schufteten die Anderen für Ihn mit. Bald nahm ihn seine 
neue Arbeit so in Anspruch, daß er nur noch zählte und die Hacke für 
immer beiseite legte. 

>cscript //nologo .\Decrypt1.vbs 01000100.txt
Die sieben Zwerge (für Realisten) Es waren einm

'DeCrypt2.vbs  
BZahl = WScript.Arguments(0)
sTemp = ""  
DZahl = 0
For i = 1 to 8 ' step -1  
    DZahl = DZahl + CInt(Mid(BZahl, 9-i, 1)) * 2^(i-1)
    WScript.echo "Mid(" & Bzahl& "(" & 9-i & "),1) " &  CInt(Mid(BZahl, 9-i, 1)) * 2^(i-1) & " Gesamt: " & DZahl  
Next
sTemp = sTemp & Chr(DZahl)
WScript.Echo sTemp

>cscript //nologo .\Decrypt2.vbs 01000001
Mid(01000001(8),1) 1 Gesamt: 1
Mid(01000001(7),1) 0 Gesamt: 1
Mid(01000001(6),1) 0 Gesamt: 1
Mid(01000001(5),1) 0 Gesamt: 1
Mid(01000001(4),1) 0 Gesamt: 1
Mid(01000001(3),1) 0 Gesamt: 1
Mid(01000001(2),1) 64 Gesamt: 65
Mid(01000001(1),1) 0 Gesamt: 65
A

'DeCrypt0.3.vbs  
sOutFile = "C:\DeCryptErgebnis.txt"  
Set fso=WScript.CreateObject("Scripting.FileSystemObject")  
Set oInFile = fso.OpenTextFile(WScript.Arguments(0),1)
sTemp = ""  
Do While Not oInFile.AtEndOfStream
    BZahl = oInFile.ReadLine
    If Len(BZahl) <> 8 Then
        oInFile.Close
        MsgBox "Eingabedaten fehlerhaft!"  
        WScript.Quit(1)
    End If
    DZahl = 0
    For i = 1 to 8
        DZahl = DZahl + CInt(Mid(BZahl, i, 1)) * 2^(i-1)
    Next
    sTemp = sTemp & Chr(DZahl)
Loop
oInFile.Close
Set oOutFile = fso.OpenTextFile(sOutFile, 2, True)
oOutFile.Write sTemp & vbCrLF
aErg = Split(sTemp, " ")  
For i = 0 To UBound(aErg)
    oOutFile.Write Chr(aErg(i))
Next
oOutFile.Close

....
For i = 0 To UBound(aErg)
    j = int( aErg(i))
    if (j >32 and j <=255) then
       oOutFile.Write Chr(j)
    else
       oOutFile.Write "[+ Chr(" & j & ")] + "  
       wscript.echo aErg(i)     & " Nicht erwartet: chr(" & j &")"   
     end if
Next

'EnCrypt.vbs  
sOutFile = "D:\ADM\EnCryptErgebnis.txt"  
Set fso=WScript.CreateObject("Scripting.FileSystemObject")  
Set oInFile = fso.OpenTextFile(WScript.Arguments(0),1)
sTemp = oInFile.ReadAll
oInFile.Close
sAscii = CStr(Asc(Left(sTemp, 1)))
iAnz = Len(sTemp)
For i = 2 To iAnz
	sAscii = sAscii & " " & CStr(Asc(Mid(sTemp, i, 1)))  
Next
sErg = ""  
iAnz = Len(sAscii)
For i = 1 To iAnz
	DZahl = Asc(Mid(sAscii, i, 1))
	sBZahl = ""  
	For j = 7 To 0 Step -1
		iBit = Int(DZahl / 2^j)
		sBZahl = CStr(iBit) & sBZahl
		DZahl = DZahl - iBit * 2^j
	Next
	sErg = sErg & sBZahl
	If i <> iAnz Then
		sErg = sErg & vbCrLF
	End If
Next
Set oOutFile = fso.OpenTextFile(sOutFile, 2, True)
'oOutFile.Write sTemp & vbCrLF & sAscii & vbCrLF  
oOutFile.Write sErg
oOutFile.Close
MsgBox "Done."  

...
For i = 0 To UBound(aErg)-1
    j = int( aErg(i))
    if (j >=32 and j <=255) then
       oOutFile.Write Chr(j)
    else
       oOutFile.Write "[+ Chr(" & j & ")] + "  
       wscript.echo aErg(i)     & " Nicht erwartet: chr(" & j &")"          
    end if
Next
....

if (j >32 and j <=255) then

if (j >= 32 and j <=255) then