Results 1 to 1 of 1
  1. #1
    jstyler
    jstyler is offline
    New member
    Join Date
    2013 Jul
    Posts
    5
    Thanks
    1
    Thanked 0 Times in 0 Posts
    Rep Power
    0

    [VB.net Source] cvn-Generating Pattern

    Hey,

    This is a pretty nice Pattern-Function for perfect Usernamegenerating/Password's.

    c: There is a random consonant (all letters except vowels) generated (uppercase and lowercase letters are differentiated)
    v: There is a random vowel (a, e, i, o, u) generated (uppercase and lowercase letters are differentiated)
    n: There is a random number generated between 0-9 remaining: All other characters stand for themselves

    Code:
        Private Const Konsonanten As String = "BCDFGHJKLMNPQRSTVWXYZ"
        Private Const Vokale As String = "AEIOU"
        Private Const Digits As String = "0123456789"
    
        Private Function cvnpattern(ByVal input As String) As String
    
            Dim r As New Random
            Dim sb As New System.Text.StringBuilder
    
            Dim escaped As Boolean = False
            For Each c In input
                If escaped Then
                    sb.Append(c)
                    escaped = False
                Else
                    Select Case c
                        Case "C"c
                            sb.Append(Konsonanten(r.Next(0, Konsonanten.Length)))
                        Case "c"c
                            sb.Append(Konsonanten(r.Next(0, Konsonanten.Length)).ToString.ToLower)
                        Case "V"c
                            sb.Append(Vokale(r.Next(0, Vokale.Length)))
                        Case "v"c
                            sb.Append(Vokale(r.Next(0, Vokale.Length)).ToString.ToLower)
                        Case "N"c
                            sb.Append(Digits(r.Next(0, Digits.Length)))
                        Case "n"c
                            sb.Append(Digits(r.Next(1, Digits.Length)))
                        Case Else
                            sb.Append(c)
                    End Select
    
                End If
    
            Next
    
            Return sb.ToString
    
        End Function
    Have fun with it

    Greetings JStyler

Similar Threads

  1. Pattern Helper
    By hanswurst in forum Files & Tools
    Replies: 0
    Last Post: 2013-06-18, 10:05 PM
  2. [Guide] Best WoW Gold Generating Professions
    By Grooguz in forum WoW Guides, Tutorials
    Replies: 1
    Last Post: 2013-05-10, 08:28 PM
  3. [Hack] Animation Canceling Shot Pattern [ SNIPER ]
    By lordallef in forum Aika Guides, Tutorials
    Replies: 4
    Last Post: 2012-08-29, 04:42 PM
  4. Memory Pattern Scanning, Video Tutorial
    By Dwar in forum Programming Tutorials
    Replies: 0
    Last Post: 2010-11-29, 03:59 PM
Visitors found this page by searching for:
Nobody landed on this page from a search engine, yet!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •