require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&HEADER_DES_OLD_H)) {
    eval 'sub HEADER_DES_OLD_H () {1;}' unless defined(&HEADER_DES_OLD_H);
    if(defined(&OPENSSL_NO_DES)) {
	die("DES\ is\ disabled\.");
    }
    unless(defined(&HEADER_DES_H)) {
	die("You\ must\ include\ des\.h\,\ not\ des_old\.h\ directly\.");
    }
    if(defined(&_KERBEROS_DES_H)) {
	die("\<openssl\/des_old\.h\>\ replaces\ \<kerberos\/des\.h\>\.");
    }
    require 'openssl/opensslconf.ph';
    require 'openssl/e_os2.ph';
    require 'openssl/symhacks.ph';
    if(defined(&OPENSSL_BUILD_SHLIBCRYPTO)) {
	undef(&OPENSSL_EXTERN) if defined(&OPENSSL_EXTERN);
	eval 'sub OPENSSL_EXTERN () { &OPENSSL_EXPORT;}' unless defined(&OPENSSL_EXTERN);
    }
    if(defined(&__cplusplus)) {
    }
    unless(defined(&OPENSSL_DES_LIBDES_COMPATIBILITY)) {
	eval 'sub des_cblock () { &DES_cblock;}' unless defined(&des_cblock);
	eval 'sub const_des_cblock () { &const_DES_cblock;}' unless defined(&const_des_cblock);
	eval 'sub des_key_schedule () { &DES_key_schedule;}' unless defined(&des_key_schedule);
	eval 'sub des_ecb3_encrypt {
	    my($i,$o,$k1,$k2,$k3,$e) = @_;
    	    eval q( &DES_ecb3_encrypt(($i),($o),($k1),($k2),($k3),($e)));
	}' unless defined(&des_ecb3_encrypt);
	eval 'sub des_ede3_cbc_encrypt {
	    my($i,$o,$l,$k1,$k2,$k3,$iv,$e) = @_;
    	    eval q( &DES_ede3_cbc_encrypt(($i),($o),($l),($k1),($k2),($k3),($iv),($e)));
	}' unless defined(&des_ede3_cbc_encrypt);
	eval 'sub des_ede3_cbcm_encrypt {
	    my($i,$o,$l,$k1,$k2,$k3,$iv1,$iv2,$e) = @_;
    	    eval q( &DES_ede3_cbcm_encrypt(($i),($o),($l),($k1),($k2),($k3),($iv1),($iv2),($e)));
	}' unless defined(&des_ede3_cbcm_encrypt);
	eval 'sub des_ede3_cfb64_encrypt {
	    my($i,$o,$l,$k1,$k2,$k3,$iv,$n,$e) = @_;
    	    eval q( &DES_ede3_cfb64_encrypt(($i),($o),($l),($k1),($k2),($k3),($iv),($n),($e)));
	}' unless defined(&des_ede3_cfb64_encrypt);
	eval 'sub des_ede3_ofb64_encrypt {
	    my($i,$o,$l,$k1,$k2,$k3,$iv,$n) = @_;
    	    eval q( &DES_ede3_ofb64_encrypt(($i),($o),($l),($k1),($k2),($k3),($iv),($n)));
	}' unless defined(&des_ede3_ofb64_encrypt);
	eval 'sub des_options () {
	    eval q( &DES_options());
	}' unless defined(&des_options);
	eval 'sub des_cbc_cksum {
	    my($i,$o,$l,$k,$iv) = @_;
    	    eval q( &DES_cbc_cksum(($i),($o),($l),($k),($iv)));
	}' unless defined(&des_cbc_cksum);
	eval 'sub des_cbc_encrypt {
	    my($i,$o,$l,$k,$iv,$e) = @_;
    	    eval q( &DES_cbc_encrypt(($i),($o),($l),($k),($iv),($e)));
	}' unless defined(&des_cbc_encrypt);
	eval 'sub des_ncbc_encrypt {
	    my($i,$o,$l,$k,$iv,$e) = @_;
    	    eval q( &DES_ncbc_encrypt(($i),($o),($l),($k),($iv),($e)));
	}' unless defined(&des_ncbc_encrypt);
	eval 'sub des_xcbc_encrypt {
	    my($i,$o,$l,$k,$iv,$inw,$outw,$e) = @_;
    	    eval q( &DES_xcbc_encrypt(($i),($o),($l),($k),($iv),($inw),($outw),($e)));
	}' unless defined(&des_xcbc_encrypt);
	eval 'sub des_cfb_encrypt {
	    my($i,$o,$n,$l,$k,$iv,$e) = @_;
    	    eval q( &DES_cfb_encrypt(($i),($o),($n),($l),($k),($iv),($e)));
	}' unless defined(&des_cfb_encrypt);
	eval 'sub des_ecb_encrypt {
	    my($i,$o,$k,$e) = @_;
    	    eval q( &DES_ecb_encrypt(($i),($o),($k),($e)));
	}' unless defined(&des_ecb_encrypt);
	eval 'sub des_encrypt1 {
	    my($d,$k,$e) = @_;
    	    eval q( &DES_encrypt1(($d),($k),($e)));
	}' unless defined(&des_encrypt1);
	eval 'sub des_encrypt2 {
	    my($d,$k,$e) = @_;
    	    eval q( &DES_encrypt2(($d),($k),($e)));
	}' unless defined(&des_encrypt2);
	eval 'sub des_encrypt3 {
	    my($d,$k1,$k2,$k3) = @_;
    	    eval q( &DES_encrypt3(($d),($k1),($k2),($k3)));
	}' unless defined(&des_encrypt3);
	eval 'sub des_decrypt3 {
	    my($d,$k1,$k2,$k3) = @_;
    	    eval q( &DES_decrypt3(($d),($k1),($k2),($k3)));
	}' unless defined(&des_decrypt3);
	eval 'sub des_xwhite_in2out {
	    my($k,$i,$o) = @_;
    	    eval q( &DES_xwhite_in2out(($k),($i),($o)));
	}' unless defined(&des_xwhite_in2out);
	eval 'sub des_enc_read {
	    my($f,$b,$l,$k,$iv) = @_;
    	    eval q( &DES_enc_read(($f),($b),($l),($k),($iv)));
	}' unless defined(&des_enc_read);
	eval 'sub des_enc_write {
	    my($f,$b,$l,$k,$iv) = @_;
    	    eval q( &DES_enc_write(($f),($b),($l),($k),($iv)));
	}' unless defined(&des_enc_write);
	eval 'sub des_fcrypt {
	    my($b,$s,$r) = @_;
    	    eval q( &DES_fcrypt(($b),($s),($r)));
	}' unless defined(&des_fcrypt);
	eval 'sub des_crypt {
	    my($b,$s) = @_;
    	    eval q( &DES_crypt(($b),($s)));
	}' unless defined(&des_crypt);
	if(0) {
	    if(!defined( &PERL5)  && !defined( &__FreeBSD__)  && !defined( &NeXT)  && !defined( &__OpenBSD__)) {
		eval 'sub crypt {
		    my($b,$s) = @_;
    		    eval q( &DES_crypt(($b),($s)));
		}' unless defined(&crypt);
	    }
	}
	eval 'sub des_ofb_encrypt {
	    my($i,$o,$n,$l,$k,$iv) = @_;
    	    eval q( &DES_ofb_encrypt(($i),($o),($n),($l),($k),($iv)));
	}' unless defined(&des_ofb_encrypt);
	eval 'sub des_pcbc_encrypt {
	    my($i,$o,$l,$k,$iv,$e) = @_;
    	    eval q( &DES_pcbc_encrypt(($i),($o),($l),($k),($iv),($e)));
	}' unless defined(&des_pcbc_encrypt);
	eval 'sub des_quad_cksum {
	    my($i,$o,$l,$c,$s) = @_;
    	    eval q( &DES_quad_cksum(($i),($o),($l),($c),($s)));
	}' unless defined(&des_quad_cksum);
	eval 'sub des_random_seed {
	    my($k) = @_;
    	    eval q( &_ossl_096_des_random_seed(($k)));
	}' unless defined(&des_random_seed);
	eval 'sub des_random_key {
	    my($r) = @_;
    	    eval q( &DES_random_key(($r)));
	}' unless defined(&des_random_key);
	eval 'sub des_read_password {
	    my($k,$p,$v) = @_;
    	    eval q( &DES_read_password(($k),($p),($v)));
	}' unless defined(&des_read_password);
	eval 'sub des_read_2passwords {
	    my($k1,$k2,$p,$v) = @_;
    	    eval q( &DES_read_2passwords(($k1),($k2),($p),($v)));
	}' unless defined(&des_read_2passwords);
	eval 'sub des_set_odd_parity {
	    my($k) = @_;
    	    eval q( &DES_set_odd_parity(($k)));
	}' unless defined(&des_set_odd_parity);
	eval 'sub des_check_key_parity {
	    my($k) = @_;
    	    eval q( &DES_check_key_parity(($k)));
	}' unless defined(&des_check_key_parity);
	eval 'sub des_is_weak_key {
	    my($k) = @_;
    	    eval q( &DES_is_weak_key(($k)));
	}' unless defined(&des_is_weak_key);
	eval 'sub des_set_key {
	    my($k,$ks) = @_;
    	    eval q( &DES_set_key(($k),($ks)));
	}' unless defined(&des_set_key);
	eval 'sub des_key_sched {
	    my($k,$ks) = @_;
    	    eval q( &DES_key_sched(($k),($ks)));
	}' unless defined(&des_key_sched);
	eval 'sub des_set_key_checked {
	    my($k,$ks) = @_;
    	    eval q( &DES_set_key_checked(($k),($ks)));
	}' unless defined(&des_set_key_checked);
	eval 'sub des_set_key_unchecked {
	    my($k,$ks) = @_;
    	    eval q( &DES_set_key_unchecked(($k),($ks)));
	}' unless defined(&des_set_key_unchecked);
	eval 'sub des_string_to_key {
	    my($s,$k) = @_;
    	    eval q( &DES_string_to_key(($s),($k)));
	}' unless defined(&des_string_to_key);
	eval 'sub des_string_to_2keys {
	    my($s,$k1,$k2) = @_;
    	    eval q( &DES_string_to_2keys(($s),($k1),($k2)));
	}' unless defined(&des_string_to_2keys);
	eval 'sub des_cfb64_encrypt {
	    my($i,$o,$l,$ks,$iv,$n,$e) = @_;
    	    eval q( &DES_cfb64_encrypt(($i),($o),($l),($ks),($iv),($n),($e)));
	}' unless defined(&des_cfb64_encrypt);
	eval 'sub des_ofb64_encrypt {
	    my($i,$o,$l,$ks,$iv,$n) = @_;
    	    eval q( &DES_ofb64_encrypt(($i),($o),($l),($ks),($iv),($n)));
	}' unless defined(&des_ofb64_encrypt);
	eval 'sub des_ecb2_encrypt {
	    my($i,$o,$k1,$k2,$e) = @_;
    	    eval q( &des_ecb3_encrypt(($i),($o),($k1),($k2),($k1),($e)));
	}' unless defined(&des_ecb2_encrypt);
	eval 'sub des_ede2_cbc_encrypt {
	    my($i,$o,$l,$k1,$k2,$iv,$e) = @_;
    	    eval q( &des_ede3_cbc_encrypt(($i),($o),($l),($k1),($k2),($k1),($iv),($e)));
	}' unless defined(&des_ede2_cbc_encrypt);
	eval 'sub des_ede2_cfb64_encrypt {
	    my($i,$o,$l,$k1,$k2,$iv,$n,$e) = @_;
    	    eval q( &des_ede3_cfb64_encrypt(($i),($o),($l),($k1),($k2),($k1),($iv),($n),($e)));
	}' unless defined(&des_ede2_cfb64_encrypt);
	eval 'sub des_ede2_ofb64_encrypt {
	    my($i,$o,$l,$k1,$k2,$iv,$n) = @_;
    	    eval q( &des_ede3_ofb64_encrypt(($i),($o),($l),($k1),($k2),($k1),($iv),($n)));
	}' unless defined(&des_ede2_ofb64_encrypt);
	eval 'sub des_check_key () { &DES_check_key;}' unless defined(&des_check_key);
	eval 'sub des_rw_mode () { &DES_rw_mode;}' unless defined(&des_rw_mode);
    } else {
	eval 'sub des_cblock () { &_ossl_old_des_cblock;}' unless defined(&des_cblock);
	eval 'sub des_key_schedule () { &_ossl_old_des_key_schedule;}' unless defined(&des_key_schedule);
	eval 'sub des_ecb3_encrypt {
	    my($i,$o,$k1,$k2,$k3,$e) = @_;
    	    eval q( &_ossl_old_des_ecb3_encrypt(($i),($o),($k1),($k2),($k3),($e)));
	}' unless defined(&des_ecb3_encrypt);
	eval 'sub des_ede3_cbc_encrypt {
	    my($i,$o,$l,$k1,$k2,$k3,$iv,$e) = @_;
    	    eval q( &_ossl_old_des_ede3_cbc_encrypt(($i),($o),($l),($k1),($k2),($k3),($iv),($e)));
	}' unless defined(&des_ede3_cbc_encrypt);
	eval 'sub des_ede3_cfb64_encrypt {
	    my($i,$o,$l,$k1,$k2,$k3,$iv,$n,$e) = @_;
    	    eval q( &_ossl_old_des_ede3_cfb64_encrypt(($i),($o),($l),($k1),($k2),($k3),($iv),($n),($e)));
	}' unless defined(&des_ede3_cfb64_encrypt);
	eval 'sub des_ede3_ofb64_encrypt {
	    my($i,$o,$l,$k1,$k2,$k3,$iv,$n) = @_;
    	    eval q( &_ossl_old_des_ede3_ofb64_encrypt(($i),($o),($l),($k1),($k2),($k3),($iv),($n)));
	}' unless defined(&des_ede3_ofb64_encrypt);
	eval 'sub des_options () {
	    eval q( &_ossl_old_des_options());
	}' unless defined(&des_options);
	eval 'sub des_cbc_cksum {
	    my($i,$o,$l,$k,$iv) = @_;
    	    eval q( &_ossl_old_des_cbc_cksum(($i),($o),($l),($k),($iv)));
	}' unless defined(&des_cbc_cksum);
	eval 'sub des_cbc_encrypt {
	    my($i,$o,$l,$k,$iv,$e) = @_;
    	    eval q( &_ossl_old_des_cbc_encrypt(($i),($o),($l),($k),($iv),($e)));
	}' unless defined(&des_cbc_encrypt);
	eval 'sub des_ncbc_encrypt {
	    my($i,$o,$l,$k,$iv,$e) = @_;
    	    eval q( &_ossl_old_des_ncbc_encrypt(($i),($o),($l),($k),($iv),($e)));
	}' unless defined(&des_ncbc_encrypt);
	eval 'sub des_xcbc_encrypt {
	    my($i,$o,$l,$k,$iv,$inw,$outw,$e) = @_;
    	    eval q( &_ossl_old_des_xcbc_encrypt(($i),($o),($l),($k),($iv),($inw),($outw),($e)));
	}' unless defined(&des_xcbc_encrypt);
	eval 'sub des_cfb_encrypt {
	    my($i,$o,$n,$l,$k,$iv,$e) = @_;
    	    eval q( &_ossl_old_des_cfb_encrypt(($i),($o),($n),($l),($k),($iv),($e)));
	}' unless defined(&des_cfb_encrypt);
	eval 'sub des_ecb_encrypt {
	    my($i,$o,$k,$e) = @_;
    	    eval q( &_ossl_old_des_ecb_encrypt(($i),($o),($k),($e)));
	}' unless defined(&des_ecb_encrypt);
	eval 'sub des_encrypt {
	    my($d,$k,$e) = @_;
    	    eval q( &_ossl_old_des_encrypt(($d),($k),($e)));
	}' unless defined(&des_encrypt);
	eval 'sub des_encrypt2 {
	    my($d,$k,$e) = @_;
    	    eval q( &_ossl_old_des_encrypt2(($d),($k),($e)));
	}' unless defined(&des_encrypt2);
	eval 'sub des_encrypt3 {
	    my($d,$k1,$k2,$k3) = @_;
    	    eval q( &_ossl_old_des_encrypt3(($d),($k1),($k2),($k3)));
	}' unless defined(&des_encrypt3);
	eval 'sub des_decrypt3 {
	    my($d,$k1,$k2,$k3) = @_;
    	    eval q( &_ossl_old_des_decrypt3(($d),($k1),($k2),($k3)));
	}' unless defined(&des_decrypt3);
	eval 'sub des_xwhite_in2out {
	    my($k,$i,$o) = @_;
    	    eval q( &_ossl_old_des_xwhite_in2out(($k),($i),($o)));
	}' unless defined(&des_xwhite_in2out);
	eval 'sub des_enc_read {
	    my($f,$b,$l,$k,$iv) = @_;
    	    eval q( &_ossl_old_des_enc_read(($f),($b),($l),($k),($iv)));
	}' unless defined(&des_enc_read);
	eval 'sub des_enc_write {
	    my($f,$b,$l,$k,$iv) = @_;
    	    eval q( &_ossl_old_des_enc_write(($f),($b),($l),($k),($iv)));
	}' unless defined(&des_enc_write);
	eval 'sub des_fcrypt {
	    my($b,$s,$r) = @_;
    	    eval q( &_ossl_old_des_fcrypt(($b),($s),($r)));
	}' unless defined(&des_fcrypt);
	eval 'sub des_crypt {
	    my($b,$s) = @_;
    	    eval q( &_ossl_old_des_crypt(($b),($s)));
	}' unless defined(&des_crypt);
	if(0) {
	    eval 'sub crypt {
	        my($b,$s) = @_;
    		eval q( &_ossl_old_crypt(($b),($s)));
	    }' unless defined(&crypt);
	}
	eval 'sub des_ofb_encrypt {
	    my($i,$o,$n,$l,$k,$iv) = @_;
    	    eval q( &_ossl_old_des_ofb_encrypt(($i),($o),($n),($l),($k),($iv)));
	}' unless defined(&des_ofb_encrypt);
	eval 'sub des_pcbc_encrypt {
	    my($i,$o,$l,$k,$iv,$e) = @_;
    	    eval q( &_ossl_old_des_pcbc_encrypt(($i),($o),($l),($k),($iv),($e)));
	}' unless defined(&des_pcbc_encrypt);
	eval 'sub des_quad_cksum {
	    my($i,$o,$l,$c,$s) = @_;
    	    eval q( &_ossl_old_des_quad_cksum(($i),($o),($l),($c),($s)));
	}' unless defined(&des_quad_cksum);
	eval 'sub des_random_seed {
	    my($k) = @_;
    	    eval q( &_ossl_old_des_random_seed(($k)));
	}' unless defined(&des_random_seed);
	eval 'sub des_random_key {
	    my($r) = @_;
    	    eval q( &_ossl_old_des_random_key(($r)));
	}' unless defined(&des_random_key);
	eval 'sub des_read_password {
	    my($k,$p,$v) = @_;
    	    eval q( &_ossl_old_des_read_password(($k),($p),($v)));
	}' unless defined(&des_read_password);
	eval 'sub des_read_2passwords {
	    my($k1,$k2,$p,$v) = @_;
    	    eval q( &_ossl_old_des_read_2passwords(($k1),($k2),($p),($v)));
	}' unless defined(&des_read_2passwords);
	eval 'sub des_set_odd_parity {
	    my($k) = @_;
    	    eval q( &_ossl_old_des_set_odd_parity(($k)));
	}' unless defined(&des_set_odd_parity);
	eval 'sub des_is_weak_key {
	    my($k) = @_;
    	    eval q( &_ossl_old_des_is_weak_key(($k)));
	}' unless defined(&des_is_weak_key);
	eval 'sub des_set_key {
	    my($k,$ks) = @_;
    	    eval q( &_ossl_old_des_set_key(($k),($ks)));
	}' unless defined(&des_set_key);
	eval 'sub des_key_sched {
	    my($k,$ks) = @_;
    	    eval q( &_ossl_old_des_key_sched(($k),($ks)));
	}' unless defined(&des_key_sched);
	eval 'sub des_string_to_key {
	    my($s,$k) = @_;
    	    eval q( &_ossl_old_des_string_to_key(($s),($k)));
	}' unless defined(&des_string_to_key);
	eval 'sub des_string_to_2keys {
	    my($s,$k1,$k2) = @_;
    	    eval q( &_ossl_old_des_string_to_2keys(($s),($k1),($k2)));
	}' unless defined(&des_string_to_2keys);
	eval 'sub des_cfb64_encrypt {
	    my($i,$o,$l,$ks,$iv,$n,$e) = @_;
    	    eval q( &_ossl_old_des_cfb64_encrypt(($i),($o),($l),($ks),($iv),($n),($e)));
	}' unless defined(&des_cfb64_encrypt);
	eval 'sub des_ofb64_encrypt {
	    my($i,$o,$l,$ks,$iv,$n) = @_;
    	    eval q( &_ossl_old_des_ofb64_encrypt(($i),($o),($l),($ks),($iv),($n)));
	}' unless defined(&des_ofb64_encrypt);
	eval 'sub des_ecb2_encrypt {
	    my($i,$o,$k1,$k2,$e) = @_;
    	    eval q( &des_ecb3_encrypt(($i),($o),($k1),($k2),($k1),($e)));
	}' unless defined(&des_ecb2_encrypt);
	eval 'sub des_ede2_cbc_encrypt {
	    my($i,$o,$l,$k1,$k2,$iv,$e) = @_;
    	    eval q( &des_ede3_cbc_encrypt(($i),($o),($l),($k1),($k2),($k1),($iv),($e)));
	}' unless defined(&des_ede2_cbc_encrypt);
	eval 'sub des_ede2_cfb64_encrypt {
	    my($i,$o,$l,$k1,$k2,$iv,$n,$e) = @_;
    	    eval q( &des_ede3_cfb64_encrypt(($i),($o),($l),($k1),($k2),($k1),($iv),($n),($e)));
	}' unless defined(&des_ede2_cfb64_encrypt);
	eval 'sub des_ede2_ofb64_encrypt {
	    my($i,$o,$l,$k1,$k2,$iv,$n) = @_;
    	    eval q( &des_ede3_ofb64_encrypt(($i),($o),($l),($k1),($k2),($k1),($iv),($n)));
	}' unless defined(&des_ede2_ofb64_encrypt);
	eval 'sub des_check_key () { &DES_check_key;}' unless defined(&des_check_key);
	eval 'sub des_rw_mode () { &DES_rw_mode;}' unless defined(&des_rw_mode);
    }
    if(!defined( &PERL5)  && !defined( &NeXT)) {
    }
    eval 'sub _KERBEROS_DES_H () {1;}' unless defined(&_KERBEROS_DES_H);
    eval 'sub KRBDES_ENCRYPT () { &DES_ENCRYPT;}' unless defined(&KRBDES_ENCRYPT);
    eval 'sub KRBDES_DECRYPT () { &DES_DECRYPT;}' unless defined(&KRBDES_DECRYPT);
    if(defined(&KERBEROS)) {
	eval 'sub ENCRYPT () { &DES_ENCRYPT;}' unless defined(&ENCRYPT);
	eval 'sub DECRYPT () { &DES_DECRYPT;}' unless defined(&DECRYPT);
    }
    unless(defined(&NCOMPAT)) {
	eval 'sub C_Block () { &des_cblock;}' unless defined(&C_Block);
	eval 'sub Key_schedule () { &des_key_schedule;}' unless defined(&Key_schedule);
	eval 'sub KEY_SZ () { &DES_KEY_SZ;}' unless defined(&KEY_SZ);
	eval 'sub string_to_key () { &des_string_to_key;}' unless defined(&string_to_key);
	eval 'sub read_pw_string () { &des_read_pw_string;}' unless defined(&read_pw_string);
	eval 'sub random_key () { &des_random_key;}' unless defined(&random_key);
	eval 'sub pcbc_encrypt () { &des_pcbc_encrypt;}' unless defined(&pcbc_encrypt);
	eval 'sub set_key () { &des_set_key;}' unless defined(&set_key);
	eval 'sub key_sched () { &des_key_sched;}' unless defined(&key_sched);
	eval 'sub ecb_encrypt () { &des_ecb_encrypt;}' unless defined(&ecb_encrypt);
	eval 'sub cbc_encrypt () { &des_cbc_encrypt;}' unless defined(&cbc_encrypt);
	eval 'sub ncbc_encrypt () { &des_ncbc_encrypt;}' unless defined(&ncbc_encrypt);
	eval 'sub xcbc_encrypt () { &des_xcbc_encrypt;}' unless defined(&xcbc_encrypt);
	eval 'sub cbc_cksum () { &des_cbc_cksum;}' unless defined(&cbc_cksum);
	eval 'sub quad_cksum () { &des_quad_cksum;}' unless defined(&quad_cksum);
	eval 'sub check_parity () { &des_check_key_parity;}' unless defined(&check_parity);
    }
    eval 'sub des_fixup_key_parity () { &DES_fixup_key_parity;}' unless defined(&des_fixup_key_parity);
    if(defined(&__cplusplus)) {
    }
    require 'openssl/ui_compat.ph';
}
1;
