From e768ab3f7b72b76c2237a45dc264d5bf22ddf6af Mon Sep 17 00:00:00 2001
From: Dirk <dirk@testssl.sh>
Date: Thu, 18 Apr 2019 10:04:08 +0200
Subject: [PATCH] Remove file as Not needed

---
 utils/wireshark2ciphers.pl | 49 --------------------------------------
 1 file changed, 49 deletions(-)
 delete mode 100755 utils/wireshark2ciphers.pl

diff --git a/utils/wireshark2ciphers.pl b/utils/wireshark2ciphers.pl
deleted file mode 100755
index ba49d24..0000000
--- a/utils/wireshark2ciphers.pl
+++ /dev/null
@@ -1,49 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use Data::Dumper;
-use JSON;
-
-my $namelength = 30;
-
-# Get all ciphers first
-my @spec;
-my %ciphers;
-my $ossl = "bin/openssl." . `uname -s` . "." . `uname -m`;
-$ossl =~ s/\R//g;                                       # remove LFs
-
-die "Unable to open $ossl" unless -f $ossl;
-my $ossl = "$ossl" . " ciphers -V 'ALL:COMPLEMENTOFALL:\@STRENGTH'";
-
-foreach my $line ( split /\n/, `$ossl` ) {
-	my @fields = split /\s+/, $line;
-	my $hex = "";
-	foreach my $byte ( split /,/, $fields[1] ) {
-		$byte = lc $byte;
-		$byte =~ s/^0x//;
-		$hex .= $byte;
-	}
-	$hex =~ s/^0+//;
-	$ciphers{"0x$hex"} = $fields[3];
-}
-#die Dumper \%ciphers;
-#exit;
-
-my @ciphers = ();
-while (<>) {
-	if ( /^\s*Cipher Suite\:/ ) {
-		/\((0x[0-9a-f]+)\)\s*$/;
-		my $n = $1;
-		$n =~ s/0x0*/0x/;
-		if ( $n && exists $ciphers{$n} ) {
-			push @ciphers, $ciphers{$n};
-		} else {
-			print STDERR "No matching cipher for: $n on line\n$_"
-		}
-	} else {
-		print STDERR "Ignoring line $_"
-	}
-}
-
-print "\n\n" . join ":", @ciphers;
-print "\n";