A message for Linux.com registered users: We are in the process of making changes to the Linux forums. Starting Monday, 8/13/18 at 6:00 PM PT, you will be unable to access the forums. They will re-launch as soon as possible on Wednesday, 8/15/18 with new features and improved functionality. Thank you for your patience and stay tuned for the new improved forums.

March 27, 2011

remote ip with perl script tools


Assalamualaikum war,wab.
hello brother..
last time i had coding new script perl
with this scropt we can remote computer with ip and port from Linux..
its usefull for me..
so chck these out

#!/usr/bin/perl -w
# connect and send commands to remote ip:port.
# the tor network is used for anonymity.
# usage: perl eript.pl <ip> <port>
# Rizky Ariestiyansyah
# greetz : Devilzc0de . Indonesiancoder . IndonesianHacker . Id-backtrack

use strict;
use Net::SOCKS;

my ($sock, $conn, $pid);

# setup tor connection (defaults are used)
$sock = new Net::SOCKS
(socks_addr => '',
socks_port => 9050,
protocol_version => 4 ) || die "$!\n";

$conn = $sock->connect
(peer_addr => $ARGV[0],
peer_port => $ARGV[1]) || die "$!\n";

print "port $ARGV[1] is open\n";


$pid = fork();
if ($pid) {
while(<$conn>) {
print $_;
kill("TERM" => $pid)
} else {
print ">> ";
while(<STDIN>) {
print $conn "$_\n";

i hope this usefull for u,,
the tutor include in the script..

just run script with

perl source.pl




:woohoo: :P

Click Here!