Skip to content
Snippets Groups Projects
Commit 2a23c5e8 authored by Niels Möller's avatar Niels Möller
Browse files

Use module system.

Rev: src/modules/_Crypto/test_crypto.pike:1.3
parent 823ba5e7
No related branches found
No related tags found
No related merge requests found
......@@ -2,11 +2,12 @@
/* test_crypto.pike */
inherit "StdCrypt";
import Crypto;
#define K(a) hex_to_string(a)
#define H(a) string_to_hex(a)
int test_des()
{
string *keys = ({ K("0101010101010180"),
......@@ -41,7 +42,7 @@ int test_des()
{
string gibberish;
write(sprintf("Testing key %d\n", i));
c = DES()->set_encrypt_key(keys[i]);
c = des()->set_encrypt_key(keys[i]);
gibberish = c->crypt_block(texts[i]);
if (gibberish != cipher[i])
{
......@@ -71,7 +72,7 @@ int test_idea()
object c;
write("IDEA...\n");
c = IDEA()->set_encrypt_key(key);
c = idea()->set_encrypt_key(key);
gibberish = c->crypt_block(msg);
if (gibberish != cipher)
{
......@@ -196,7 +197,7 @@ int test_cbc()
write("CBC...\n");
// c = Crypto(CBC(IDEA)->set_encrypt_key(key)->set_iv(iv)); /* correct */
c = Crypto(CBC(IDEA)->set_iv(iv)->set_encrypt_key(key)); /* bad */
c = crypto(cbc(idea)->set_iv(iv)->set_encrypt_key(key)); /* bad */
gibberish = c->crypt(msg) + c->pad();
write("\"" + gibberish[..50] + "\"\n");
write("\"" + H(gibberish) + "\"\n");
......@@ -205,7 +206,7 @@ int test_cbc()
write("Encryption failed\n");
err++;
}
c = Crypto(CBC(IDEA)->set_decrypt_key(key)->set_iv(iv));
c = crypto(cbc(idea)->set_decrypt_key(key)->set_iv(iv));
recovered = c->unpad(c->crypt(gibberish));
write("\"" + recovered[..50] + "...\"\n");
if (recovered != msg)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment