diff options
author | exegete <nikitf-97@mail.ru> | 2020-10-17 22:52:35 +0300 |
---|---|---|
committer | exegete <nikitf-97@mail.ru> | 2020-10-17 22:52:35 +0300 |
commit | f463b9b0dcfb6ed349c29b73e9a7d9e35e9f5b8e (patch) | |
tree | c29ff8534e3552bfade9b70af0e2f398e4901d8f /keygen.sts | |
parent | ba1ce0c68a784947ac4d96675813f3b7c074895b (diff) | |
download | cryptrobber-f463b9b0dcfb6ed349c29b73e9a7d9e35e9f5b8e.tar cryptrobber-f463b9b0dcfb6ed349c29b73e9a7d9e35e9f5b8e.tar.xz cryptrobber-f463b9b0dcfb6ed349c29b73e9a7d9e35e9f5b8e.zip |
keygen
Diffstat (limited to 'keygen.sts')
-rw-r--r-- | keygen.sts | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/keygen.sts b/keygen.sts new file mode 100644 index 0000000..6067c0d --- /dev/null +++ b/keygen.sts @@ -0,0 +1,34 @@ +defword keygen + ; Increment + 0 + do + over over = until + dup 2 + get + dup ff < if + 1 + over 2 + set + drop + exit + fi + drop 0 over 2 + set + 1 + + od + drop + + ; Clean old stack data + dup + do + dup 0 = until + 1 get 2 set swap drop + 1 - + od + drop + + 1 + + 0 + do + over over = until + dup 2 get 1 set 0 2 set + 1 + + od + drop +exit |