Sting: an jede 2. Stelle buchstabe, Zahl oder Sonderzeichen setzten?

Black-Hat · 29. Dezember 2010, 12:05

Guten Tag,
ich möchte Nachrichten etwas verschlüsselt übergeben. Ich möchte das wenn ich etwas eintippe und auf Absenden klicke soll der eingegebene String an jeder zweiten Stelle irgendetwas haben. z.B. einen Buchstaben eine Zahl oder ein Sonderzeichen. Also so: aus Hallo wird Hia0l3l#o. Wie mache ich das jetzt? Ich habe es versucht aber dann bin ich nicht mehr weitergekommen. Ich habe als erstes die länge des Strings durch sich selbst geteilt. Danach habe ich gemerkt das das ja völlig dumm war. Jetzt weis ich aber einfach nicht weiter.

Vielen Dank

Dodo · 29. Dezember 2010, 12:26

Abgesehen davon das der Algorithmus nicht sonderlich sicher ist, einfach eine Schleife durch den String mittles For Each und dann einem Stringbuilder den aktuellen Buchstaben + einem Random Buchstaben hinzufügen, ist doch ganz easy.

EiPott · 29. Dezember 2010, 12:27

VB.NET-Quellcode

Module Module1
Sub Main()
Dim oldstr As String = "Hallo"
Dim rand As New Random
Dim newstr As String = String.Empty
For i As Integer = 0 To oldstr.Length - 1
newstr &= oldstr(i) & Convert.ToChar(rand.Next(65, 91))
Next
Console.Write(newstr)
Console.Read()
End Sub
End Module

Black-Hat · 29. Dezember 2010, 12:34

Vielen Dank euch. @Dodo kennst du was besseres? Jedenfalls habe ich noch nichts mit MD5 usw. in Visual Basic gemacht.

Viiiiiiiiiiiiiiiiiielen Dank

Unwesen · 29. Dezember 2010, 12:37

..

VB.NET-Quellcode

Dim OrgText As String = "Dein Text.. Bla bla Blubb.."
Dim Cryptchars As String = "§$%&/()=?"
Dim CryptedText As String = ""
Dim rn As New Random
For i As Integer = 0 To OrgText.Length - 1
CryptedText &= OrgText.Substring(i, 1) & Cryptchars.Substring(rn.Next(1, Cryptchars.Length), 1)
Next
Label1.Text = CryptedText

Black-Hat · 29. Dezember 2010, 12:47

Danke. Noch eine Frage. Wie kann ich an den Anfang eines Strings ein Zeichen setzen?

Vielen Dank

Unwesen · 29. Dezember 2010, 12:50

Label1.Text = "?" & Label1.Text

Black-Hat · 29. Dezember 2010, 12:53

Oh man bin ich blöd.

Vielen Dank sowas dummes hät ich auch selbst drauf kommen können. Danke

Unwesen · 29. Dezember 2010, 12:56

Lies mal ein wenig über Strings: openbook.galileocomputing.de/vb_net/msvb060000.htm#Rxx35827

Sting: an jede 2. Stelle buchstabe, Zahl oder Sonderzeichen setzten?

Sting: an jede 2. Stelle buchstabe, Zahl oder Sonderzeichen setzten?

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben