SHA1 Codierung

[Struppi]

mit
use Digest::SHA1 qw(sha1);
...
my $str = join("|",@data);
main::mprint Digest::SHA1::sha1($str);

(auch mit "print" statt "main::mprint" = mein framework-Perl kein Unterschied)

bekomme ich aber
hier waren div Hiroglyphen die aber nicht akteptiert wurden # mit sha1()
bzw im Quelltext:
om%E2%84%A2%C3%8D%C3%BF%CB%9C%C3%80%C3%8D%18%1B%C2%B8N%02%C2%B5%C5%B8]%E2%80%9CDP1"

Das ist nicht das, was du mit der Verschlüsselungsfunktion bekommst, es sei denn du hast ein anderes Digest::SHA1 als ich. B ei mir sieht das völlig anders aus.

hab's auch mit sha1_hex() versucht - so bekomme ich zwar einen Code, aber einen "falschen"
6f6d99cdff98c0cd181bb84e02b59f5d93445031

Dann machst du etwas falsch, ich bekomme:
88ef9c430a2ceb7411f8c14b9a2a1a9fbb38d4d0

Was ziemlich genau dem entspricht was du willst.

Was mache ich falsch?

Du zeigst uns nicht das was du wirklich machst.

Struppi.