#Get the encrypted password
set key [string range $i_login"dummykey" 0 7]
set password "$i_encpassword"
catch {set encpass [binary format h* "$i_encpassword"]}
catch {set password [::DES::des -mode ecb -dir decrypt -key $key -- $encpass]}
puts "Password length is: [string first "n" $password]"
set password [string range $password 0 [expr { [string first "n" $password] -1 }]]
puts "Password is: $password"

require 'rubygems'
require 'openssl'

$key = "A75435F0B240012A9489000C2952E41F"

class String


def decrypt(key=$key)
e = OpenSSL::Cipher::Cipher.new 'DES-EDE3-CBC'
e.pkcs5_keyivgen key
s = self.to_a.unpack("H*")
s = e.update s
s << e.final
end
end


puts "509067DC2076497134DBF9A7DE5992B2".decrypt("password")