Moved eel and eapml under the contrib folder.
This commit is contained in:
108
contrib/ise_library/text/encryption/eel/x509/object_identifier.e
Normal file
108
contrib/ise_library/text/encryption/eel/x509/object_identifier.e
Normal file
@@ -0,0 +1,108 @@
|
||||
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
|
||||
Reference in New Issue
Block a user