KARNIVAL BUKU@UTHM 2013‏

Linux : Tukar nama pengguna

# usermod -l <nama_baru> <nama_lama>

Batch : Windows Cleaner Log

@echo off
color A
title Madleets log remover by madcode
echo welcome to madleets events log cleaner :)
pause
FOR /F "tokens=1,2*" %%V IN ('bcdedit') DO SET adminTest=%%V
IF (%adminTest%)==(Access) goto madadmin
for /F "tokens=*" %%G in ('wevtutil.exe el') DO (call :clear "%%G")
echo.
echo Logs cleard :)
goto madleets
:clear
echo clearing %1
wevtutil.exe cl %1
goto :eof
:madAdmin
echo Please run me with admin privalges
:madleets

pause
echo Madleets.com
pause

Python : Wordlist generator

#!/usr/bin/env python 
# -*- coding: UTF-8 -*- 

from getopt import getopt 
from itertools import product 
from sys import argv,exit 

def banner(): 
    print '''[*] Wordlist Generator | Made by MMxM 
Options:  
    -c <characters that will be used> 
    -m <minimum of characters> 
    -x <maximum of characters> 
    -o <output file> 

Example: 
    %s -c abcdefghijklmnopqrstuvwxyz -m 5 -x 10 -o /root/wordlist.txt 
'''%argv[0] 


try: 
    min = 0
    max = 0
    file = None
    caracteres = None
    opts,args = getopt(argv[1:],"m: x: o: c:") 
    for opt, a in opts: 
        if opt == "-m": min = a 
        if opt == "-x": max = a 
        if opt == "-o": file = a 
        if opt == "-c": caracteres = a 

    if min > max: banner();exit(1) 
    if caracteres == None: banner();exit(1) 
    if file == None: banner();exit(1) 
    arq = open(file,"w") 
    caracteres = list(str(caracteres)) 

    print '\n[*] Building Wordlist ...\n'

    for n in range(int(min),int(max)+1): 
        for w in product(caracteres,repeat=n): 
            word = ''.join(w) 
            arq.write("%s\n"%word) 

    print '[+] Generated Wordlist !!!\n[+] File => %s\n'%file
    arq.close()
except: 
    exit(1)

VB.NET : Port Scanner

Imports System.Net.Sockets
Imports System.Net
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.CheckForIllegalCrossThreadCalls = False 'Now you can Add items through a thread
        For i As Integer = NumericUpDown1.Value To NumericUpDown2.Value
            Dim tmpThread As New System.Threading.Thread(AddressOf ScanPort)
            tmpThread.IsBackground = True
            tmpThread.Start(i) 'i represents the current port 
        Next
    End Sub
    Private Sub ScanPort(ByVal port As Integer)
        Try 'Always put your code [or more complicated code] in a Try Catch Block :]
            Dim tmpClient As New TcpClient()
            Dim tmpEndPoint As New IPEndPoint(IPAddress.Parse(TextBox1.Text), port)
            tmpClient.Connect(tmpEndPoint)
            Threading.Thread.Sleep(50) '50 is the Timeout in ms.
            If tmpClient.Connected = True Then
                ListBox1.Items.Add("Open Port: " & port) 'If Connected then it will be an open port
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class