Programm Base64 schreiben mit VB
lima-city → Forum → Programmiersprachen → Basic
ahnung
all
artikel
basic
binrcode
catch
dankbar beispiel
encoding
freund
hilfe
konkreten schritten
krzlich
message
miteinander
pascal
verschlsselungsmethode
vielen dank
vortrag
zeichenkette
zurck
-
;) Hallo Freunde, ich muss in kommender Woche einen Vortrag halten über Base64.
Ich freue mich sehr, wenn jemand von euch diese Verschlüsselungsmethode auch kennt und mir dabei hilft.
Mein Problem ist: ich möchte ein kleines Programm schreiben (in VB), das eine String/Zeichenkette in Base64 konvertiert und umgekehrt...
Leider habe ich nicht so viel Ahnung, wie man das alles in Pascal oder Vb verwirklichen kann.
Falls jemand von euch Ahnung hat, bitte erkläre mir in konkreten Schritten. Ich bin sehr dankbar.
/* Beispiel */
Ich habe ein Wort --> "john"
Nun möchte ich jedes Zeichen des Wortes "john" erst in ASCII-Code umwandeln
j := 106
o := 111
h := 104
n := 110
Danach möchte ich diese ASCII-Code in Binärcode wandeln
106 := 1101010
111 := 1101111
104 := 1101000
110 := 1101110
Dann möchte ich all diese Binärzahlen miteinander verknüpfen
john := 1101010110111111010001101110
Nun möchte ich ccom Programm zählen lassen, wieviele Zeichen diese String (1101010110111111010001101110) insgesamt hat
usw.... (wenn ihr Base64 kennt, wisst ihr wie es weiter geht)
Aber zurück zu meinem Hauptproblem : "Wie kann man ein Programm in Visual Basic schreiben ,das ein Zeichen oder eine Zeichenkette in Base64 umwandelt und umgekehrt? "
DAnke im voraus ! -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
http://www.google.de/search?q=base64+%2Bvisual+basic
=>
http://vb-tec.de/base64.htm
http://zerbit.de/artikel/show.asp?id=11
http://www.paradoxes.info/code/base64.html -
ich danke dir für deine Hilfe. Könntest du mir vlt den Pascal-Code für Base64 finden, weil ich bei google keins finden konnte.
Viel viel vielen Dank -
Kürzlich hab ich selber Base64 in VB.Net 2003 gebraucht.
Meine zwei Routinen lauteten so:
Public Function ConvertToBase64(ByVal s As String) As String
Try
Return Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(s))
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Public Function ConvertFromBase64(ByVal s As String) As String
Try
Return System.Text.Encoding.UTF8.GetString(Convert.FromBase64String(s))
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage