One-time pad: Difference between revisions
Content added Content deleted
m (randStr) |
|||
| Line 48: | Line 48: | ||
proc randStr { sLen grp alfa } { |
proc randStr { sLen grp alfa } { |
||
set aLen [string length $alfa] |
set aLen [string length $alfa]; incr aLen -1 |
||
set rs "" |
set rs "" |
||
for {set i 0} {$i < $sLen} {incr i} { |
for {set i 0} {$i < $sLen} {incr i} { |
||
if { [expr {$i % $grp} ] == 0} { append rs " " } |
if { [expr {$i % $grp} ] == 0} { append rs " " } |
||
set r [randInt |
set r [randInt 0 $aLen] |
||
set char [string index $alfa $r] |
set char [string index $alfa $r] |
||
append rs $char |
append rs $char |
||
| ⚫ | |||
} |
} |
||
return $rs |
return $rs |
||
| Line 61: | Line 62: | ||
set alfa "ABCDEFGHIJKLMNOPQRSTUVWXYZ" |
set alfa "ABCDEFGHIJKLMNOPQRSTUVWXYZ" |
||
set len 48 |
set len 48 |
||
set lines 4 |
|||
for {set ln 0} {$ln < $lines} {incr ln} { |
|||
set line [randStr $len 6 $alfa] |
set line [randStr $len 6 $alfa] |
||
| ⚫ | |||
puts ":$line." |
|||
} |
|||
</lang> |
</lang> |
||
| Line 69: | Line 73: | ||
<pre> |
<pre> |
||
# True random chars for one-time pad |
# True random chars for one-time pad |
||
: AVSLCR PUNRMF LBNGVV XGTIAW DLWFCW IAKXWW MUSJOI OVIGOY. |
|||
: GBMQEH ZHFPFL HNYPDX RFUXWX WNPTDF SNFZL WKKWOF YNWSPX. |
|||
: RRNCIZ ZKLYTU FBXJOG GGDZUX UWNTSB LGBXNV SDBJLT GEPIOI. |
|||
: JSFRAS SYWMEP DMMRWN KFAYYP NDZTYJ SPIFRY CIBUIN XMLWHF. |
|||
: NLYBUL VJFZDH NWXKXF VXHMZQ HNFPMK ZMJDIE VLDPWU JJDMBH. |
|||
: EADURX JSHGPH NXELJX VRBZKF AWHYMZ ZXNFET FNQLAZ XYLFSQ. |
|||
: MIIQRV TBFHTY EWRQGE SYCXRJ FAOBIS PPGQOT MCTHJQ YYKCTN. |
|||
: GAFVEP JENXPH KBPEGD SDHEZQ NCSTTQ SOGSYC MIMACU ZZVTJW. |
|||
: OJSCYX WGYSQL UMRLSB HCNIQJ KYQXAB TDKTTE ZREBLK MOVDXD. |
|||
: FYIENC SMTQCU VCFHLB MVPLXM DXHQXR QLTUHM LSDSDY FJAQNJ. |
|||
: UKXBHP IGHQTB JFUBEY BFTARM CDJHDK FRSPYR PDGWLJ GOFFTH. |
|||
: GVZJNR QNQVRJ NATFEI ONXLHE UVOVXA EIVCGD STXRXP MRTWVB. |
|||
: HDWXZM PHEMDU YQOKLH PQNRXP WPQPIK LZNRSB PDHPMO HDMMTI. |
|||
</pre> |
</pre> |
||