Random lower case letter

[flip209]

I do not know if any would be interested in this but here it is...

CODE

$hex = Random(0x61, 0x7a,1);Pickes a random lower case letter

$hex2 = hex($hex, 2);converts the Decimal to Hex

$hexkey = Chr($hex);coverts the Decimal to Ascii that is the letter

MsgBox(0, ""," Hex: " & $hex2 &" Decimal: "&$hexe & " letter: " & $hexkey)

[Swift]

I have a great idea with this. Create a: CreateSerial() Function like this.

Func CreateSerial($_CharactersInSerial=16, $_IncludeLetters=1, $_IncludeNumbers=1, $_ExtraCharacters="", $_Divide=1, $_DivideEvery_Characters=4)

EndFunc

Info: $_CharactersinSerial, how many characters will be in it. $_IncludeLetters, 1= yes, 0= no. $_IncludeNumbers, 1=yes, 0=no. $_ExtraCharacters, all the extra characters, stringsplit by a "." so if you wanted to add, &^ to it, it would look like this: ^.& . $_Divide, 1=yes, divide the serial with a - , 0=no dont. $_DivideEvery_Characters, this is how many characters you will put a - for.

That would be a cool function to make with that!

[flip209]

That would be a good idea see that is why I like this fourm

[NELyon]

I do not know if any would be interested in this but here it is...

CODE

$hex = Random(0x61, 0x7a,1);Pickes a random lower case letter

$hex2 = hex($hex, 2);converts the Decimal to Hex

$hexkey = Chr($hex);coverts the Decimal to Ascii that is the letter

MsgBox(0, ""," Hex: " & $hex2 &" Decimal: "&$hexe & " letter: " & $hexkey)

Small, but actually very useful. Saved, because I generally put the entire alphabet in an array, which gets tiring to type out.

For the entire alphabet (Upper and Lower), use this:

$hex = Random(0x61, 0x7a,1);Pickes a random lower case letter

$hex2 = hex($hex, 2);converts the Decimal to Hex

$hexkey = Chr($hex);coverts the Decimal to Ascii that is the letter
Switch Random(1, 2, 1)
    Case 1
        $letter = StringUpper($hexkey)
    Case 2
        $letter = $hexkey
EndSwitch

MsgBox(0, "", $letter)

I know there are more efficient ways of doing it, but... eh... what was I saying?

[flip209]

There are actually hex codes that you can pick from... but there is a split of special characters in the middle.

[flip209]

See here

http://www.asciitable.com/

[flip209]

$hex = Random(0x21, 0x7a,1);Pickes a random lower case letter

$hex2 = hex($hex, 2);converts the Decimal to Hex

$hexkey = Chr($hex);coverts the Decimal to Ascii that is the letter

MsgBox(0, ""," Hex: " & $hex2 &" Decimal: "&$hexe & " letter: " & $hexkey)

This does all numbers letters and special characters.

[crashdemons]

uhhh... Just do this

_StringRand(1,0x21,0x7a)

This function has been floating around the forum for a while now

Func _StringRand($length=20,$min=0x20,$max=0x7E)
    $string=''
    For $i=1 To $length
        $string&=Chr(Random($min,$max,1))
    Next
    return $string
EndFunc

Edited April 24, 2008 by crashdemons

[flip209]

That would make one heck of a password generator.

[crashdemons]

That would make one heck of a password generator.

I use to generate/sychronize authentication keyfiles for a program I made for myself called "USBLock".

(Locks the computer for input, unlocking only when a specified USB Drive is attached. Once it is attached, the keyfile that was checked to be a match is generated and synchronized again - To prevent multiple 'keys' from being made)

[crashdemons]

I have a great idea with this. Create a: CreateSerial() Function like this.

Func CreateSerial($_CharactersInSerial=16, $_IncludeLetters=1, $_IncludeNumbers=1, $_ExtraCharacters="", $_Divide=1, $_DivideEvery_Characters=4)

EndFunc

Info: $_CharactersinSerial, how many characters will be in it. $_IncludeLetters, 1= yes, 0= no. $_IncludeNumbers, 1=yes, 0=no. $_ExtraCharacters, all the extra characters, stringsplit by a "." so if you wanted to add, &^ to it, it would look like this: ^.& . $_Divide, 1=yes, divide the serial with a - , 0=no dont. $_DivideEvery_Characters, this is how many characters you will put a - for.

That would be a cool function to make with that!

Done! (crosses arms and nods head)

Func _SerialGenerate($length=20, $seplength=4, $sepchar='-', $charset='ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789')
    $charset=StringSplit($charset,'')
    $sepi=1
    $serial=''
    For $i=1 To $length
        $serial&=$charset[Random(1,$charset[0],1)]
        If $sepi=$seplength And $i<$length Then
            $serial&=$sepchar
            $sepi=0
        EndIf
        $sepi+=1
    Next
    Return $serial
EndFunc

Edited April 25, 2008 by crashdemons

[flip209]

Nicely done....