- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
<?php
// Генерируем картинку для капчи, цифры и латынские литеры
// PHP код:
function rnd_str($str_size=1){
$str='';
$chars= array(
'a', 'b', 'c', 'd', 'e',
'f', 'g', 'h', 'i', 'j',
'k', 'l', 'm', 'n', 'o',
'p', 'q', 'r', 's', 't',
'u', 'v', 'w', 'x', 'y',
'z',
'A', 'B', 'C', 'D', 'E',
'F', 'G', 'H', 'I', 'J',
'K', 'L', 'M', 'N', 'O',
'P', 'Q', 'R', 'S', 'T',
'U', 'V', 'W', 'X', 'Y',
'Z'
);
for( $i=0; $i<$str_size; $i++ ){
$num= true;
if( rand(0,1) == 1 ) $num= false;
if($num) $str.= rand(0,9);
else $str.= $chars[rand(0,sizeof($chars)-1)];
}
return $str;
}
?>
<?php
// пример
// PHP код:
echo rnd_str();
?>
...Внезапно наткнулось...
> Важная информация
> 27.03.2010 - Ура! Форуму OnlyWM - 1 месяц
istem 29.10.2010 19:20 # −2
3.14159265 29.10.2010 20:25 # 0
Говно - достойное сего ресурса.
только массив $chars чего стоит и пляски с $num.
кстати почему не создан массив чисел?
Govnocoder#0xFF 29.10.2010 21:34 # 0
istem 29.10.2010 22:29 # 0
Uchkuma 30.10.2010 01:17 # +3
Arigato 30.10.2010 10:50 # +3
koodeer 30.10.2010 23:30 # +2
Попадались капчи с русскими и английскими буквами вперемешку: хрен угадаешь, на каком там языке А О Т и пр.
Uchkuma 30.10.2010 01:06 # +3
Анонимус 30.10.2010 02:47 # +4
bugmenot 30.10.2010 16:12 # +1
Uchkuma 30.10.2010 01:09 # 0
istem 30.10.2010 01:27 # 0
http://www.onlywm.ru/showthread.php?t=31
только не пугайтесь...
Uchkuma 30.10.2010 08:37 # 0
Вот как надо передавать параметры в функцию!
Nerd 30.10.2010 17:46 # 0
bugmenot 30.10.2010 17:53 # +1
istem 30.10.2010 18:47 # +1
istem 30.10.2010 21:37 # +2
seonull 31.10.2010 07:45 # −1
Анонимус 01.11.2010 02:06 # 0
Все это делает программы на перле более структурированными.
seonull 01.11.2010 06:25 # +1
Сам написал немало на перл, но собираюсь перелазить на .нет - надоело говно.
Анонимус 01.11.2010 11:18 # +1
только причем тут документация?
.net это платформа а не язык, бывает perl под .net.
у Вас каша какая-то
seonull 01.11.2010 12:02 # 0
про .net я как бы в курсе.
Анонимус 01.11.2010 12:32 # −1
Я не очень понимаю, чем http://perldoc.perl.org/Cwd.html хуже phpшной доки или msdnа.
seonull 01.11.2010 13:41 # −1
вы не задумывались, почему к примеру справка в майкрософт не состоит из winfgrfbve, winfhtverwe, winfhlverwe и т.д.?
Анонимус 01.11.2010 17:45 # −1
2) у микрософт есть еще круче: Q242450
istem 30.10.2010 01:29 # +1
eth0 30.10.2010 10:45 # +7
iqorek 01.11.2010 19:03 # 0
j0kz 30.10.2010 13:53 # 0
Oleg_quadro 30.10.2010 18:27 # 0
Хорошо, что он не подбирал буквы так:
$rand = (0, 61);
switch($rand) {
....
case 10: $str .= 'a'; break;
....
}
Так что он верной идёт дорогой. Воздержусь от голосования.
Uchkuma 30.10.2010 22:19 # 0
И не факт, что дойдет.
Lure Of Chaos 31.10.2010 14:14 # 0
эм, а где здесь картинка?
koodeer 31.10.2010 16:55 # 0
istem 31.10.2010 18:05 # +1
Lure Of Chaos 31.10.2010 18:56 # +2