Polskie forum użytkowników Ubuntu
https://ubuntu.pl/forum/
Kod: Zaznacz cały
$ echo -n "Ala ma kota" | md5sum
91162629d258a876ee994e9233b2ad87 -
Kod: Zaznacz cały
use Crypt::Blowfish_PP;
$blowfish=new Crypt::Blowfish_PP($ARGV[0]);
print $blowfish->encrypt($ARGV[1]);Kod: Zaznacz cały
ZMIENNA=$blowfish->encrypt($ARGV[1]);
echo $ZMIENNA
Kod: Zaznacz cały
use Crypt::Blowfish_PP;
$blowfish=new Crypt::Blowfish_PP($ARGV[0]);
print $blowfish->encrypt($ARGV[1]);Kod: Zaznacz cały
MSG=`perl blowfish.pl "tajny_klucz" "wiadomość"`Kod: Zaznacz cały
use Crypt::Blowfish_PP;
my $bf=new Crypt::Blowfish_PP($ARGV[0]);
print $bf->encrypt($ARGV[1]);skowron-line, myślę, że nie chodzi o to, że $bf jest puste (bo nie jestskowron-line pisze:el.pescado zrobiłem tak ( dodałem to "my" bo wypatrzyłem to w pliku blowfish.t )z tym ze po odpaleniu skryptu bash dostaje errorKod: Zaznacz cały
use Crypt::Blowfish_PP; my $bf=new Crypt::Blowfish_PP($ARGV[0]); print $bf->encrypt($ARGV[1]);
can't call method encrypt on empty value
no niebardzo wiem co i jak tzn wiem ze zmienna $bf jest pusta ale dlaczego ??
może trzeba jakoś dodać ten plik "Blowfish_PP.pm"
do tego skryptu pomocnieczego ???
), tylko że $ARGV[1] jest puste. Spróbuj odpalić ten skrypt z jakimś parametrem, który zostanie odczytany jako $ARGV[1]Kod: Zaznacz cały
use Crypt::Blowfish_PP;
my $bf=new Crypt::Blowfish_PP('klucz');
print $bf->encrypt('wiadomosc');
Kod: Zaznacz cały
Can't use method "encrypt" on an undefined value at line 3
print $bf->encrypt( 'wiadonosc');Kod: Zaznacz cały
#!/usr/bin/perl -w;
use Crypt::Blowfish_PP;
use strict;
my $bf=new Crypt::Blowfish_PP('klucz');
print $bf->encrypt('wiadomosc');el.pescado pisze:Zrób:Kod: Zaznacz cały
#!/usr/bin/perl -w; P.S. moduł Crypt::Blowfish_PP masz?[/quote] Mam te pliki co byly w paczce do ktorej link dalem kilka postow wyzej - CHANGELOG - MANIFEST - README - Makefile.PL - Blowfish_PP.pm - t [ dir ] - blowfish.t i tylko tyle wczesniej wyczytalem ze plik Blowfish_PP.pm musi byc w folderze crypto ale to nic nie daje p.s A może ktos pokaze jakis skrypt perl odpalany pod bashem z parametrem @NoName_1990 to napewno zmienna $bf poniewaz napisalem najbanalniejszy skrypt przekazujacy parametr i wyswietlajacy i dziala tak jak powinien ze zmienna tablicowa $ARGV[0]
Moduły perlowe najlepiej instalować za pomocą CPAN.Mam te pliki co byly w paczce do ktorej link dalem kilka postow wyzej
Kod: Zaznacz cały
sudo cpan
... za pierwszym razem program zapyta o konfigurację tego i owego ...
> install Crypt::Blowfish_PP
> quit[/quote]
Udało mi się uruchomić ten (mój;D) skrypt. W sumie dobrze jest poczytać dokumentację: [quote]The key is anywhere between 64 and 448 bits (8 and 56 bytes),[/quote]
To jest powód, dla którego nie działa - "klucz" to nie jest 8 bajtów.
[quote]encrypt(block)
The encrypt() method uses the initialised blowfish object to encrypt [b]8 bytes[/b] of data of the string passed to it. It returns the encrypted block.[/quote]Kod: Zaznacz cały
#!/usr/bin/perl
use Crypt::Blowfish_PP;
my $bf=new Crypt::Blowfish_PP(pack("H*","014933E0CDAFF6E4"));
print "not" if(!defined($bf));
my $in;
$in=$bf->encrypt("skowron");
print $in;
print "\n";
print $bf->decrypt($in);Kod: Zaznacz cały
use Crypt::Blowfish_PP;
my $bf=new Crypt::Blowfish_PP($ARGV[0]);
print $bf->encrypt($ARGV[1]);Kod: Zaznacz cały
use Crypt::Blowfish_PP;
my $bf=new Crypt::Blowfish_PP(pack("h16",$ARGV[0]));
print $bf->encrypt($ARGV[1]);Kod: Zaznacz cały
#!/usr/bin/perl -w
use strict;
use Crypt::CBC;
$cipher = Crypt::CBC->new( -key => 'my secret key',
-cipher => 'Blowfish'
);
$ciphertext = $cipher->encrypt("This data is hush hush");
$plaintext = $cipher->decrypt($ciphertext);
print "$plaintext\n";