egghelp/eggheads community

random string

2020-06-15T10:25:22-04:00

oh thats even better tnx CrazyCat

Statistics: Posted by simo — Mon Jun 15, 2020 10:25 am

random string

2020-06-15T09:53:08-04:00

Just a short modification:

Code:

proc randomString { {length 8} {iter 1} } {

This will allow to:
- simply call randomString => will return 1 random string of 8 chars
- call randomString X (X is integer)=> will return 1 random string of X chars
- call randomString X Y (X and Y are integer)=> will return Y random strings of X chars

Statistics: Posted by CrazyCat — Mon Jun 15, 2020 9:53 am

random string

2020-06-15T08:56:56-04:00

excellent tnx CrazyCat that works exactly as intented

Statistics: Posted by simo — Mon Jun 15, 2020 8:56 am

random string

2020-06-14T18:46:21-04:00

Add an argument to the proc:

Code:

# usage : randomString  proc randomString { length iter } {   set chars "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"   set range [string length $chars]   set rlist {}   for {set j 0 } {$j < $iter} {incr j} {      set txt ""      for {set i 0} {$i < $length} {incr i} {         set pos [expr {int(rand()*$range)}]         append txt [string index $chars $pos]      }      lappend rlist $txt   }   return $rlist}

Statistics: Posted by CrazyCat — Sun Jun 14, 2020 6:46 pm

random string

2020-06-14T15:05:01-04:00

basically was wondering if this proc could be changed to output 4 different strings of 8

like this:

$::network.randomstingof8.randomstingof8.randomstingof8.IP

Statistics: Posted by simo — Sun Jun 14, 2020 3:05 pm

random string

2020-06-14T08:11:41-04:00

Code:

proc randomRangeString {length {chars "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"}} {    set range [expr {[string length $chars]-1}]    set txt ""    for {set i 0} {$i < $length} {incr i} {       set pos [expr {int(rand()*$range)}]       append txt [string range $chars $pos $pos]    }    return $txt}

when using this random string proc is there a way to output 3 different results in this because atm it seems to produce 3 same outputs:

set newPassX [randomRangeString 8]

:$::network-$newPassX.$newPassX.$newPassX.IP

Statistics: Posted by simo — Sun Jun 14, 2020 8:11 am