Re: 没root的手机的 “Internet 传输”，建立Reverse-Tethering高速连接
发表于 ： 2013-08-20 16:04
我已完美解决所有问题。我补了简单的pl。
代码： 全选
● cat htcsock.pl
#!/usr/bin/perl
use IO::Socket::INET;
#6000/tcp open X11
do{
open IN,"/proc/net/arp"; @arp=<IN>; close IN;
@d=grep ! /00:00:00:00:00:00/,grep /0x2.*usb0/,@arp;
} until($d[0]);
$_=$d[0]; s/\ .*//; chomp; print "sock:\t$_\n";
my $sock = IO::Socket::INET->new(PeerAddr => $_ , PeerPort => 6000, Type=>SOCK_STREAM, Proto=>"tcp") or die "Can not create socket connect.$@\n";
print $sock "\x00\x02\x00\x00"; receivesock();
print $sock "\x00\x03\x00\x00"; receivesock();
print $sock "\x00\x05\x00\x00";
close $sock;
sub receivesock{
local $/=\4;
print "Receive: --"; print unpack "H*",<$sock>; print "--\n";
}