Спампер на шелах

anonym_di · 21 Nov 2012

Поделитесь пожалуйста у кого есть, даже если уже не актуальный, нужна сама система работы клиент сервер!

Партнёр · 21 Nov 2012

Спампер на шелах
спамер на шеллах?
то есть код?

anonym_di · 21 Nov 2012

Да то есть код самого спамера.

Партнёр · 21 Nov 2012

JeDaSe said:
Это только пример написания
Кидаем на форму TIdHTTP и TIdCookieManager, остальное по желанию
Далее берём какой-нибудь http анализатор к примеру HTTPAnalyzer
Смотрим что отправляет браузер при входе и что нам отправляет сервер в ответ
Серверу мы отправляем пароль и мыло
Code:
Var
 Res:string;
 Data:TStringList;
Begin
Data:=TStringList.Create;
Data.Add('op=a_login_attempt');
Data.Add('[email protected]'); //Логин
Data.Add('pass=123456');         //Пароль
res:=http[n].Post('http://vkontakte.ru/login.php',Data);
data.Clear;
if res='failed' then begin 
  memo1.lines.add('Не верный логин/пароль');
  exit;
end;
Заполняем логин и пароль и отправляем пост запрос на сервер, если сервер возращает failed то пароль или логин не верный и мы выходим(либо берём другой логин и пароль)
При посылке там произошёл редирект, значит делаем так
Code:
http.HandleRedirects:=true;
http.AllowCookies:=true;
И сервер нам вернул куки, но они почему то не записались в менеджер(злые дяди поставили точку пред доменом) в сети много вариантов обхода этого, но самый простой:
Code:
cook:=http.Response.RawHeaders.CommaText;
repeat
delete(cook,1,Pos('Set-Cookie:',cook)+11);
Cookie.AddCookie(copy(cook,0,Pos(';',cook)-1),'vkontakte.ru');
until Pos('Set-Cookie:',cook)=0;
 
Ура мы вошли!
Теперь надо отправить сообщение, опять смотрим через анадизатор что там браузер передаёт и что принимает
Всё понятно кроме некого параметра chas(он находиться в форме), значит выдираем его от туда
Code:
 
Chas:=http.GET('http://vkontakte.ru/mail.php?act=write&to='+Id);
delete(Chas,1,Pos('name="chas"',Chas)+18);
Chas:=copy(Chas,0,Pos('"',Chas)-1);
Ну теперь можно отправлять
Code:
      Chas:=http.GET('http://vkontakte.ru/mail.php?act=write&to='+id]);
      delete(Chas,1,Pos('name="chas"',Chas)+18);
      Chas:=copy(Chas,0,Pos('"',Chas)-1);
      Mes.add('act=sent');
      Mes.add('ajax=1');
      Mes.add('misc=');
      Mes.add('secure=3ae6');
      Mes.add('chas='+Chas);
      Mes.add('photo=0');
      Mes.add('to_id='+id);
      Mes.add('to_reply=0');
      Mes.add('toFriends=');
      Mes.add('title='+ titleText);
      Mes.add('message='+messageText);
      res:=RussianToUnicode(Http.Post('http://vkontakte.ru/mail.php', Mes));
      if Pos('отправле',res)<>0 then //Result:='Отправленно';
      Mes.Clear;
Тут ещё есть функция RussianToUnicode
Code:
function RussianToUnicode(S:string): String;
var
 Wrd:Word;
 pW,pR:Pword;
 len:integer;
begin
  pW:=@s[1];
  len:=length(S);
  setLength(Result,len);
  pR:=@Result[1];
  while Len<>0 do begin
    Wrd:=pW^;
    case Wrd of
      $C0..$DF,$E0..$FF:pr^:=Wrd+$0350;
      else pR^:=WRD;
    end;
    inc(pW);
    inc(pR);
    dec(Len);
  end;
end;
Click to expand...
вот на , с тебя 100 баксов

anonym_di · 21 Nov 2012

а на php нету ?

Партнёр · 21 Nov 2012

а на php нету ?
Click to expand...

ненавижу наглых. нету

anonym_di · 21 Nov 2012

партнер said:

ненавижу наглых. нету
Click to expand...

ну ладно ) спасибо за это )

DJ4J · 21 Nov 2012

партнер
А я глупых недолюбливаю.
Человек попросил спамер на php.Чтобы с шелла отправлять.
Каким хреном, расскажи мне пожалуйста, можно запустить то что ты скинул с шелла?
Может теперь прямо из браузера можно экзешники запускать?

Bramin · 21 Nov 2012

Зайди в тему полезные скрипты, там есть то что ты ищешь.

anonym_di · 21 Nov 2012

Посмотрел тот топик кое что нашёл) а может у кого-то есть сорцы спам бота ? хотя бы старые.

Чакэ · 21 Nov 2012

автор анонимус.

Спампер на шелах

anonym_di Member

Партнёр Member

anonym_di Member

Партнёр Member

anonym_di Member

Партнёр Member

anonym_di Member

DJ4J Member

Bramin Banned

anonym_di Member

Чакэ Elder - Старейшина

Useful Searches

Спампер на шелах

anonym_di Member

Партнёр Member

anonym_di Member

Партнёр Member

anonym_di Member

Партнёр Member

anonym_di Member

DJ4J Member

Bramin Banned

anonym_di Member

Чакэ Elder - Старейшина