logo

Knowledge Is Power

 
 

- Reinit des nouveaux posts -

- Recherche -

Messages Privés - Derniers posts
S'enregistrer - Login - Liste des membres
Vous logger : Login Pass

Programmation - Scripting, langages interprétés >> Pb python Newtopic | Reply
poster txt
bib0
Inscrit le 25-02-2005
Avatar
Posté le 20-12-2011 12:13

Salut à tous,

Si vous avez 2s, j'aurai besoin d'un petit cp de main.
Je cherche à comprendre vite fait un bout de code python (que je ne connais pas ) et à le retranscrire en perl (que je connais un peu plus ).
Je vous le donne (http://blog.stalkr.net/2011/08/hsts-preloading-public-key-pinning-and.html)

pubkey_hash_sha1() {
python -c 'import sys, hashlib; print ":".join(c.encode("hex") for c in hashlib.sha1("".join(map(lambda s: s.strip(), sys.stdin.readlines()[1:-1])).decode("base64")).digest())'
}

Je l'ai compris comme:
use MIME::Base64 ();
use Digest::SHA1 qw(sha1 sha1_hex sha1_base64);

my $dir = getcwd;
my $dir1=$dir."\/";
my $fichier = "keypub.txt"; <<-- contient la clef publique
open(FH, "< $fichier")
or die "Couldn't open $fichier for reading: $!\n";

while (<FH>){
my $line=$_;
chomp($line);
$line =~ s/\s+//g;
$a.=$line;$line=$a;
}
$keypub=$a;
close(FH);

print "Clef publique: \n".$keypub;
$encoded = MIME::Base64::decode($keypub);
print "\nBase64:\n".$encoded;
$digest = sha1_hex($encoded);
print "\nHex:\n".$digest;

Est-ce que j'aurai bien compris le truc?

@++

bib0

[ Ce Message a été édité par: bib0 le 2011-12-20 12:26 ]
profil | edit | quote
Main
Inscrit le 22-10-2014
Afficher/Masquer
tikove
Inscrit le 08-10-2016
Afficher/Masquer
Newtopic | Reply

Online : Agustinwhase, Alfredevert, Berekdub, CarolHesia, JamesBoire, KipplerNoni, Michaelexcat, MiguIdeomy et 93 Guests


Retour Index NewFFR Repository : http://taz.newffr.com
Cagades à Stick : http://alcane.newffr.com
Forum HTML et Archive -> ici
ForumFR Sql/Xml (2006/04) (SF pas à jour du tout...) - Alive since 2001 Newffr.com
Pour toute plainte ou problème -> Contacter Borax, Hyatus, Tweakie ou Stick par message privé (ou Gueulez sur le forum :) )
Retour haut de page