Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

String in Binär umwandeln

Frage Entwicklung VB for Applications

Mitglied: 48558

48558 (Level 1)

12.02.2008, aktualisiert 13.02.2008, 13964 Aufrufe, 2 Kommentare

Hallo,
Ich würde gerne mit VBScript einen String in Binär und zurück umwandeln .
Wie kann ich das realisieren?
Mitglied: bastla
12.02.2008 um 23:21 Uhr
Hallo Yugius!

Etwa so:
01.
Text = "Nur ein Test." 
02.
WScript.Echo Text 
03.
 
04.
'Zeichenweise Umwandlung in Bin 
05.
Bin = "" 
06.
For i = 1 To Len(Text) 
07.
	Dec = Asc(Mid(Text, i, 1)) 
08.
	Bin = Bin & Dec2Bin(Dec) 
09.
Next 
10.
WScript.Echo Bin 
11.
 
12.
'Byteweise Umwandlung in Zeichen 
13.
Text = "" 
14.
For i = 1 To Len(Bin) Step 8 
15.
	Text = Text & Chr(Bin2Dec(Mid(Bin, i, 8))) 
16.
Next 
17.
WScript.Echo Text 
18.
 
19.
 
20.
Function Dec2Bin(D) 'Umwandlung eines dezimalen Wertes zwischen 0 und 255 in Binärdarstellung 
21.
By = "" 
22.
For a = 7 To 0 Step -1 
23.
	Bit = Int(D / 2 ^ a) 
24.
	D = D - Bit * 2 ^ a 
25.
	By = By & CStr(Bit) 
26.
Next 
27.
Dec2Bin = By 
28.
End Function 
29.
 
30.
Function Bin2Dec(By) 'Umwandlung einer Binär-Zahl (8 Bit) in Dezimaldarstellung 
31.
If Len(By) <> 8 Then Err.Raise 5 
32.
D = 0 
33.
For a = 0 To 7 
34.
	D = D + Mid(By, 8 - a, 1) * 2 ^ a 
35.
Next 
36.
Bin2Dec = D 
37.
End Function
Zum Testen solltest Du das Script über "cscript" starten.

Grüße
bastla
Bitte warten ..
Mitglied: 48558
13.02.2008 um 06:29 Uhr
danke für die schnelle hilfe.
das löst mein problem ;)
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
PowerShell Array ind String umwandeln und in Textdatei ausgeben
gelöst Frage von derhoeppiBatch & Shell8 Kommentare

Hallo, folgende Thematik habe ich heute vor mir. Ich habe ein Array mit Integer-Werten. Die Größe des Array ist ...

C und C++
CSharp: List lässt sich nicht binär serialisieren
Frage von it4baerC und C++1 Kommentar

Hallo, ich habe in .net (C#) eine kleine Liste erstellt => sind zwar deutlich mehr werte, aber so die ...

Batch & Shell
String herausfiltern
gelöst Frage von goodbytesBatch & Shell5 Kommentare

Hallo, ich möchte gerne bei vielen Maschinen per Loginscript den FQDN ermitteln. Dafür wollte ich ihn aus der Rückgabe ...

Datenbanken
Einen String in zwei Strings splitten per SQL
gelöst Frage von essu2307Datenbanken8 Kommentare

Hallo, ich habe folgenden String in meiner Tabelle "accountingEntryExport_13344_UTC090040_23.csv.gz" nun möchte ich per SQL-Befehl den in zwei Teilen Splitten, ...

Neue Wissensbeiträge
Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 13 StundenBatch & Shell8 Kommentare

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Humor (lol)

"gimme gimme gimme": Automatischer Test stolpert über Easter Egg im man-Tool

Information von Penny.Cilin vor 16 StundenHumor (lol)6 Kommentare

Interessant, was man so alles als Easter Egg implementiert. Ist schon wieder Ostern? "gimme gimme gimme": Automatischer Test stolpert ...

MikroTik RouterOS

Mikrotik - Lets Encrypt Zertifikate mit MetaROUTER Instanz auf dem Router erzeugen

Anleitung von colinardo vor 1 TagMikroTik RouterOS8 Kommentare

Einleitung Folgende Anleitung ist aus der Lage heraus entstanden das ein Kunde auf seinem Mikrotik sein Hotspot Captive Portal ...

Sicherheit

Sicherheitslücke in HP-Druckern - Firmware-Updates stehen bereit

Information von BassFishFox vor 1 TagSicherheit1 Kommentar

Ein weiterer Grund, dass Drucker keinerlei Verbindung nach "auswaerts" haben sollen. Unter Verwendung spezieller Malware können Angreifer aus der ...

Heiß diskutierte Inhalte
Windows Server
RDP macht Server schneller???
Frage von JaniDJWindows Server17 Kommentare

Hallo Community, wir betrieben seit geraumer Zeit diverse virtuelle Maschinen und Server mit Windows Server 2012. Leider haben wir ...

Windows 10
Windows 10 dunkler Bildschirm nach Umfallen
Frage von AkcentWindows 1015 Kommentare

Hallo, habe hier einen Windows 10 Rechner der von einem User umgefallen wurde (Beine übers Knie, an den PC ...

Windows 10
Bitlocker nach Verschlüsselung nicht mehr aufrufbar!
gelöst Frage von alexlazaWindows 1013 Kommentare

Hallo, ich besitze ein HP ZBook 17 G4 mit einem Windows 10 Pro Betriebssystem. Bei diesem Problem handelt sich, ...

Batch & Shell
Neuste Datei via PowerShell kopieren
gelöst Frage von kaiuwe28Batch & Shell11 Kommentare

Hallo zusammen, ich hatte mir mit Hilfe der Suche im Forum einen kleinen Code von colinardo rausgesucht und versucht ...