Wie dekodiere ich Base64-codierte Sitzungsdaten von Catalyst :: Plugin :: Session?

Question

Ich habe etwas Code geerbt, der diese Session-Module verwendet, die eine Art verschleierten Base64-Text kodieren, um ihn in einer Tabelle zu speichern und zu dekodieren, aber es scheint keinen Weg zu geben, die Daten tatsächlich zu entschlüsseln korrekt.

Es scheint Catalyst::Plugin::Session zu verwenden, aber ich hatte kein Glück, es in irgendeiner Kodierung oder irgendetwas zu entschlüsseln.

Wenn ich die Daten entziffern, wie es jetzt ist, bekomme ich normal aussehenden Text für lateinische Zeichen, aber andere Dinge wie Basiszahlen scheinen verstümmelt zu sein. Ich habe fast jede Zeichencodierung ohne Erfolg ausprobiert.

Wie dekodiere ich die von diesem Modul gespeicherten Daten?

$user->update({ user_id => $user->id }); 
$c->session->{user_name} = $user->name; 

Answer 1

Agh, fand meine verschleierten Zeichenfolge aus ist eigentlich die dämonische Art und Weise, in der Perl speichert in String-Form-Hashes und die Katalysatormodule scheinen Storable zu verwenden:

Die tatsächliche Verwendung im Code wie folgt aussieht um dies zu tun, war so MIME :: Base64 und Storable zusammen die Lösung, etwa so:

print thaw(decode_base64($my_stuff));