109 lines
1.6 KiB
Plaintext
109 lines
1.6 KiB
Plaintext
note
|
|
description: "ASN.1 OIDs"
|
|
author: "Colin LeMahieu"
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
quote:
|
|
"[
|
|
Virtually all reasonable laws are obeyed, not because they are the law, but because reasonable people would do that anyway.
|
|
If you obey a law simply because it is the law, that's a pretty likely sign that it shouldn't be a law. - Unknown
|
|
]"
|
|
|
|
class
|
|
OBJECT_IDENTIFIER
|
|
|
|
inherit
|
|
ANY
|
|
redefine
|
|
is_equal
|
|
end
|
|
|
|
create
|
|
make_md2,
|
|
make_md5,
|
|
make_id_sha1,
|
|
make_md2_with_rsa_encryption,
|
|
make_md5_with_rsa_encryption,
|
|
make_sha_1_with_rsa_encryption,
|
|
make_id_dsa_with_sha1,
|
|
make_ecdsa_with_sha1,
|
|
make_pkcs_1
|
|
|
|
feature
|
|
make_md2
|
|
do
|
|
id := "1.2.840.113549.2.2"
|
|
end
|
|
|
|
make_md5
|
|
do
|
|
id := "1.2.840.113549.2.5"
|
|
end
|
|
|
|
make_id_sha1
|
|
do
|
|
id := "1.3.14.3.2.26"
|
|
end
|
|
|
|
make_md2_with_rsa_encryption
|
|
do
|
|
id := "1.2.840.113549.1.1.2"
|
|
end
|
|
|
|
make_md5_with_rsa_encryption
|
|
do
|
|
id := "1.2.840.113549.1.1.4"
|
|
end
|
|
|
|
make_sha_1_with_rsa_encryption
|
|
do
|
|
id := "1.2.840.113549.1.1.5"
|
|
end
|
|
|
|
make_id_dsa_with_sha1
|
|
do
|
|
id := "1.2.840.10040.4.3"
|
|
end
|
|
|
|
make_ecdsa_with_sha1
|
|
do
|
|
id := "1.2.840.10045.4.1"
|
|
end
|
|
|
|
make_pkcs_1
|
|
do
|
|
id := "1.2.840.113549.1"
|
|
end
|
|
|
|
make_sha_224_with_rsa_encryption
|
|
do
|
|
id := "1.2.840.113549.1.14"
|
|
end
|
|
|
|
make_sha_256_with_rsa_encryption
|
|
do
|
|
id := "1.2.840.113549.1.11"
|
|
end
|
|
|
|
make_sha_384_with_rsa_encryption
|
|
do
|
|
id := "1.2.840.113549.1.12"
|
|
end
|
|
|
|
make_sha_512_with_rsa_encryption
|
|
do
|
|
id := "1.2.840.113549.1.13"
|
|
end
|
|
|
|
feature
|
|
is_equal (other: like Current): BOOLEAN
|
|
do
|
|
result := id ~ other.id
|
|
ensure then
|
|
id ~ other.id
|
|
end
|
|
|
|
feature
|
|
id: STRING
|
|
end
|