上のディレクトリへ
	calendar.cgi
	multiupload.cgi
	subdir

変数名	スカラー	配列	ハッシュ
history	●	●		historyを編集
admin_mail	●	●		admin_mailを編集
ver	●	●		verを編集
access	●	●		accessを編集
path	●	●	●	pathを編集
mode	●		●	modeを編集
subdir	●	●		subdirを編集
sort	●		●	sortを編集
pass	●		●	passを編集
user	●	●		userを編集
dir	●		●	dirを編集
param	●		●	paramを編集
mail	●	●	●	mailを編集
size	●		●	sizeを編集
decode_name	●		●	decode_nameを編集
perm	●	●		permを編集
download	●		●	downloadを編集
tm	●		●	tmを編集
tmp	●	●		tmpを編集
value	●	●		valueを編集
val	●		●	valを編集
oval	●	●		ovalを編集
time	●		●	timeを編集
kigen	●	●		kigenを編集
html	●	●		htmlを編集
raw_pass	●	●		raw_passを編集
msg	●	●		msgを編集
url	●	●		urlを編集
t	●	●		tを編集
rpass	●		●	rpassを編集
htac	●	●		htacを編集
del_htac	●		●	del_htacを編集
d	●	●		dを編集
new_raw_pass	●	●		new_raw_passを編集
dlmail	●		●	dlmailを編集
max_day	●		●	max_dayを編集
max_down	●		●	max_downを編集
new_user	●	●		new_userを編集
str	●	●		strを編集
salt	●	●		saltの編集をキャンセル
host	●		●	hostを編集
cook	●	●	●	cookを編集
dir_user		●	●	dir_userを編集

$salt → $
@salt → @

4923行目  my @salt = ('a'..'z', 'A'..'Z', '0'..'9');
4926行目  $passdir .= $salt[int(rand(@salt))];
5098行目  my @salt = ('a'..'z', 'A'..'Z', '0'..'9');
5103行目  $passdir .= $salt[int(rand(@salt))];
5180行目  my @salt = ('a'..'z', 'A'..'Z', '0'..'9');
5183行目  $passdir .= $salt[int(rand(@salt))];
5530行目  my(@SALT, $salt, $encrypt);
5536行目  $salt = $SALT[int(rand(@SALT))] . $SALT[int(rand(@SALT))];
5537行目  $encrypt = crypt($inpw, $salt) || crypt ($inpw, '$1$' . $salt);
5550行目  my $salt;
5552行目  $salt .= $str[int(rand(@str))];
5554行目  $encrypt = $salt . md5_hex($salt . $inpw);
5556行目  my(@SALT, $salt);
5559行目  $salt = $SALT[int(rand(@SALT))] . $SALT[int(rand(@SALT))];
5560行目  $encrypt = crypt($inpw, $salt) || crypt ($inpw, '$1$' . $salt);
5578行目  my($salt, $check);
5579行目  $salt = $logpw =~ /^\$1\$(.*)\$/ && $1 || substr($logpw, 0, 2);
5581行目  if (crypt($inpw, $salt) eq $logpw || crypt($inpw, '$1$' . $salt) eq $logpw)
5588行目  my($salt, $check);
5591行目  my $salt = substr($logpw, 0, 8);
5594行目  if ($logpw eq ($salt . md5_hex($salt . $inpw))) {
5600行目  $salt = $logpw1 =~ /^\$1\$(.*)\$/ && $1 || substr($logpw1, 0, 2);
5602行目  if (crypt($inpw, $salt) eq $logpw1 || crypt($inpw1, '$1$' . $salt) eq $logpw1) {
5625行目  my @salt = ();
5627行目  push(@salt,('a'..'z', 'A'..'Z'));
5630行目  push(@salt,('0'..'9'));
5633行目  push(@salt,('\\','!','$','%','\'','\(','\)','=','-','^','~','`',':','*','?','/','_','<','>','\,','.','|','[',']','{', '}','｢','｣','･','@'));
5637行目  $auto_pass .= $salt[int(rand(@salt))];
6066行目  my @salt = ('a'..'z', 'A'..'Z', '0'..'9');
6070行目  $login_id .= $salt[int(rand(@salt))];