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

Mitglied: 48558

48558 (Level 1)

12.02.2008, aktualisiert 13.02.2008, 14158 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 ...

Soziale Netzwerke

Facebook profil umwandeln in seite

gelöst Frage von jensgebkenSoziale Netzwerke13 Kommentare

hallo gemeinschaft, bei der umwandlung zu einer seite - gehen dort eigentlich alle bisherigen beiträge und alle freunde verloren? ...

Neue Wissensbeiträge
SAN, NAS, DAS
Synology DSM 6.2 in Kürze verfügbar
Information von sabines vor 1 StundeSAN, NAS, DAS1 Kommentar

Für Synology NAS Systeme steht in Kürze ein größeres Update auf die Version 6.2 bereit. Die Änderungen sind unter ...

Cloud-Dienste

Neue Exchange Online und Office 365 Limits ab 01.06.2018

Tipp von decathlon vor 17 StundenCloud-Dienste

Achtung für alle Exchange Online Nutzer die es vielleicht übersehen haben. Ab 01. Juni gilt folgendes neues Limit User ...

Humor (lol)
Meine Variante der DSGVO
Tipp von Henere vor 2 TagenHumor (lol)4 Kommentare

Datenschutzerklärung Jede gute Website braucht eine Datenschutzerklärung? Ok, dann machen Sie sich auf etwas gefasst. Präambel Artikel 12 der ...

Administrator.de Feedback

Entwicklertagebuch: Datenschutzerklärung nach DS-GVO

Information von admtech vor 2 TagenAdministrator.de Feedback

Hallo Administrator User, Wir respektieren eure Privatsphäre und möchten euch daher auf die Möglichkeiten für den Umgang mit euren ...

Heiß diskutierte Inhalte
Windows Netzwerk
PCs abschotten, damit keine Dateien rausgehen (Windows 10-CLients auf Windows-Server 2016 Active Directory-Struktur)?
Frage von 1410640014Windows Netzwerk10 Kommentare

Frage: Gibt es Möglichkeiten unter Windows folgende Dinge zu unterbinden - ich meine geben müsste sie sie ja, sonst ...

Batch & Shell
Batch - Alle Dateien und Ordner löschen, ein Verzeichnis aber bei der Löschaktion ausnehmen
gelöst Frage von WindowsUser1Batch & Shell9 Kommentare

Guten Morgen Zusammen, folgende Hürde habe ich im Moment. Ich benötige ein Script, dass in einem Verzeichnis den kompletten ...

CPU, RAM, Mainboards
Wieviel Lüfter hat ein HP Elitebook 8730w ?
Frage von -WeBu-CPU, RAM, Mainboards9 Kommentare

Guten Morgen, gestern Abend hat sich bei meinem HP ein/der Lüfter hörbar abgeschaltet oder stark runter geregelt, obwohl das ...

Batch & Shell
Brauche hilf bei einer batch Datei
gelöst Frage von PilllllleBatch & Shell7 Kommentare

hallo, ich versuche mit Hilfe von einer batch- Datei eine bestimmt Zeile aus einer txt- Datei in eine neue ...