Code generieren aus 3 vorgegebenen Codes

SpezHacker · 1. Februar 2011, 14:05

Hallo Liebe Community

Ich wollte euch fragen ob es in VB.Net eine möglichkeit gibt einen Zahlencode zu generieren aus 3 vorgegebenen Codes ?

also z.B. Vorgegebene sind : 0865435653 / 3467634595 / 564743865 ... und aus diesen Codes einen neuen Code generieren ?

Ich hoffe ihr versteht was ich meine .. Vielen Dank Schonmal

link_275 · 1. Februar 2011, 14:11

Ein ICQ UIN Generator?
Und nein Ich verstehe nicht genau was du meinst

link_275 :thumbup:

Dodo · 1. Februar 2011, 14:12

Klar geht das

VB.NET-Quellcode

Dim Code1 As String = "0865435653"
Dim Code2 As String = "3467634595"
Dim Code3 As String = "564743865"
Dim NeuerCode As String = Code1 & Code2 & Code3
MsgBox(NeuerCode)

SpezHacker · 1. Februar 2011, 14:14

Also ich mein das ich aus 3 vorhandenen Codes einen neuen generieren will...
sollte doch möglich sein oda ?

Dodo · 1. Februar 2011, 14:15

Haste meine Antwort gelesen? Da wird ein neuer Code generiert.

SpezHacker · 1. Februar 2011, 14:17

ja da werden nur die 3 codes zusammengefügt ... aber ich mein das ein neuer code entsteht der genauso lang ist wie die vorgegebenen codes ...

link_275 · 1. Februar 2011, 14:19

VB.NET-Quellcode

Dim r As New Random()
Dim RndString As String = ""
For i As Integer = 1 To 9
RndString &= r.Next(0,10)
Next

Damit's noch einfacher ist:

VB.NET-Quellcode

Module Module1
Sub Main()
Console.Clear()
Console.WriteLine("[Es werden nun 10 zufällige neustellige Zahlen generiert]")
Dim r As New Random()
For n As Integer = 0 To 9
Dim RndString As String = ""
For i As Integer = 1 To 9
RndString &= r.Next(0, 10)
Next
Console.WriteLine("Die neustellige Zufallszahl ist: " & RndString)
Next
Console.ReadLine() 'auf Benutzereingabe warten, also Enter
Main() 'Enter drücken, um das nochmal zu tun
End Sub
End Module

link_275

Dodo · 1. Februar 2011, 14:20

Dann schreib das doch auch! Neuer Code is neuer Code, man hätte sie auch als Integer Interpretieren und mit diversen mathematischen Operatoren verknüpfen können oder zusammen Hashen usw. da gäbe es tausende von Möglichkeiten ein neuen "Code" zu erzeugen.

Damit die gleiche länge bei heraus kommt, könntest die Zahlen als Integer interpretieren und mit XOr verknüpfen.

fLLo · 1. Februar 2011, 14:22

VB.NET-Quellcode

Function NeuerCode(ByVal length As Long, ByVal input As String)
Dim output As String = Nothing
For i As Long = 0 To length - 1
Randomize()
output = output & input.Chars(Int(Rnd() * input.Length) + 0)
Next
Return output
End Function

VB.NET-Quellcode

Dim code As Integer = NeuerCode(10, "0865435653" & "3467634595" & "564743865") '10 is die Länge des neuen Codes

Dodo · 1. Februar 2011, 14:26

omg VB6 Code hat hier aber nichts zu suchen =) und wozu ist + 0??

fLLo · 1. Februar 2011, 14:31

Dodo schrieb:

und wozu ist + 0??

Gute Frage

hab ich von Google und bisschen angepasst

aber funktioniert bei mir

link_275 · 1. Februar 2011, 14:37

Klar funktioniert's, ist aber veraltet. Und wieso sollten wir Ihm zeigen, wie man's nicht (mehr) macht, da es performantere Lösungen und neue Funktionen gibt, die er unbedingt nutzen sollte

link_275

user2100 · 15. Februar 2011, 19:41

das mit den zahlen generieren funzt super. wie bekomme ich es hin zahlen und Buchstaben zu generieren.die dann noch zusätzlich mit einem bindestrich versehen sind?

Beispiel:

58SDE-DKW8S-587D-DW10A-MCXP5

link_275 · 15. Februar 2011, 21:50

VB.NET-Quellcode

Module Module1
Sub Main()
Dim r As New Random
Dim src_String As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
Dim tmp_Count As Integer = 0
Dim res_String As String = ""
For i As Integer = 1 To 25
tmp_Count += 1
res_String &= src_String.ElementAt(r.Next(0, src_String.Length - 1))
If tmp_Count = 5 And Not i = 25 Then
res_String &= "-"
tmp_Count = 0
End If
Next
Console.WriteLine(res_String)
Console.ReadLine()
Main()
End Sub
End Module

Dann kommt das bei raus:
Gen_Serial.rar

link_275

xtts02 · 15. Februar 2011, 22:23

Ich sehe nirgendwo eine Lösung, um die Gültigkeit der zufällig generierten Codes zu prüfen.
Was macht das überhaupt für einen Sinn?

link_275 · 15. Februar 2011, 23:06

Danach hat auch kein Mensch gefragt -.-
Gültig WOFÜR meinst du denn?
Wofür das gebraucht wird ist mir egal

link_275

Dodo · 16. Februar 2011, 07:14

Genau deswegen gebe ich kein Copy und Paste Code, da bekommt man dann solche patzigen Antworten. Wenn du ein Serial Code haben willst dann frag im Marktplatz/Jobcenter Forum und gib eine entsprechende Gegenleistung.

link_275 · 16. Februar 2011, 08:54

Genau deswegen gebe ich kein Copy und Paste Code, da bekommt man dann solche patzigen Antworten.

Ja aber dann is schnell wieder Ruhe

Wenn du 'nem kleinen Kind Schokolade gibst, ist's ja auch Still. Bis die Schokolade weg ist und Sie ne neue wollen

Wenn du ein Serial Code haben willst dann frag im Marktplatz/Jobcenter Forum und gib eine entsprechende Gegenleistung.

Trotzdem ein wenig übertrieben, Ich meine, das bisschen Code das Ich gepostet hab', hätte er auch selbst hinbekommen..

link_275

Code generieren aus 3 vorgegebenen Codes

Code generieren aus 3 vorgegebenen Codes

VB.NET-Quellcode

re

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Dodo schrieb:

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben