One-time pad: Difference between revisions
Content added Content deleted
(Tcl / part1: True random chars for one-time pad) |
m (→{{header|Tcl}}: </lang>) |
||
| Line 23: | Line 23: | ||
=={{header|Tcl}}== |
=={{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" |
<lang Tcl>puts "# True random chars for one-time pad" |
||
| Line 45: | Line 50: | ||
} |
} |
||
puts ":$rs." |
puts ":$rs." |
||
</lang> |
|||
{{out}} |
{{out}} |
||
| Line 51: | Line 57: | ||
: IDEVVW KCTMY KLKLID DSGKIV WHMOX LIEYWF MCIECW OUQVIV. |
: IDEVVW KCTMY KLKLID DSGKIV WHMOX LIEYWF MCIECW OUQVIV. |
||
</pre> |
</pre> |
||
===Part 2=== |
|||
... |
|||