des686.pl (55714) | des686.pl (76866) |
---|---|
1#!/usr/local/bin/perl 2 3$prog="des686.pl"; 4 5# base code is in microsft 6# op dest, source 7# format. 8# --- 32 unchanged lines hidden (view full) --- 41&comment("eric <eay\@cryptsoft.com>"); 42&comment(""); 43 44&file("dx86xxxx"); 45 46$L="edi"; 47$R="esi"; 48 | 1#!/usr/local/bin/perl 2 3$prog="des686.pl"; 4 5# base code is in microsft 6# op dest, source 7# format. 8# --- 32 unchanged lines hidden (view full) --- 41&comment("eric <eay\@cryptsoft.com>"); 42&comment(""); 43 44&file("dx86xxxx"); 45 46$L="edi"; 47$R="esi"; 48 |
49&des_encrypt("des_encrypt",1); | 49&des_encrypt("des_encrypt1",1); |
50&des_encrypt("des_encrypt2",0); 51 52&des_encrypt3("des_encrypt3",1); 53&des_encrypt3("des_decrypt3",0); 54 55&file_end(); 56 57sub des_encrypt --- 173 unchanged lines hidden --- | 50&des_encrypt("des_encrypt2",0); 51 52&des_encrypt3("des_encrypt3",1); 53&des_encrypt3("des_decrypt3",0); 54 55&file_end(); 56 57sub des_encrypt --- 173 unchanged lines hidden --- |