Deleted Added
sdiff udiff text old ( 1.1.1.1 ) new ( 1.1.1.2 )
full compact
bf-586.pl (1.1.1.1) bf-586.pl (1.1.1.2)
1#!/usr/local/bin/perl
1#! /usr/bin/env perl
2# Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
3#
4# Licensed under the OpenSSL license (the "License"). You may not use
5# this file except in compliance with the License. You can obtain a copy
6# in the file LICENSE in the source distribution or at
7# https://www.openssl.org/source/license.html
2
8
9
3$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
4push(@INC,"${dir}","${dir}../../perlasm");
5require "x86asm.pl";
6require "cbc.pl";
7
10$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
11push(@INC,"${dir}","${dir}../../perlasm");
12require "x86asm.pl";
13require "cbc.pl";
14
15$output = pop;
16open STDOUT,">$output";
17
8&asm_init($ARGV[0],"bf-586.pl",$ARGV[$#ARGV] eq "386");
9
10$BF_ROUNDS=16;
11$BF_OFF=($BF_ROUNDS+2)*4;
12$L="edi";
13$R="esi";
14$P="ebp";
15$tmp1="eax";
16$tmp2="ebx";
17$tmp3="ecx";
18$tmp4="edx";
19
20&BF_encrypt("BF_encrypt",1);
21&BF_encrypt("BF_decrypt",0);
22&cbc("BF_cbc_encrypt","BF_encrypt","BF_decrypt",1,4,5,3,-1,-1);
23&asm_finish();
24
18&asm_init($ARGV[0],"bf-586.pl",$ARGV[$#ARGV] eq "386");
19
20$BF_ROUNDS=16;
21$BF_OFF=($BF_ROUNDS+2)*4;
22$L="edi";
23$R="esi";
24$P="ebp";
25$tmp1="eax";
26$tmp2="ebx";
27$tmp3="ecx";
28$tmp4="edx";
29
30&BF_encrypt("BF_encrypt",1);
31&BF_encrypt("BF_decrypt",0);
32&cbc("BF_cbc_encrypt","BF_encrypt","BF_decrypt",1,4,5,3,-1,-1);
33&asm_finish();
34
35close STDOUT;
36
25sub BF_encrypt
26 {
27 local($name,$enc)=@_;
28
29 &function_begin_B($name,"");
30
31 &comment("");
32

--- 105 unchanged lines hidden --- 		37sub BF_encrypt
38 {
39 local($name,$enc)=@_;
40
41 &function_begin_B($name,"");
42
43 &comment("");
44

--- 105 unchanged lines hidden ---