One Hat Cyber Team

Your IP : 216.73.216.164

Server IP : 194.44.31.54

Server : Linux zen.imath.kiev.ua 4.18.0-553.77.1.el8_10.x86_64 #1 SMP Fri Oct 3 14:30:23 UTC 2025 x86_64

Server Software : Apache/2.4.37 (Rocky Linux) OpenSSL/1.1.1k

PHP Version : 5.6.40

Buat File | Buat Folder

Dir : ~/home/vo/perl/

Edit File: sock.pl

#!/usr/bin/perl -w
use strict;
use IO::Socket;
my($host,$port,$kidpid,$handle,$line,$logfile);
$host='cisco.niurr.gov.ua';
$port='telnet';

$logfile="debug";
$line="";

open (DEBUGFILE, ">>$logfile"); 
$handle = IO::Socket::INET->new(
    Proto	=>	"tcp",
    PeerAddr	=>	$host,
    PeerPort	=>	$port,
    )
    or die "cannot connect: $!";
    $handle -> autoflush(1);
#    print STDERR "connected: $!\n";
#    die "can't fork: $!" unless defined($kidpid=fork());

my $byte;

#    if($kidpid){    
     my $response;
     my $ccode;
     my $code;
     my $option;
     my $ooption;
     my %codes;
     my $now;
     
%codes=(240,"SE",241,"NOP",242,"DM",243,"Break",244,"IP",245,"AO",
        246,"AYT",247,"EC",248,"EL",249,"GA",250,"SB",251,"WILL",
	252,"WONT",253,"DO",254,"DONT");

while (sysread ($handle,$byte,1) ==1) {
	# one byte read
 	$response = ord $byte;
#	syswrite(DEBUGFILE, $byte, 1);
	# do process options?
        if($response==255){
	    # entering negotiation
	    sysread ($handle,$ccode,1);
	    $code=ord($ccode);
#	syswrite(DEBUGFILE, $ccode, 1);
#	    print $codes{$code};
	    if ($code >250){
	      #if do, don't, will, won't, read option
	      sysread ($handle,$option,1);
	      $ooption = ord($option);
#	syswrite(DEBUGFILE, $option, 1);
#	      print " $ooption ";
	      #and refuse all...
	      $byte=chr(255);
	      print $handle $byte;
	      if ($code == 253){
	          $code = 252;
	      }
	      if ($code == 251){
	          $code = 254;
	      }
	      $ccode=chr($code);
	      print $handle $ccode.$option;
#	      print $codes{$code};
#	      print " $ooption\n"
	    }
	}
	else{
	   # process data
	   $line= $line.$byte;
	    #log in first
	    if ($line=~/.*sername:\s/){
	      sleep 1;
	      print $handle "vo\n";
#	      syswrite ($handle, "vo\n", 3);
	      sleep 1;
	      print $handle "MustdiE\n";
	      $line="";
	    }
	    # dirty replacement
#	    if ($line=~/.*ssword:\s/){
#	      sleep 1;
#	      syswrite ($handle, "budkind!\n", 9);
#	      sleep 1;
#	      $line ="";
#	    }
	    # clear input line buffer
	    if ($line=~/.*sco>/){
	     last;
	    }
	    $code=ord($byte);
	    if ($code == 10){
	     $line ="";
	    }
    
	   }
	}
	#clear the database
#	print $handle "enable\n";
#	sleep 1;
#	print $handle "bht3lpzs\n";
#	sleep 1;
#	print $handle "clear ip accounting\n";
	print $handle "exit\n";
	
	#now login as nobody to get the list

$now=localtime;
print DEBUGFILE "Started $now\n";

$handle = IO::Socket::INET->new(
    Proto	=>	"tcp",
    PeerAddr	=>	$host,
    PeerPort	=>	$port,
    )
    or die "cannot connect: $!";
    $handle -> autoflush(1);

sleep 3;
print $handle "nobody\n";

while (<$handle>){
print DEBUGFILE;
print $handle " ";
}

print DEBUGFILE "\n";

close DEBUGFILE;