Преобразование картинки BL Webmoney в текст

[zerokko]

Преобразование картинки BL Webmoney в текст

Скрипт позволяет выводить BL (бизнес уровень) WebMoney в виде текста.

Сам скрипт:

<?php

/************************************************** *********************

(C)2008 DarkWeb - http://darkweb.ru
запуск скрипта по примеру http://www.darkweb.ru/bl.php?id=651479970248
wmid (651479970248) подставляем необходимый и вынимаем своей функцией

************************************************** **********************/

function itfalse($x)
{
global $se; $ok=0;
for ($j = 3; $j < 15; $j++)
{
if ($se[$x][$j] == 40) { $ok++; }
} return $ok;

}
function iscount2($x,$y)
{
if (($x == 7) and ($y == 7)) { return 0; }
if (($x == 1) and ($y == 0)) { return 1; }
if (($x == 3) ) { return 2; }
if (($x == 2) and ($y == 6)) { return 3; }
if (($x == 2) and ($y == 1)) { return 4; }
if (($x == 6) and ($y == 5)) { return 5; }
if (($x == 7) and ($y == 4)) { return 6; }
if (($x == 1) and ($y == 2)) { return 7; }
if (($x == 6) and ($y == 6)) { return 8; }

if (($x == 4)) { return 9; }
}
function iscount($x,$y) //1 2 digit
{
if ( ($x == 1) and ($y == 0) ) { return 1; }
if (($x == 5) and ($y == 4)) { return 2; }
if (($x == 2) and ($y == 7)) { return 3; }
if (($x == 2) and ($y == 10)) { return 4; }
if (($x == 7) and ($y == 5)) { return 5; }
if (($x == 8) and ($y == 5)) { return 6; }
if (($x == 1) and ($y == 3)) { return 7; }
if (($x == 7) and ($y == 7)) { return 8; }
if (($x == 5) and ($y == 8)) { return 9; }
if (($x == 8) and ($y == 8)) { return 0; }

}

$wmid = file_get_contents('http://stats.wmtransfer.com/Levels/pWMIDLevel.aspx?wmid='.$_GET['id'].'&w=35&h=18&bg=0XDBE2E9');
$img = imagecreatefromstring($wmid);
for ($i = 4; $i < 35; $i++)
{
for ($j = 3; $j < 15; $j++)
{
$se[$i][$j] = (imagecolorat ($img, $i, $j));
}
}
$is = false;
$w = '';

if ( (itfalse(4) ==6 ) and (itfalse(5) ==7 ) and (itfalse(6) ==1 ) and (itfalse(7) ==2 ) and (itfalse(8) == 7 ) )
{
$is = true;
$w='no';
}

if (!( itfalse(18) or itfalse(20) or itfalse(19) or ($is) ) )
{
//one digit

$p1 = itfalse(23,$se);
$p2 = itfalse(28,$se);
$w = (iscount($p1, $p2));
$is = true;
}

if ( ! ( itfalse(13) or itfalse(14) or itfalse(12) or ($is) ) )
{
//two digit

$p1 = itfalse(17,$se);
$p2 = itfalse(22,$se);
$w = (iscount($p1, $p2));

$p1 = itfalse(25,$se);
$p2 = itfalse(30,$se);
$w .= (iscount($p1, $p2));
$is = true;
}

if (!( itfalse(7) or itfalse(8) or itfalse(6) or ($is) ) )
{

//tree digit
$p1 = itfalse(11,$se);
$p2 = itfalse(16,$se);
$w = (iscount2($p1, $p2));

$p1 = itfalse(18,$se);
$p2 = itfalse(23,$se);
$w.=(iscount2($p1, $p2));

$p1 = itfalse(25,$se);
$p2 = itfalse(30,$se);
$w.= (iscount2($p1, $p2));
$is = true;
}
if ($is == false)
{

$p1 = itfalse(6,$se);
$p2 = itfalse(11,$se);
$w = (iscount2($p1, $p2));

$p1 = itfalse(13,$se);
$p2 = itfalse(18,$se);
$w.= (iscount2($p1, $p2));

$p1 = itfalse(20,$se);
$p2 = itfalse(25,$se);
$w.= (iscount2($p1, $p2));

$p1 = itfalse(27,$se);
$p2 = itfalse(32,$se);
$w.= (iscount2($p1, $p2));
}
echo($w);
?>

(C)2008 DarkWeb - http://darkweb.ru

Всем удачи и приятного времяпровождения =) С уважением, zerokko, скопиастил этот пост на просторах сети... :rolleyes:

[inlanger]

А зачем?

[zerokko]

А зачем?
Как сабж почему бы и нет???))) Трафа меньше, хоть не на много :D Можно для сравнения БЛ юзать например))) Была бы фантазия, можно было бы доделать под свои нужды =)))

[HANCHES]

А зачем?
ну например на сайте фирмы

[inlanger]

Когда BL картинкой, адрес которой сервер вебманей, к ней и доверие как к показателю BL. А текст я могу любой написать ;)
Так что скрипт просто чтобы показать как работать с картинкой... Может даже с простой капчёй.

[wildshaman]

Эх, если б еще с комментами код...

[zerokko]

wildshaman, угу =))) В принципе код легкий))) А я выложил в таком состоянии, в каком скопиастил =)))

[wildshaman]

wildshaman, угу =))) В принципе код легкий))) А я выложил в таком состоянии, в каком скопиастил =)))

Мне, если честно, не понятен код, хотя всегда интересовался таким...

[m0Hze]

Мне, если честно, не понятен код, хотя всегда интересовался таким...
Сравнение пикселей

[mr.The]

Мне, если честно, не понятен код, хотя всегда интересовался таким...
https://forum.antichat.ru/showpost.php?p=1103212&postcount=617
у меня сделано по другому. посмотри, может понятнее будет.