Форум АНТИЧАТ - Ищу скрипт раздачи WM бонусов на сайте

#11

27.03.2009, 00:12

heretic1990

Постоянный

Регистрация: 02.07.2008

Сообщений: 472

Провел на форуме:
3728999

Репутация: 444

Выкладываю барыгам назло.

Скрипт RBonus v0.1

Скрипт предназначен для раздачи WM бонусов на своем сайте.
Требования к хостигу:
- поддержка php

Возможности и принцип работы:
- получение бонуса только раз в сутки с одного WMID
- Файл main.php содержит форму ввода кошелька. Ее можно вставить также в существующий скрипт в удобное место, т.к. кроме html кода там ничего нет.
- После вода кошелька и при нажатии кнопки, выполнение сценария передается файлу bonus.php
Он проверяет Правильность ввода кошелька, узнает WMID, проверяет, получали ли сегодня бонус с этого WMID
Затем делает запись кошелька в cvs файл в формате, пригодном для отправки через masspayment.
Вам остается только раз в сутки забирать сам файл и делать отправку через masspayment.wmtransfer.com

Установка:
Откройте bonus.php в блокноте. и измените настройки - размер бонуса, волюта бонуса, комментарии выплатб А также сообжения об успешном приеме данных и об ощибке
создайте на хосте папку, установите права доступа 777, залейте в нее файлы, установите для них права 666.
ДЛя раздачи на сайте укажите ссылку в нужном месте на main.php, или расположите html код из этого файла (начиная с <form ..
и заканчивая </form>) В нужное место вашей странички..

bonus.php

PHP код:


		
			
<?php

$r="R";      // тип валюты бонусов



Error_Reporting(E_ALL & ~E_NOTICE);





$message="Бонус "; // текст примечания к бонусу

$bonus="0.02"; // по сколько будем раздавать;

$err=0; // индикатор ошибки обнуляем



$ch=curl_init();

curl_setopt($ch,CURLOPT_URL,"http://passport.webmoney.ru/asp/certview.asp?purse=$koshel");

curl_setopt($ch,CURLOPT_RETURNTRANSFER,1);

curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, 0);

curl_setopt($ch, CURLOPT_REFERER , "");

curl_setopt($ch, CURLOPT_TIMEOUT, 30);

$output=curl_exec($ch);

preg_match('~WMID\#([0-9]{12})</td>~si',$output,$tdump);



$WMID = $tdump[1]; // узнали wmid по кошельку и присвоили его значение $WMID

settype($WMID, integer);

// прием данных окончен





if ($koshel[0]!=$r) { $err=1;} // если буква кошелька не та, что нужно, от нафиг

if ($WMID==0){ $err=1;} // номер кошелька не верен, возвращаем ошибку

if ($err==0){

// проверка закончена, начинаем работать

$date=date("dnY"); // сегодняшняя дата;

$csvFile=$date.".csv"; // задаем имя csv файла

$wmidFile=$date.".wmid"; // задаем имя файла с архивом wmid за сегодня;



$fp=fopen($wmidFile, "a+");  // открываем  файл с wmid для проверки

$wmidPrint=file($wmidFile); // отправляем этот файл в массив



// Перебираем массив в поисках $WMID

foreach ($wmidPrint as $value)

{

if ($value==$WMID){ $err=1; break; } // если wmid уже есть, возвращаем значение ошибки true

}

settype($WMID, string);

fclose($fp);

}





// проверяем наличие ошибки и...

if ($err==0) {

$fp=fopen($wmidFile, "a+"); // открываем файл wmid для записи

$wmData=$WMID."\n";

fputs($fp, $wmData); // записываем WMID в файл

fclose($fp);



$fp=fopen($csvFile, "a+"); // открываем наш csv файл



$csvData=$koshel.";".$bonus.";".$message.";"."\n" ; // формируем строку файла



fputs($fp, $csvData); // записываем строку в файл

fclose($fp);



echo "ждите получения бонуса" ;

}

else

{



echo "Ошибка" ;}

?>

Форма:
main.php

Код HTML:

<html><body>
<form method=post action="bonus.php">
Введите  R кошелек: <input type=text name=koshel><br>
<input type=submit value="Получить' >
</form>
</body></html>

Последний раз редактировалось heretic1990; 27.03.2009 в 00:15..