Anonymous user
One-time pad: Difference between revisions
m
→{{header|Tcl}}: </lang>
(Tcl / part1: True random chars for one-time pad) |
m (→{{header|Tcl}}: </lang>) |
||
Line 23:
=={{header|Tcl}}==
===Part 1===
Get true random numbers, and turn them into strings.
From [http://wiki.tcl.tk/29163 Tcl'ers wiki] "Cryptographically secure random numbers using /dev/urandom"
<lang Tcl>puts "# True random chars for one-time pad"
Line 45 ⟶ 50:
}
puts ":$rs."
</lang>
{{out}}
Line 51 ⟶ 57:
: IDEVVW KCTMY KLKLID DSGKIV WHMOX LIEYWF MCIECW OUQVIV.
</pre>
===Part 2===
...
| |||