48558

String in Binär umwandeln

Hallo,
Ich würde gerne mit VBScript einen String in Binär und zurück umwandeln .
Wie kann ich das realisieren?
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilen

Content-ID: 80593

Url: https://administrator.de/forum/string-in-binaer-umwandeln-80593.html

Ausgedruckt am: 03.06.2025 um 02:06 Uhr

bastla
bastla 12.02.2008 um 23:21:47 Uhr
Goto Top
Hallo Yugius!

Etwa so:
Text = "Nur ein Test."  
WScript.Echo Text

'Zeichenweise Umwandlung in Bin  
Bin = ""  
For i = 1 To Len(Text)
	Dec = Asc(Mid(Text, i, 1))
	Bin = Bin & Dec2Bin(Dec)
Next
WScript.Echo Bin

'Byteweise Umwandlung in Zeichen  
Text = ""  
For i = 1 To Len(Bin) Step 8
	Text = Text & Chr(Bin2Dec(Mid(Bin, i, 8)))
Next
WScript.Echo Text


Function Dec2Bin(D) 'Umwandlung eines dezimalen Wertes zwischen 0 und 255 in Binärdarstellung  
By = ""  
For a = 7 To 0 Step -1
	Bit = Int(D / 2 ^ a)
	D = D - Bit * 2 ^ a
	By = By & CStr(Bit)
Next
Dec2Bin = By
End Function

Function Bin2Dec(By) 'Umwandlung einer Binär-Zahl (8 Bit) in Dezimaldarstellung  
If Len(By) <> 8 Then Err.Raise 5
D = 0
For a = 0 To 7
	D = D + Mid(By, 8 - a, 1) * 2 ^ a
Next
Bin2Dec = D
End Function
Zum Testen solltest Du das Script über "cscript" starten.

Grüße
bastla
48558
48558 13.02.2008 um 06:29:43 Uhr
Goto Top
danke für die schnelle hilfe.
das löst mein problem ;)