Changeset 363

Timestamp:

23.02.2010 17:07:18 (5 months ago)

Author:

henning

Message:

ruby-script-encrypt: fixed left bugs

File:

• tools/ruby-script-encrypt (modified) (1 diff)

tools/ruby-script-encrypt

@@ -1 +1 @@
 #!/usr/bin/env ruby
 # vi: set fileencoding=utf-8 :
-
-# XXX Broken if input file size >= 32 byte. Should be connected to AES
-#     block size. Debug anyone?
-
 =begin
-        This script encrypts another one with 256 Bit AES, "swordfish" (the
-        marx one) as password and zero IV and outputs another script, which
-        decrypts the containing cipher and runs the code.
-        Disclaimer: This was written just for fun and may contain meaningless
-        use of cryptography. If you can not stand it, send complains to
-        henning on the honerable orgizm.net server.
+        This  script  encrypts  another  one  with  256 Bit AES,
+        "swordfish" (the marx one)  as password and  zero IV and
+        outputs another  script,  which decrypts the  containing
+        cipher and runs the code.
+        Disclaimer:     This was  written just  for fun  and may
+        contain meaningless use of cryptography.  If you can not
+        stand it,  send complains  to henning  on the  honerable
+        orgizm.net server.
 =end
-
-ARGV[0] ? nil:($stderr<<"#{$0} <script>\n";exit)
-%w[base64 openssl].each{|r| require r}
-def a(m,k,t)
-        (a=OpenSSL::Cipher::Cipher.new('aes-256-cbc').send(m)).key=Digest::SHA256.digest(k)
-        a.update(t)<<a.final
-end
-puts DATA.readlines,Base64.encode64(a :encrypt,:swordfish,File.new(ARGV[0]).readlines.join)
+ARGV[0] ? nil: ($stderr<<"#{$0} <script>\n";exit); %w[base64
+openssl].each{|r| require r};(a=OpenSSL::Cipher::Cipher.new(
+'aes-256-cbc').encrypt).key=Digest::SHA256.digest(:swordfish
+); puts DATA.readlines, Base64.encode64( a.update( File.new(
+ARGV[0]).readlines.join)<<a.final)
 __END__
 #!/usr/bin/env ruby
-%w[base64 openssl].each {|r| require r}
-def a(m,k,t)
-        (a=OpenSSL::Cipher::Cipher.new('aes-256-cbc').send(m)).key=Digest::SHA256.digest(k)
-        a.update(t.unpack('m')[0])<<a.final
-end
-eval a :decrypt,:swordfish,DATA.readlines.to_s
+%w[base64 openssl].each{|r| require r}; (a=OpenSSL::Cipher::
+Cipher.new('aes-256-cbc').decrypt).key= Digest::SHA2.digest(
+:swordfish); eval( a.update( Base64.decode64( DATA.readlines
+.join))<<a.final)
 __END__