Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Dim Charset As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
Function CreateBlock(Start As Integer,offset As Integer)
  Dim oChar As Integer = Start
  Dim tmp As String = Chars(Start)
  For x As Integer = 0 To 3 ' Ein block 5 zeichen
    oChar = (oChar + Offset) Mod Charset.Length
    tmp &= Charset.Chars(oChar)
  Next
  Return tmp
End Function
Function CreateKey() As String
  Dim tmp As String = ""
  Dim rnd As New Random()
  For x As Integer = 0 To 4 ' 5 Blöcke
    Dim strt As Integer = Int(rnd.NextDouble() * Charset.Length)
    Dim offset As Integer = Int(rnd.NextDouble() * Charset.Length -1)
    tmp &= CreateBlock(strt,offset) & IIf(x < 4,"-","")
  Next
  Return tmp
End Function
Function CheckBlock(Block As String) As Boolean
  If Block.Length = 5 Then
    Dim offset As Integer = Charset.IndexOf(Block(1)) - Charset.IndexOf(Block(0))
    Dim oInt As Integer
    For x As Integer = 1 To 3
      Dim nOffset As Integer = Charset.IndexOf(Block(x))- Charset.IndexOf(Block(x+1))
      If nOffset <> offset Then
        Return True
      End If
    Next x
    Return True
  Else
    Return False
  End If
End Function
Function CheckKey(Key As String) As Boolean
  Dim splt() As String = Split(Key,"-")
  For x As Integer = 0 To splt.Length -1
    If CheckBlock(splt(x)) = False Then Return False
  Next
  Return True
End Function

Visual Basic Quellcode

'zum erzeugen eines Keys nach dem Algorithmus(natürlich ist Zufall dabei) und ausgabe in ner MsgBox
MessageBox.Show(CreateKey())
'zum überprüfen eines Keys
If CheckKey("A1234-B2145-CDGW-XDGA1-ABCDE") Then' der Key stimmt aufjedenfall nicht^^
  'mach was wenns richtig ist...
Else
  MessageBox.Show("",MsgBoxStyle.Criticial)
End If

Quellcode

Der Name "Chars" wurde nicht deklariert.

Visual Basic Quellcode

    Dim Charset As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
    Function CreateBlock(ByVal Start As Integer, ByVal offset As Integer) As String
        Dim oChar As Integer = Start
        Dim tmp As String = Charset(Start)
        For x As Integer = 0 To 3 ' Ein block 5 zeichen
            oChar = (oChar + offset) Mod Charset.Length
            tmp &= Charset.Chars(oChar)
        Next
        Return tmp
    End Function
    Function CreateKey() As String
        Dim tmp As String = ""
        Dim rnd As New Random()
        Me.Text = ""
        For x As Integer = 0 To 4 ' 5 Blöcke
            Dim strt As Integer = CInt(rnd.NextDouble() * Charset.Length)
            Dim offset As Integer = CInt(rnd.NextDouble() * (Charset.Length - 1) + 1)
            Me.Text &= offset & ";"
            tmp &= CStr(CreateBlock(strt, offset)) & CStr(IIf(x < 4, "-", ""))
        Next
        Return tmp
    End Function
    Function CheckBlock(ByVal Block As String) As Boolean
        If Block.Length = 5 Then
            Dim offset As Integer = Charset.IndexOf(Block(1)) - Charset.IndexOf(Block(0))
            If offset < 0 Then offset = Charset.Length - offset
            offset = offset Mod Charset.Length
            For x As Integer = 1 To 3
                Dim nOffset As Integer = Charset.IndexOf(Block(x + 1)) - Charset.IndexOf(Block(x))
                If nOffset < 0 Then nOffset = Charset.Length - nOffset
                nOffset = nOffset Mod Charset.Length
                If nOffset <> offset AndAlso Charset.Length - nOffset <> offset Then
                    Return False
                End If
            Next x
            Return True
        Else
            Return False
        End If
    End Function
    Function CheckKey(ByVal Key As String) As Boolean
        Dim splt() As String = Split(Key, "-")
        For x As Integer = 0 To splt.Length - 1
            If CheckBlock(splt(x)) = False Then Return False
        Next
        Return True
    End Function