#!C:\Perl\bin\perl.exe # Viser hvor kraftig SSL man kører og andre informationer. # 6.3.2000 Andru Simonsen # 10.1.2002 Ny GUI + Apache 2077/JG # 22.5.2002 Rettet fejlagtige ciphers 2077/JG # print "Content-Type: text/html\n\n"; print ' Told- og Skats Tast•Selv
Told-Skat logo
  Tast Selv, borger
 


'; print '

Der er nu forbindelse til Tast•Selv via SSL.

'; print '

Deres computer har adressen '.$ENV{REMOTE_ADDR}.'

'; $cipher = $ENV{HTTPS_CIPHER}; # For SSL V3 and TLS V1 if ($cipher eq "SSL_RSA_WITH_NULL_MD5" ) { $sslbits = 0; } elsif ($cipher eq "SSL_RSA_WITH_NULL_SHA" ) { $sslbits = 0; } elsif ($cipher eq "SSL_RSA_EXPORT_WITH_RC4_40_MD5" ) { $sslbits = 40; } elsif ($cipher eq "SSL_RSA_WITH_RC4_128_MD5" ) { $sslbits = 128; } elsif ($cipher eq "SSL_RSA_WITH_RC4_128_SHA" ) { $sslbits = 128; } elsif ($cipher eq "SSL_RSA_EXPORT_WITH_RC2_CBC_40_MD5" ) { $sslbits = 40; } elsif ($cipher eq "SSL_RSA_WITH_DES_CBC_SHA" ) { $sslbits = 56; } elsif ($cipher eq "SSL_RSA_WITH_3DES_EDE_CBC_SHA" ) { $sslbits = 168; } elsif ($cipher eq "SSL_NULL_WITH_NULL_NULL" ) { $sslbits = 0; } elsif ($cipher eq "TLS_RSA_EXPORT1024_WITH_RC4_56_SHA" ) { $sslbits = 20; } elsif ($cipher eq "TLS_RSA_EXPORT1024_WITH_DES_CBC_SHA" ) { $sslbits = 20; } # For SSL V2 elsif ($cipher eq "SSL_RC4_128_WITH_MD5" ) { $sslbits = 128; } elsif ($cipher eq "SSL_RC4_128_EXPORT40_WITH_MD5" ) { $sslbits = 40; } elsif ($cipher eq "SSL_RC2_128_CBC_WITH_MD5" ) { $sslbits = 128; } elsif ($cipher eq "SSL_RC2_128_CBC_EXPORT40_WITH_MD5" ) { $sslbits = 40; } elsif ($cipher eq "SSL_DES_64_CBC_WITH_MD5" ) { $sslbits = 56; } elsif ($cipher eq "SSL_DES_192_EDE3_CBC_WITH_MD5" ) { $sslbits = 168; } else { $sslbits = "?"; } print 'De kører nu med '.$sslbits.' bit SSL kryptering. '; print '  ('.$ENV{HTTPS_CIPHER}.') '; $pkey = $ENV{HTTPS_KEYSIZE}*8; print '

Den offentlige nøgle er på: '.$pkey.' bit.'; print '

Deres browser/styresystem er:
'.$ENV{HTTP_USER_AGENT}.'.
'; print '

Tast-Selv, Borger menu Tast•Selv, Borger menu Tast-Selv, Erhverv menu Tast•Selv, Erhverv menu Told-Skat Told•Skat
'; print '';