告知欄です

---

板 1- 前 次 新 ﾚｽ

厨房統一スレッドPart27

---

[935]名無しさん(ザコ)：2007/04/19(木) 03:09:21 ID:JQPO5dYY0
cbbs.cgi配布元で落として覗いてみたが、想像を絶する醜悪なソースだ
未だにperl4引きずってるし、よい子は真似しちゃいかんね
で、>>931への回答はこれ
if($pUID eq "n"){
　　　　$pUID="";
　　　　@UID = ('a'..'z','A'..'Z','0'..'9');
　　　　srand;
　　　　$pUID.="$UID[int(rand(62))]"; $pUID.="$UID[int(rand(62))]";
　　　　$pUID.="$UID[int(rand(62))]"; $pUID.="$UID[int(rand(62))]";
　　　　$pUID.="$UID[int(rand(62))]"; $pUID.="$UID[int(rand(62))]";
　　　　$pUID.="$UID[int(rand(62))]"; $pUID.="$UID[int(rand(62))]";
　　　　&set_("I","$pUID");
}
大文字小文字数字の計62文字からrand()で決定してるだけ

---

前 次

---

0ch BBS 2005-06-05