Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
OpenHarmony
Third Party Openssl
提交
bbdb5438
T
Third Party Openssl
项目概览
OpenHarmony
/
Third Party Openssl
大约 1 年 前同步成功
通知
9
Star
18
Fork
1
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
T
Third Party Openssl
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
bbdb5438
编写于
7月 12, 1999
作者:
D
Dr. Stephen Henson
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
More NASM support code it still doesn't work but it doesn't work less than it
didn't work before :-)
上级
50596582
变更
8
隐藏空白更改
内联
并排
Showing
8 changed file
with
113 addition
and
13 deletion
+113
-13
crypto/des/asm/crypt586.pl
crypto/des/asm/crypt586.pl
+1
-1
crypto/des/asm/desboth.pl
crypto/des/asm/desboth.pl
+3
-3
crypto/perlasm/x86ms.pl
crypto/perlasm/x86ms.pl
+10
-0
crypto/perlasm/x86nasm.pl
crypto/perlasm/x86nasm.pl
+22
-5
crypto/perlasm/x86unix.pl
crypto/perlasm/x86unix.pl
+10
-0
ms/x86asm.bat
ms/x86asm.bat
+57
-0
util/mk1mf.pl
util/mk1mf.pl
+2
-0
util/pl/VC-32.pl
util/pl/VC-32.pl
+8
-4
未找到文件。
crypto/des/asm/crypt586.pl
浏览文件 @
bbdb5438
...
...
@@ -32,7 +32,7 @@ sub fcrypt_body
&xor
(
$R
,
$R
);
&mov
(
$ks
,
&wparam
(
1
));
&push
(
25
);
# add a variable
&push
(
&DWC
(
25
)
);
# add a variable
&set_label
("
start
");
for
(
$i
=
0
;
$i
<
16
;
$i
+=
2
)
...
...
crypto/des/asm/desboth.pl
浏览文件 @
bbdb5438
...
...
@@ -44,15 +44,15 @@ sub des_encrypt3
&mov
("
edi
",
&wparam
(
2
));
&mov
("
eax
",
&wparam
(
3
));
}
&mov
(
&swtmp
(
2
),
(
(
$enc
)?"
1
":"
0
"
));
&mov
(
&swtmp
(
2
),
(
DWC
((
$enc
)?"
1
":"
0
")
));
&mov
(
&swtmp
(
1
),
"
eax
");
&mov
(
&swtmp
(
0
),
"
ebx
");
&call
("
des_encrypt2
");
&mov
(
&swtmp
(
2
),
(
(
$enc
)?"
0
":"
1
"
));
&mov
(
&swtmp
(
2
),
(
DWC
((
$enc
)?"
0
":"
1
")
));
&mov
(
&swtmp
(
1
),
"
edi
");
&mov
(
&swtmp
(
0
),
"
ebx
");
&call
("
des_encrypt2
");
&mov
(
&swtmp
(
2
),
(
(
$enc
)?"
1
":"
0
"
));
&mov
(
&swtmp
(
2
),
(
DWC
((
$enc
)?"
1
":"
0
")
));
&mov
(
&swtmp
(
1
),
"
esi
");
&mov
(
&swtmp
(
0
),
"
ebx
");
&call
("
des_encrypt2
");
...
...
crypto/perlasm/x86ms.pl
浏览文件 @
bbdb5438
...
...
@@ -51,6 +51,16 @@ sub main'DWP
&get_mem
("
DWORD
",
@
_
);
}
sub
main
'
BC
{
return
@_
;
}
sub
main
'
DWC
{
return
@_
;
}
sub
main
'
stack_push
{
local
(
$num
)
=
@_
;
...
...
crypto/perlasm/x86nasm.pl
浏览文件 @
bbdb5438
...
...
@@ -27,7 +27,14 @@ $label="L000";
sub
main
'asm_init_output {
@out
=
();
}
sub
main
'asm_get_output {
return
(
@out
);
}
sub
main
'get_labels {
return
(
@labels
);
}
sub
main
'external_label {
push
(
@labels
,
@
_
);
push
(
@out
,
"
EXTERN
\t
$_
[0]
");
}
sub
main
'
external_label
{
push
(
@labels
,
@
_
);
foreach
(
@
_
)
{
push
(
@out
,
"
extern
\t
_
$_
\n
");
}
}
sub
main
'
LB
{
...
...
@@ -51,6 +58,16 @@ sub main'DWP
&get_mem
("
DWORD
",
@
_
);
}
sub
main
'
BC
{
return
"
BYTE
@_
";
}
sub
main
'
DWC
{
return
"
DWORD
@_
";
}
sub
main
'
stack_push
{
my
(
$num
)
=
@_
;
...
...
@@ -69,7 +86,7 @@ sub get_mem
{
my($size,$addr,$reg1,$reg2,$idx)=@_;
my($t,$post);
my($ret)="[
$size
";
my($ret)="[";
$addr =~ s/^\s+//;
if ($addr =~ /^(.+)\+(.+)$/)
{
...
...
@@ -192,7 +209,7 @@ sub using486
sub
main
'
file
{
push
(
@out
,
"
segment .text
");
push
(
@out
,
"
segment .text
\n
");
}
sub
main
'
function_begin
...
...
@@ -201,7 +218,7 @@ sub main'function_begin
push
(
@labels
,
$func
);
my
(
$tmp
)
=
<<"EOF";
GLOBAL
_$func
global
_$func
_$func:
push ebp
push ebx
...
...
@@ -216,7 +233,7 @@ sub main'function_begin_B
{
my
(
$func
,
$extra
)
=
@_
;
my
(
$tmp
)
=
<<"EOF";
GLOBAL
_$func
global
_$func
_$func:
EOF
push
(
@out
,
$tmp
);
...
...
crypto/perlasm/x86unix.pl
浏览文件 @
bbdb5438
...
...
@@ -100,6 +100,16 @@ sub main'BP
return
(
&main
'
DWP(@_));
}
sub main
'
BC
{
return
@_
;
}
sub
main
'
DWC
{
return
@_
;
}
#sub main'BP
# {
# local($addr,$reg1,$reg2,$idx)=@_;
...
...
ms/x86asm.bat
0 → 100755
浏览文件 @
bbdb5438
@echo
off
echo
Generating
x86
assember
echo
Bignum
cd
crypto
\bn\asm
perl
x86
.pl
win32n
>
bn
-win
32
.asm
cd
..\..\..
echo
DES
cd
crypto
\des\asm
perl
des
-
586
.pl
win32n
>
d
-win
32
.asm
cd
..\..\..
echo
"crypt(3)"
cd
crypto
\des\asm
perl
crypt586
.pl
win32n
>
y
-win
32
.asm
cd
..\..\..
echo
Blowfish
cd
crypto
\bf\asm
perl
bf
-
586
.pl
win32n
>
b
-win
32
.asm
cd
..\..\..
echo
CAST5
cd
crypto
\cast\asm
perl
cast
-
586
.pl
win32n
>
c
-win
32
.asm
cd
..\..\..
echo
RC4
cd
crypto
\rc4\asm
perl
rc4
-
586
.pl
win32n
>
r4
-win
32
.asm
cd
..\..\..
echo
MD5
cd
crypto
\md5\asm
perl
md5
-
586
.pl
win32n
>
m5
-win
32
.asm
cd
..\..\..
echo
SHA1
cd
crypto
\sha\asm
perl
sha1
-
586
.pl
win32n
>
s1
-win
32
.asm
cd
..\..\..
echo
RIPEMD160
cd
crypto
\ripemd\asm
perl
rmd
-
586
.pl
win32n
>
rm
-win
32
.asm
cd
..\..\..
echo
RC5
\32
cd
crypto
\rc5\asm
perl
rc5
-
586
.pl
win32n
>
r5
-win
32
.asm
cd
..\..\..
echo
on
util/mk1mf.pl
浏览文件 @
bbdb5438
...
...
@@ -58,6 +58,7 @@ and [options] can be one of
no-ssl2 no-ssl3 - Skip this version of SSL
just-ssl - remove all non-ssl keys/digest
no-asm - No x86 asm
nasm - Use NASM for x86 asm
no-socks - No socket code
no-err - No error strings
dll/shlib - Build shared libraries (MS)
...
...
@@ -813,6 +814,7 @@ sub read_options
elsif
(
/^no-dh$/
)
{
$no_dh
=
1
;
}
elsif
(
/^no-hmac$/
)
{
$no_hmac
=
1
;
}
elsif
(
/^no-asm$/
)
{
$no_asm
=
1
;
}
elsif
(
/^nasm$/
)
{
$nasm
=
1
;
}
elsif
(
/^no-ssl2$/
)
{
$no_ssl2
=
1
;
}
elsif
(
/^no-ssl3$/
)
{
$no_ssl3
=
1
;
}
elsif
(
/^no-err$/
)
{
$no_err
=
1
;
}
...
...
util/pl/VC-32.pl
浏览文件 @
bbdb5438
...
...
@@ -49,10 +49,14 @@ $lfile='/out:';
$shlib_ex_obj
=
"";
$app_ex_obj
=
"
setargv.obj
";
$asm
=
'
ml /Cp /coff /c /Cx
';
$asm
.=
"
/Zi
"
if
$debug
;
$afile
=
'
/Fo
';
if
(
$nasm
)
{
$asm
=
'
nasmw -f win32
';
$afile
=
'
-o
';
}
else
{
$asm
=
'
ml /Cp /coff /c /Cx
';
$asm
.=
"
/Zi
"
if
$debug
;
$afile
=
'
/Fo
';
}
$bn_asm_obj
=
'';
$bn_asm_src
=
'';
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录