From ed39663ceee1eb644199569fff0be8fcea5f2ff8 Mon Sep 17 00:00:00 2001
From: "Jonathan \"Duke\" Leto" <jonathan@leto.net>
Date: Fri, 28 Dec 2018 09:20:15 -0800
Subject: [PATCH] add cscript

---
 wack.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/wack.pl b/wack.pl
index e51877d..cb00964 100755
--- a/wack.pl
+++ b/wack.pl
@@ -27,6 +27,10 @@ while (my ($k,$v) = each %wallet) {
             my $privkey = unpack("H*", $v);
             $key = unpack("H*", $key);
             print "key=$key, privkey=$privkey\n";
+        } elsif ($type eq 'cscript') {
+            my $cscript = unpack("H*", $v);
+            $key = unpack("H*", $key);
+            print "key=$key, cscript=$cscript\n";
         } elsif ($type eq 'tx') {
             my $tx  = unpack("h*", $key);
             my $vtx = unpack("h*", $v);