des-586.pl (109998) | des-586.pl (111147) |
---|---|
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"; --- 59 unchanged lines hidden (view full) --- 68 &mov($R,&DWP(0,"eax","",0)); 69 &mov("ebx",&wparam(2)); # get encrypt flag 70 &rotl($R,3); 71 &mov($L,&DWP(4,"eax","",0)); 72 &rotl($L,3); 73 } 74 75 # PIC-ification:-) | 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"; --- 59 unchanged lines hidden (view full) --- 68 &mov($R,&DWP(0,"eax","",0)); 69 &mov("ebx",&wparam(2)); # get encrypt flag 70 &rotl($R,3); 71 &mov($L,&DWP(4,"eax","",0)); 72 &rotl($L,3); 73 } 74 75 # PIC-ification:-) |
76 if ($cpp) { &picmeup($trans,"DES_SPtrans"); } 77 else { &lea($trans,&DWP("DES_SPtrans")); } | 76 &picmeup($trans,"DES_SPtrans"); 77 #if ($cpp) { &picmeup($trans,"DES_SPtrans"); } 78 #else { &lea($trans,&DWP("DES_SPtrans")); } |
78 79 &mov( "ecx", &wparam(1) ); 80 &cmp("ebx","0"); 81 &je(&label("start_decrypt")); 82 83 for ($i=0; $i<16; $i+=2) 84 { 85 &comment(""); --- 165 unchanged lines hidden --- | 79 80 &mov( "ecx", &wparam(1) ); 81 &cmp("ebx","0"); 82 &je(&label("start_decrypt")); 83 84 for ($i=0; $i<16; $i+=2) 85 { 86 &comment(""); --- 165 unchanged lines hidden --- |