des-586.pl (55714) | des-586.pl (76866) |
---|---|
1#!/usr/local/bin/perl 2# 3# The inner loop instruction sequence and the IP/FP modifications are from 4# Svend Olaf Mikkelsen <svolaf@inet.uni-c.dk> 5# 6 7push(@INC,"perlasm","../../perlasm"); 8require "x86asm.pl"; --- 6 unchanged lines hidden (view full) --- 15# 16 17&asm_init($ARGV[0],"des-586.pl"); 18 19$L="edi"; 20$R="esi"; 21 22&external_label("des_SPtrans"); | 1#!/usr/local/bin/perl 2# 3# The inner loop instruction sequence and the IP/FP modifications are from 4# Svend Olaf Mikkelsen <svolaf@inet.uni-c.dk> 5# 6 7push(@INC,"perlasm","../../perlasm"); 8require "x86asm.pl"; --- 6 unchanged lines hidden (view full) --- 15# 16 17&asm_init($ARGV[0],"des-586.pl"); 18 19$L="edi"; 20$R="esi"; 21 22&external_label("des_SPtrans"); |
23&des_encrypt("des_encrypt",1); | 23&des_encrypt("des_encrypt1",1); |
24&des_encrypt("des_encrypt2",0); 25&des_encrypt3("des_encrypt3",1); 26&des_encrypt3("des_decrypt3",0); | 24&des_encrypt("des_encrypt2",0); 25&des_encrypt3("des_encrypt3",1); 26&des_encrypt3("des_decrypt3",0); |
27&cbc("des_ncbc_encrypt","des_encrypt","des_encrypt",0,4,5,3,5,-1); | 27&cbc("des_ncbc_encrypt","des_encrypt1","des_encrypt1",0,4,5,3,5,-1); |
28&cbc("des_ede3_cbc_encrypt","des_encrypt3","des_decrypt3",0,6,7,3,4,5); 29 30&asm_finish(); 31 32sub des_encrypt 33 { 34 local($name,$do_ip)=@_; 35 --- 218 unchanged lines hidden --- | 28&cbc("des_ede3_cbc_encrypt","des_encrypt3","des_decrypt3",0,6,7,3,4,5); 29 30&asm_finish(); 31 32sub des_encrypt 33 { 34 local($name,$do_ip)=@_; 35 --- 218 unchanged lines hidden --- |