44.192.132.66 |    

Navigation

Google Advertisement

Script um Strings mit crypt() zu entschlüsseln und verschlüsseln.

crypt
  1. #!/usr/bin/perl
  2. use strict;
  3.  
  4. # Eingegebenes Passwort...
  5. my $pass='geheim';
  6.  
  7. # Verschluesseltes Passwort z.B. aus Datei...
  8. my $cpass='XPkzdnI74tF6E';
  9.  
  10. # **************************************************
  11. # checken ob Eingegebenes Passwort mit dem Verschluesselten
  12. # Passwort uebereinstimmt.
  13.  
  14. if (crypt($pass,encrypt($cpass)) eq $cpass) {
  15.     print "Passwort OK\n";
  16. } else {
  17.     print "Passwort Falsch\n";
  18. }
  19.  
  20. # **************************************************
  21. # Verschluesslungskey (salt) vom verschluesselten
  22. # Passwort ermitteln...
  23.  
  24. sub encrypt {
  25. my $pass=shift;
  26. return substr($pass,0,2);
  27. }
  28.  
  29. # **************************************************
  30. # Ein Verschluesseltes Passwort mit crypt() erzeugen.
  31. # Als Argument wird ein Passwort erwartet.
  32.  
  33. sub decrypt {
  34.  
  35. my $pass=shift;
  36. my $salt="";
  37. my @signs=('A'..'Z','a'..'z',0..9);
  38. for (1..10) {
  39.     $salt=join('',$signs[ rand(scalar(@signs)) ],$signs[ rand(scalar(@signs)) ]);
  40. }
  41. return crypt($pass,$salt);
  42.  
  43. }
Parsed in 0.002 seconds at 432.76 KB/s

Search
 
Full text search by name and content of a snippet.

User online
There are 4 users online.

Tags Cloud

Latest snippets
str2seconds
(Bash::Function)
is_integer
(Bash::Function)
file_rotate
(Bash::Function)
confirm
(Bash::Function)
is_workingtime
(Bash::Function)
last day of last month
(Bash::Snippets)
crypt_apr1_md5
(PHP::Function)
crypt_apr1_md5
(Perl::Function)
transparent
(CSS)
rfc2822Toiso8601
(PHP::Function)