1

我有一点 Perl 代码（简单的 XOR 解密），我想将它移植到 Ruby 以将其添加到另一个脚本，但我真的迷失了 Ruby 中的 XOR 编码/解码：

#!/usr/bin/perl
# XOR password decoder
# Greets: Joni Salonen @ stackoverflow.com

$key = pack("H*","3cb37efae7f4f376ebbd76cd");

print "Enter string to decode: ";
$str=<STDIN>;chomp $str; $str =~ s/\\//g;
$dec = decode($str);
print "Decoded string value: $dec\n";

sub decode{ #Sub to decode
    @subvar=@_;
    my $sqlstr = $subvar[0];
    $cipher = unpack("u", $sqlstr);
    $plain = $cipher^$key;
    return substr($plain, 0, length($cipher));
}

与 perl 一起使用的示例：

$ perl cf6deca.pl
Enter string to decode: )4-H5GX\:&G\!6
Decoded string value: likearock

感谢您的帮助和时间。

我想要在 Ruby 中这样的东西：

key = ['3cb37efae7f4f376ebbd76cd'].pack('H*')

print "Enter string to decode: "
STDOUT.flush
a_string = gets
a_string.chomp!
a_string = a_string.gsub(/\//, "")
dec = decode(a_string)
puts "Decoded string value: "+dec

def decode(in)
        cipher = in.unpack('u')
        plain = cipher^key;
        plain.slice(len(cipher))
        return plain
end

我知道是一团糟，请帮忙:)

4

1 回答 1

2

只是看看stackoverflow上的一些问题，看来ruby可能没有按位字符串运算符。 一篇文章表明这​​可能有助于提供这样的运营商：

class String
  def xor(key)
    text = dup
    text.length.times {|n| text[n] = (text[n].ord ^ key[n.modulo key.size].ord).chr }
    text
  end
end
于 2012-04-10T17:14:06.897 回答