Kann nicht dekodieren! Ungültige Base58-Zeichen!

Question

Ich versuche base58perl.pl in meinem Terminal mit dem folgenden Befehl auszuführen:

perl base58perl.pl 

aber ich bekomme die folgende Fehlermeldung:

Cannot decode! Invalid Base58 Character(s)! 

Hier ist der Code:

my $fileSrc = 'base58.txt'; 
open my $fhSrc, $fileSrc or die "Could not open $fileSrc: $!"; 

my $fileDest = 'hex.txt'; 
open(my $fhDest, '>>', $fileDest) or die "Could not open file $fileDest: $!"; 

while (my $base58_encoded_address = <$fhSrc >) { 
    my $binary_address = decodebase58tohex($base58_encoded_address); 
    say $fhDest $binary_address; 
} 

close $fhSrc; 
close $fhDest; 

Der Inhalt von base58.txt ist eine Liste der BTC-Adresse in Base58-Form.

Ich habe auch

chmod a+x base58perl.pl 
perl base58perl.pl 

base58.txt Inhalt versucht:

1E5PBfSaFawBy1RjBHkS6FDtCwXkYSsVTo 
1DCgptTS2uY2occbVdW1qcVT72T75RXbyg 
1CUNEBjYrCn2y1SdiUMohaKUi4wpP326Lb 

ich immer noch die gleichen Fehler.

Answer 1

Diese Fehlermeldung kommt von der Funktion unbase58 in dem Code, den Sie verknüpft haben.

die "Cannot Decode! Invalid Base58 Character(s)!\n" unless $bitcoin_address =~ /^[1-9A-HJ-NP-Za-km-z]*$/; 

dieser Linie überprüft, ob die Eingabe [1-9A-HJ-NP-Za-km-z] nur Zeichen der Zeichengruppe enthält. Da deine Eingabe es tut, muss es etwas anderes nicht mögen.

Meine Vermutung ist, dass es die Zeilenumbruch Zeichen am Ende Ihrer Zeilen nicht mochte. Sie müssen chomp sie aus, bevor Sie den Wert an decodebase58tohex übergeben.

while(my $base58_encoded_address = <$fhSrc>) { 
    chomp $base58_encoded_address; 
    my $binary_address = decodebase58tohex($base58_encoded_address); 
    say $fhDest $binary_address; 
} 

Answer 2

Wahrscheinlich müssen Sie Leerräume entfernen. Sie scheinen nur Stücke der Zeichenfolge gleichzeitig an die Decodierfunktion zu übergeben, was ebenfalls ein Problem darstellen könnte. Lesen Sie die gesamte Datei in eine Variable, entfernen Sie alle Leerzeichen und dekodieren Sie sie.

my $base58_encoded_address = do { local $/; <$fhSrc> }; 
$base58_encoded_address =~ s/\s+//g; 
my $binary_address = decodebase58tohex($base58_encoded_address); 
say $fhDest $binary_address; 

Answer 3

Das Skript jetzt richtig funktioniert, war das Problem der base58.txt die Datei mit dem Editor erstellt wurde. Ich habe eine neue Datei mit einem anderen Texteditor erstellt.

Answer 4

my $fileSrc = 'base58.txt'; 
open my $fhSrc, $fileSrc or die "Could not open $fileSrc: $!"; 

my $fileDest = 'hex.txt'; 
open(my $fhDest, '>>', $fileDest) or die "Could not open file $fileDest: $!"; 

my @tmp = <$fhSrc>; 
chomp @tmp; 
for my $line (@tmp) { 
    print "decoding '$line'\n"; 
    my $binary_address = decodebase58tohex($line); 
    say $fhDest $binary_address; 
} 

close $fhSrc; 
close $fhDest; 

Als jemand anderes erwähnt, denke ich, dass Sie mit Whitespaces handeln. chomp wird sich darum kümmern.

Das nächste, was zu tun ist, drucken Sie die Zeichenfolge, die Sie versuchen, in Anführungszeichen zu dekodieren, die Ihre einzige Decodierung bestätigen wird, was Sie wollen.