1
2
3
4
5
6
7
8
9
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
|
#!/usr/bin/perl
use lib "blib/lib";
use IO::Socket::Socks;
use FileHandle;
$| = 1;
my $socks = new IO::Socket::Socks(ProxyAddr=>"127.0.0.1",
ProxyPort=>"8888",
ConnectAddr=>"127.0.0.1",
ConnectPort=>7979,
AuthType=>"userpass",
#Username=>"12345678901234",
#Password=>"bar",
Username=>"afoo",
Password=>"bar",
SocksDebug=>0,
);
if (!defined($socks))
{
die($SOCKS_ERROR);
exit(1);
}
print $socks,"\n";
print $socks "foo\n";
#&_send($socks,new FileHandle("/home/reatmon/.cshrc"));
$socks->close();
sub _send
{
my $sock = shift;
my $data = shift;
if (ref($data) eq "")
{
my $length = length($data);
my $offset = 0;
while ($length != 0)
{
my $written = $sock->syswrite($data,$length,$offset);
$length -= $written;
$offset += $written;
}
}
if (ref($data) eq "FileHandle")
{
while(my $temp = <$data>)
{
my $length = length($temp);
my $offset = 0;
while ($length != 0)
{
my $written = $sock->syswrite($temp,$length,$offset);
$length -= $written;
$offset += $written;
}
}
}
}
|
