From f5b8e195f7fea3b8a3b1886a1e96f912b3198460 Mon Sep 17 00:00:00 2001
From: Victor Wagner <vitus@wagner.pp.ru>
Date: Tue, 18 Mar 2008 21:44:04 +0000
Subject: [PATCH] fixed typo

---
 forum/forum | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/forum/forum b/forum/forum
index cecacc3..3407034 100755
--- a/forum/forum
+++ b/forum/forum
@@ -463,8 +463,8 @@ sub register {
 	}
 	my $saltstring = 'ABCDEFGHIJKLMNOPQRSTUVWXUZabcdefghijklmnopqrstuvwxuz0123456789./';
 	my $salt = substr($saltstring,int(rand(64)),1).
-				substr($altstring,int(rand(64)),1);
-	my $password=crypt($cgi->param("pass1",$salt));			
+				substr($saltstring,int(rand(64)),1);
+	my $password=crypt($cgi->param("pass1"),$salt);			
 	my $userinfo = {passwd=>$password};
 	# Удаляем лишние поля
 	$cgi->delete("required");
-- 
2.39.2