- 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
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
sub captcha {
my $msg = $_[0];
## make colors for validation image into hex again ##
$rgb_foreground =~ s/\#//g;
$rgb_shade =~ s/\#//g;
$rgb_background =~ s/\#//g;
$r_f = substr($rgb_foreground,0,2);
$g_f = substr($rgb_foreground,2,2);
$b_f = substr($rgb_foreground,4,2);
$r_s = substr($rgb_shade,0,2);
$g_s = substr($rgb_shade,2,2);
$b_s = substr($rgb_shade,4,2);
$r_b = substr($rgb_background,0,2);
$g_b = substr($rgb_background,2,2);
$b_b = substr($rgb_background,4,2);
// Тут я вырезал кусок никчемного кода
$ci{' '} = qq~
.......
.......
.......
.......
.......
.......
.......
.......
.......
.......
~;
$ci{'!'} = qq~
.......
...X...
...X...
...X...
...X...
...X...
.......
...X...
.......
.......
~;
$ci{'"'} = qq~
.......
..X.X..
..X.X..
..X.X..
.......
.......
.......
.......
.......
.......
~;
$ci{'#'} = qq~
.......
..X.X..
..X.X..
.XXXXX.
..X.X..
.XXXXX.
..X.X..
..X.X..
.......
.......
~;
$ci{'$'} = qq~
.......
...X...
..XXXX.
.X.X...
..XXX..
...X.X.
.XXXX..
...X...
.......
.......
~;
// Дальше идет вся таблица ASCII
Вот таким вот образом выводили каптчу в далеком 2009 году. Очень надежный метод :)
istem 11.11.2010 22:02 # 0
Arigato 11.11.2010 22:03 # +1
istem 11.11.2010 22:11 # +2
istem 11.11.2010 22:12 # 0
Arigato 11.11.2010 22:14 # +1
Lure Of Chaos 11.11.2010 23:29 # 0
Arigato 11.11.2010 23:44 # +3
da4ever 11.11.2010 23:42 # 0
прекрасная идея изнасилованного системным программированием разума.
Oleg_quadro 12.11.2010 00:12 # +4
Мне бы такие нервы.
Анонимус 12.11.2010 02:40 # +2
хочу такую работу)
Arigato 12.11.2010 10:03 # −2
Качаем любой движок на перле, открываем код и копируем сюда. Вот так я это делал :)
eth0 12.11.2010 13:29 # +5
istem 12.11.2010 14:19 # +4
Lure Of Chaos 12.11.2010 22:02 # 0
Arigato 12.11.2010 22:09 # −1
ReallyBugMeNot 13.11.2010 13:19 # +1
2010, C