Rebol [
    Title: "OTPgen-It!" 
    Version: 1.0.0 
    Date: 18-Aug-2007/21:51:28+2:00 
    Name: "OTPgen-It!" 
    File: %OTPgenIt.r 
    Author: "Dirk Weyand" 
    Rights: "TGD-Consulting" 
    Home: http://www.TGD-Consulting.DE/Download.html 
    Needs: 'View 
    Purpose: "An OTP generator." 
    Comment: {
TGD-Consulting's OTPgen-It! is a
simple One-Time-Pad generator.

It's powered by REBOL/View. 

Use this tool to get cryptographically
secure pseudo-random number generated
keys of any length for the usage with
Cipher-It! & Stegano-It! or any other
cipher tool you most commonly use.

Set your prefered key length and click
on the "OTP-Key"-button to store the
OTP-key to local filesystem & clipboard.
 
Try OTPgen-It! and reap the benefits
of most secure and CSPRNG keys.} 
    Language: 'en 
    History: [
        {0.0.1  ^-12-Aug-2007 ^-"initial release"^/} 
        {0.1.0  ^-12-Aug-2007 ^-"added clipboard-support"^/} 
        {0.2.0  ^-13-Aug-2007 ^-"added OTP-key scrolling"^/} 
        {0.2.1  ^-14-Aug-2007 ^-"fixed arrow feel"^/} 
        {0.3.0  ^-15-Aug-2007 ^-"removed debug output"^/} 
        {0.3.1  ^-16-Aug-2007 ^-"fixed hot-key handling"^/} 
        {0.4.0  ^-17-Aug-2007 ^-"added slider"^/} 
        {1.0.0  ^-18-Aug-2007 ^-"first public-release"^/}
    ] 
    License: {(C) TGD-Consulting

End User License Agreement

IMPORTANT. READ CAREFULLY.

This Lisense Agreement (AGREEMENT) is a legal contract between you and TGD-Consulting (TGD) for the limited use of this TGD software product (SOFTWARE), which includes computer software, and, as applicable, associated media, printed materials, and electronic documentation.

This SOFTWARE is licensed, not sold, to you. TGD retains all right, title and interest in and to the SOFTWARE including, without limitation, all intellectual property rights relating to or embodied in the SOFTWARE.

TGD grants you an non-exclusice license to use the SOFTWARE for personal use only. Commercial use requires seperate licensing from TGD. This AGREEMENT is not assignable or transferable without prior written approval of TGD.

This SOFTWARE is DONATIONWARE. TGD grants you an one week evaluation period to use the SOFTWARE free of any charge. After that period of time you have to make a donation to TGD, otherwise you are not allowed to use the SOFTWARE any longer.

The copyright, trademark, and other proprietary rights notices contained in the SOFTWARE may not be removed, altered, or added to in any way. You may not reverse engineer, decompress, decompile, or disassemble the SOFTWARE. You may not redistribute the SOFTWARE without prior written approval of TGD.

The SOFTWARE key that unlocks additional features and components may not be distributed, published, or transferred. Only the registered licensee of the SOFTWARE key may enable or use the additional features and components of this SOFTWARE.

THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, WITHOUT ANY EXPRESS OR IMPLIED WARRANTY OF ANY KIND. IN NO EVENT WILL TGD OR THE AUTHOR OF THE SOFTWARE BE HELD LIABLE FOR ANY DAMAGES ARISING FROM THE USE OF THIS SOFTWARE.

You agree to use the SOFTWARE in compliance with all applicable laws and regulations including all laws governing the export or re-export of the SOFTWARE. You agree to indemnify TGD from and against your violation of any such laws or regulations.

This AGREEMENT contains the entire agreement between the parties with respect to the license of the SOFTWARE. This AGREEMENT supercedes any prior license agreement of the SOFTWARE.

By installing or using the SOFTWARE, you are consenting to be bound by and are becoming a party to this AGREEMENT. IF YOU DO NOT AGREE TO ALL OF THE TERMS OF THIS AGREEMENT, DO NOT INSTALL OR USE THE SOFTWARE.}
]

do load decompress 64#{
eJztPGtz20aS3/krRri6shQFfOlpVhLFsX2bVLyRK6dkL8VDrkBiKCICASwAWuT6
/G/3h2x3zwMzwICkHbv2snVKLJHATE9PT7+7gV68YGlWsTBJ2PRNmKz5DXvyJuaP
N4x+B2zaY/CzTqs4kZ/xJy/itGLer69+Hdzevb7nqf9ddcQK/td1XPCS/fjym9tX
g58BAjs6Ovp14DE98zGMKzbsjy6YC5g1FBFLsxRQoknTcltWfDXIs6IqB3GarwWg
gCYEYh4gUPXgM2I/YYt1OmdRxpY8jFiclryo2CJOI7bKkohVy7iI2ASHMm+Q8keP
vR08LJj3Ped5yRacJyxbsEeYkD2yRTjnHq3xToMseJ7AZQGu5PMs1fDwt49zBghn
IqH4+AWWkWSHxabNgXKXeHlgTAresd4D306IIvTRT3h6Xy0nbDS+Zr1VnPoPifwy
i6sJq4o1DFyFcCNbLEpeqbmze3+eJVkB9AmLGYc55+O+/Ed3+WLB5zB8nq3yrORs
el+EUczhkIYbf8SOadqJ/Ms+g1O4PGH3RRyxq+Fwc84unw43YxirhrIBG5+wWbIu
6l9wRlyhEUYR0wP1p0vWi/hsfY9oJoBFL4nnfgFkn7B1stBX51m+jcKKI7r5lo53
UIXArfI8JD3LeRHn1eBbmM+LwbdxWWXFFpjOB4abJzwsBGMoaMxjngm7yhh+OKoH
9HhcLXkB++bwtbgB4j4OtghIDRHfpjWQ37I4ZYusWDWHeICFmh4E5pT2aCBcEQJb
wJY4j2haXvB5jLSYValfVtuEl8BH8Df+G5dCC3cmbLauqixl13A6lzDRfyzCHFZI
UbZgKDDCJaMjKQejiTq7Uxh/EjAe3XM9DE5W8ciTGX8DcmIyFJzdWSAHsOmKFzAT
OQjGMH+0GbLziz79D8wKAiz+BSAh1dJQMXGKTFx/xx9EYsJW4QOX+ATMuo97GShU
4qKsjCulPRQkkJRevAoBEAqjQDhoLEnLankABpsu4qqxrIRHy7BpmOccOEnuv+DR
GjTE9AndxQOhD4EbBKEk0dWMJeT8Rh4NG7lQrNEstdwOItBjbIoIM736saCLgHXi
wEL9NKZJaVLzgtY8+0rQojaZmXQrt6c2I6kkUe8mPuxqaqqhEbu8FKzzdMzOz/vX
8OlsHDRVlXNQA9Oe/UliXq7gLHwhNlXKRk83o6fiTlg8imtjkKOh5nMkV1gUYCnG
oErlP1CN16zIKlQY46shO1gYyPjUxMje8EKasylwCeNNSuUZyMRiIJE5Y3k8f2DT
8cVFfwS7vrowkQoAgDW5XKJ9YzsBGvPdBAOygPmB3/prIb4eTKCnh9MHTbzUv4ts
nUY3rFwvFvFmIvR/EgKLOxX/f8QJ6Pa+J8m3gK9puJLGY5CHxa555XpWFSHsRUlk
91A9gtDqBc71uufj/kDeFvG9j1OU6ZCzYQPiJpioFS/LELWiYA5axXsRl+CYbOGc
5W3pfkjnqqxATcGvOL0/AmOczR+OWDb7DU7pKGDen+UUNHkCjpw2EG4E24AQ52Fc
4OBbcUm7SWqoJeTTap0nXC0Fs34quVIlakIVr3gGHh3+lZdgdJgw3Af4lOukYsso
Yavyns1HbD5m8zPg2Y2PFzd+tQG8/FwTGmZNmOQQUqpifze0dyAl/nlSbXOOnwb0
4Uv2BN0wyc5IH1PI5mARQSPzFJaG0ztTtg7NYy05gMwEHIcf2C27Yy8Zfq4NmrYQ
Ei8ih1brU6TjVG0tkJfRGRhN1BdDq9ow6ERtma5A/KTxwbv2TVxKUjNw3BZzyfdI
OVCWfrWGwX0ezpcs1bBYg2jG1ukQpKzew/IpGQTBhPJKIGggXSRxqUtVNxaBtScd
+/A8Y5b+CP4jsAgy3HQ5EsKIe0Dyg/EAwq7iKEqUmyFdCumwsi4vyDwfYswJ2Ajm
g+kBNpH+yAAnt46Rr/Jqe2PvYGrgGM6LrCxZhecww2CDMCZZGEtUzcXfc6q4KTQS
YACC1QZJIjapVaC1Hdhgc0fae1GyieSdgoiSLw0BH7/nxRE7Frd9OQADhUAOGxqr
CwWgPLDGIaO/y2rX1+aBWTh/iIosV2ZIhzf2MEkl2wRChAeYNOCB4Re4Qgg2zyLO
/s379c+ewUIW/5jeNfCCkGMjsjqejyCQArYDLgE3G/autkrh2zKOuJ9n+Trfdafg
1bpIbTx3nrdwtUW8iTFh4BIR6bMZrDmVITSFV1InTzt4p72GyU2SOQUM04tQexSR
qsFP0vYACqgdpCnSVgONBJgl/BroMeZNccdYAi0s2N0MnLwyAVoWPm5EmdFqwcqF
skDVKieRB59Qe6hEHExNVAv0GkJQ6hsdF4jjxt8EFMYon7I0JKiUwjOGCBo+o6Yx
lAMsCpEOWKoh+ECVHOoz+We4ubaoI2ENNuwr/dkUFInlQOx4AH4SjIKQMoS1hSTj
JpsyTO66ykfwoowhePyKjfpn/SFL4vThpqmGS1wm5YORxAZjtQ0bDS2Rj+I3QG8k
BqBL91VQgpNOQAdUajed+l4t9LGX6TUXaxBuaxJOhkSfgnLbfVvaqi2pLEdjT9vD
SPcx17GiJ7hdUQIDgjBxBWMMIVeBKXurLMMclhC7aMOk5GH0r+QvUluIJgq1MaFV
c33N86ZUgIqNq/gNSCkArqnwuEQPfUoeCdiLEq2UOtWRNSlwEA+HCckc6VmnLLK1
b7QxBB0Wb9xuKx6x7x2MaCJdo1ijnfL78AC0gWpDPct3oY3JuN+BsdKOdIBTW3wm
qMzM039cknkQh59TIsZmAJ7qw5dnKuC2/CdgzakTYeIvAe04BaE9VryBq001Gwf0
mbJFeCE4OWnubz98yZvvuYyQL0O8NHWbCJiWmfgAzbNKitYOlzrdYf/pFaxXZ03R
b2gz1mEU/ITE+9R0Ezs2uC4EcjSYLtTGXsBqmfnwADMfSjMPpHbsJTT2Ejb20qG0
9oo/yqrUez7TC2BMqhDWhsuE29IPkamtQLnarnHLBJLuVeNbC42FLuJdmLVTT+Gh
iq9Wcq1VDf3n2h5ptQN2Bmodhzo2NTwIcWQzkDgOjrIfYr5gBeFAHYzJ9IszYtkT
qZgRyixMU2AVSgrZOaSlyCH9QFkiBrRnL9lP7BV75rHz0eX7uCeYOxyfDzF/CN+2
PElgw6fgKsBXVTto+fjKw67jkTLHApkk3kIEkSQt58PhZnQxZKoahVWD+gulVXYE
3+PNuA6+YxF9d6GzALOFHE62S+Cg+PEzSiXDri43XZhgScqFCGYr2kaRoIsV5UpN
+4c6Retqqvtpbd1S1nZoh/HoaAO+mnkR41Hv2fPnL1/feerDyxeejk6nFJ4Gdpln
bNdzgJiBzkppgzJdp1TKbLFzgEUdyhHqEOvtjzgD5lNkm3CQ/pc/vXrGZphE4gyY
H/h3zvOKxmhIWB1+x4aTIfx/aYa0nwadz/fh042OPoDxxWVNeOBR73mYzrGmKz9E
NumnB5FebG2AOg4L2K4rtCZArqGvc7IsPuUGTIdKeCOUJQDv2+BIF5Qoe0wFHPzU
DWkvoGVGsXdrOvpwhyIj3D0QkPrUd8CzwZHqNWr8sgjs0o6ShZh3/PzEE1oUy711
aVdIrkgIOBL1DTC99w36CGEV71Hcb6uWnmOge1jb1sguAqqRum+qYAqkYq4THqiI
GGjRVEddxdw0o8VcNRRoAwjadr4Uc0QC3enjwca5i6lE9V7MlsmcrYM9GtCEK9XB
ogcDQ55DLpPpaNy7KBz52FZBpKjpMaDRrZQ2/qAm5xWWE2j4E3CH8MxBplxAOmqt
SFkiRuvuzorqPKH8ISmHjhihgHOl1Q3fZDUB29aDm+DHllV50yosSZ7x7KhLhxu8
KDKwW1WxxW2yJAMZ7QRRt2kETDUXKZ5EqjaucVdY8td1mNwwc9Z8yecP5XpFB0Od
N4SFFLwsxzMopai6XKRvDRdpugZ94ecFX5QDwt6FCv6shEfRXYAAVb7DidW3hZYy
4jeikcpCpOBiOVXNC1RLp+xKsexKAd/jgtAYsiQPC5mZFqzZUg0yBjGOt5UIlhxj
1CUbRKC9ZDlPByj1ZceRWFOkd4/wVSGXJ1zXFwAi83DzEw+NIsKnWhR8arV+ZBNj
Uvue2QNmNPzAPRVEgqdWcrpA2Wc8DAtMwVfZG94GL4HidZzsENPWFNoJKi13/gTY
ZUQBK+nYQcQXIebaV5Leo9rjET6qajLx2DN2R5XHH+D3d+wW/mINUtbypt2C4MUl
e3H7w7O7725/+MuzH1+iZ+YFeqL3GigGG4myFDmxyjy3UP0Y3y+rElbEOGo+z4oI
nSLhmKOnpUymZru+B86VCC5MAow/dIfeL9m66EBObNRUJbBp5DzQQ3HUsWPgjAr0
+p79VhlZghC4s/ZQUUJa++spPiYHn/WWWUVWB+OpnEc3ViGfTI8q1M+XYXEUaN/A
1MxKdIzWwQUacSHr5uV5CMFDYAt3F4glbC7BDUKYio0RO4cYmTr101p3IkXI6rNw
LqWzCyCifLNjzd0DBLBOpBoDJ93LtLR/TT8h/K29iiI2HmBvBz1EYb01t56yrC1C
81jrGoXSI+YB1C6FyEmAifSF5rZbRV7BjVKGSnh3XYTkxAjmlepoK5Q9/j6SNXts
47jbOUv6kautLN2ttrMYfz8kPSu9ZjsVVORzzEHJDKNBFBdgHaR9AakTKAkEG2yt
TKWCNTWXsdpiAQ71s+ixge1IaUiIjAVGNNqiH3Qfz4+sIgqN7gL0kNhwzHZeGwjs
3HDfAAbakqlxnKY9RpOxXFcYydmnjFlLOuS8yO6LcLXqe+YhEMzHIq64Zd2V0k3C
rY8EUw1AoOTIrTcxRdK4rtc7U7cVTYwQ11Ro1PML4WSYoJ4S/q3ohkqxgWcCNgiO
XqOOPeccjP7Uey5G4Oq4U4xHKVzIFuzuTy98uI11X2BddgPR3jdF9og+qorfLd/T
PGEa5/bKvsWQtz4csACkykFRxw36vyz+xtf3FXse57BH/xvs2vGf4zjE53u+VULz
3c8oAkXMSxQwjG1ikKGf+UOVFWoMeo7r1YxTA9arv6ewxwhIYkCRohez+WyOJ6DP
Gr7LiBYWEiQE75P5ul9NXaZWcxqIIOiSdNXqPHJsCZzRGiBXNZvqtNO+4tUyi0gx
PllFF4BjDWIC32pUEG9D2cqklwESVkkE3VP/9u61xRm0vHUgLRREe5PRPk34qL4q
lHRZmDBY+DowZVViJgUnifNZFhbRZDCo9T4qcF9/EyP/fbUFdPsy80F+HpgYELDk
oySK3yzHtRfzn9SKjLAdTpuVLA7XQJUC/Ww7CduRVKWOK6ykgBnA4B/QLnS3IVCQ
s34f2HF8MdxcDpsg675zmdEwU69BR7rVzII3M6CYiMOteuKPWLtmznUKdnNttPcg
wUHyQEiTsFyKSSiJNK8Vg7qCIvxZRoXMtCi6VmEaAQsMBMWn4Mb8RkkWtwNu0t95
52eRRWo2iyP2cgh70f8L38KqX9s6rg98C0dEOSzEszNwlVo4S5Otooq9mO2HgwP+
kv0I/93Cv4mHmq3ApLycKfaNnjQoVpQ3wRf0PBDo/+oxKx6w+3Cd98nXjj4SXjrz
C/jdsu8hSPgFU3oYDEicliEIErZvlpjn9dB5CdMNO2e/GIyLSIkmT5UEts9bZ4TZ
TlxxwR3JgD84NzLv2GPNvIl34v0/l/4LcCn9wTrH9birwsEdJY6p4mnXIvtumxbQ
TF9b1/6JWWuycs58NbVP781T03xXhro9/Y+ZmX6P/PNSPHjXdHSwq/HsQhSEf4fr
46iRe+pRP1KmZ8Prve5Ns+Q63PgXbGlUrsdPzzfXOwvXqj7+kQrYiIV/vRkCFmYl
e/lJK9kEXayofK+K6tc6M7W/Eqnrfm1ghxchVbFvDwxX/dEsPe6ZLvJX7tmuyUCM
s/H15qx+UIx5/+VUjLXGk8zfcZXEwyg8ukNOyc3vU3Nc7ik32kOcAxyt0iZNtFyb
6tu89M+uObrVd/tUG4Da5UanHu+G8y+vz8MZaHF/lm2cGv0ctNzVxe/R6EqLP8N1
lA5vxZPdapOUN/J1gvM24+FFs/2iqYVZSzhq9kO8SayMxyuMOLbUT1xNh334jx0b
uvf8xHSQ9baPra2ctB4btp55NQdfXpw0JxvwsyK+B24Zn9WXmo+4gAYbn2E7kb6S
h/4yGk3YcgyOGsg5yRGFCt2RgrnFcf/qpOswNPwxwdcJChlUTDpyEyoCbq/jpntr
WOsItC8qy6L44gdVorRKpFJ/YXHSr+IqabZjEUeY3W10rtmGch5nrQfmm5mOU3Zx
0Xx+rAV/DvuK8eFn4rfW5uSzRsSHyufA1UEmCqzTnQ2Z6FoV7ID9ZyPzsSqhmnl6
bzxBSnuX+kVIe8cDfWLIl+wJPbLp1lvU30YdcAqD5hV6mGXkVljYCKT680WJtjVb
tZo224Al4cR2bAyGm6thh4YUD0LjQ6CdCtHNAdefjANaHEZdgBcdDEGc4GGasYLw
cLb1dokjKTIbBOgUpxg+o+RgLTs6NFMlFG0HVI3glI1R346HTjlT83cK1/6dai3y
PMu3BRbrjC4u73Ov06M2T85BhqsOMshybzMH0Ejn4I8qV+zgnP3bUyKtt/lTjjuL
sOBdZX5M2+zsF3FtXuBgxvpoBZ4+3Ug7YTizN5Yze4O+7IdozA+aVHvYQwdm+9xs
zYud19Fz2QjBtB5GPUbfwlfPiQlzVTO0dVU+iGdcG8mRJyfifTc9a75RZaSeJFq+
CVQupcD2LLhw/huv7lUxJgSNke61WtNH9XTxdJa4KmFjzU0oURmPvO31fKb/6/Xe
6XZLc9wOf+F5thKdRq5pmse/+uortrOBg33xxReeLia6ob3t/ff/Dnpfs697vv7J
bm/94/858W9vs/oi7OlLdsf+xF6wL+FLXGKFdA1xX9bLC45ZONqojLbEsyCqDccq
eTn3cgfMzcpsUT2GBcduk4LfA7tzGEzlGFUwVV1n9GYKdZFyfw8lEhQDKkwthqIB
B2So79WdIHvxeNvCw2z16fd63y0wA/oE7q1LXKcyx/comquXVgVWUTDqwTfJn3gR
zBm+ngviUnzwuKzKXrZApMKqBRfWvcs0RUQKliqO2eLdrvP/3HxFmKTVW9mm06z0
hlUPsVpk2IBTp37DKILDLdkEThy0dzsr/c7sJm4T1sM3lRnC4AkJ8qkdwKhCij6z
rMrxjphqnph1g7YuXtvifRNXWKLeVhx0mxolnuDDwqSuLKp7PSnC9AYw5/oPiXt5
dV11q6hCp70EtWz0VC3TsQTEvz4MbK9h3aAWPDEB4x/1HHndEkSNelURr6grgHo7
qU1L9Pjofj3vrXqRSRIRdEEalTp0PKoosFDjcTPVYmaV6N+EiVU7L+ZavigPYZiJ
Yf8CFLejUIwwsEIMf1XRes4+k4d6jS9ukmelGiq60qDoNn2kNKgOgmUkjRlQ480l
dZxHHodTb5NVPihReqkorTOlYwg4huaC7dqv451hVtB7/rR/cda/uMRHj/qj4WV/
hDHM+0bx3muSePkKNOrXA3KgAxWm7PbuNRXpKb+wLwkrmUinYRWLf6pEbIN5g1bx
20P0v+fg7Gv/XLZEBI4rPTOqIB+UnCx8fVPtViV8UQWNtqTFjB78Ey8aNHWF3+Bw
2fSQ7AbQbq4Y1xMJSaF5MF/GgTUv6W1bBie5XrThYKmu99Z18ElTEU7tHjWpocBd
DWelpRUo0MQDa8bLJg2M/SM5AJor1ybJIN10fJNWfTIU5Rx8NKcfdDQGgM9ap0Jy
MB5eAC3fLM/NA/FeSZJ5deSC2Ha+EcQAiMIijdmkBZcMYeO8BTCh+OUjBjXZCQr1
lOvn62ziaitKV+w29VmchsXWn4UlsIx8jxpIc8CsSab67zxui5CNJ1/VCzslzeF+
Z5W5A+RgD8iBBbLJXa7GRNFvLM18qyRMh9Q8m+Dgw3bU1UZDlqQPPpZupMVA8yQP
2lhFrSAe1Tqen0AUMLVe1bkjXHfFwVMVn1sf91W5moUpUVTwR20V7S5xuecfNH1P
fe1QCDvKaweA2FdiOwDE7jLbAQBkKkJq5Wb3PMPbMudACQf1miD0YHT8z46bHa2n
bHx9BVbwVL7o8ZT5Z2hvTiTL0dQuNsOwxEpaXB+YtDAlkPpuwfTo2PFFRo+pQuiU
JFv2GKbU2Yr9sE00xO4EXVT7b7vr6NOtoTc+vHLnkT7kPEhz299kxuR9T+YjLz/G
hsbDVzfeVHlIrVZFNDurtdagg+u1DeGqoxDrkVHz2v/Nqq1bSTSAHVi53Q3rj1m9
bSSixXOienYbuOTOj60crMyv5qvgfYrLmhnVu6qUs1Af4Gl9Tb9iZAzs/z4unXKb
xA18gbq+VTuLkkrGcyOt5yIm5l10LMznLdX+xavp8XFMdal+ZuMfcPxFho5fAAA=
}