Changeset 14368

Timestamp:

2007-08-14T12:41:24+12:00 (17 years ago)

Author:

qq6

Message:

added a rot13() to encrypt the password

File:

• greenstone3/trunk/web/WEB-INF/cgi/gsdlCGI4gs3.pm (modified) (1 diff)

greenstone3/trunk/web/WEB-INF/cgi/gsdlCGI4gs3.pm

@@ -321 +321 @@
 }
 
+sub rot13()
+{
+    my $self = shift @_;
+    my ($password)=@_;
+    my @password_arr=split(//,$password);
+    
+    my @encrypt_password;
+    foreach my $str (@password_arr){
+    my $char=unpack("c",$str);
+    if ($char>=97 && $char<=109){
+        $char+=13;
+    }elsif ($char>=110 && $char<=122){
+        $char-=13;
+    }elsif ($char>=65 && $char<=77){
+        $char+=13;
+    }elsif ($char>=78 && $char<=90){
+        $char-=13;
+    }
+    $char=pack("c",$char);
+    push(@encrypt_password,$char);
+    }
+    return join("",@encrypt_password);
+}
+
 1;