Added: 4 years ago
From: Shoft
Views: 111,010
Sort by time | Sort by thread (beta)

Link to this comment:

Share to:
see all

All Comments (164)

Sign In or Sign Up now to post a comment!
  • krak,esse video apareceu na record

  • Caralho que som chato esse viu

    ai galera pra quem quer baixar um progama pra roubar senhas usa esse

  • Essa Porta (Port) é diferente em cada pc ? Eu fiz no notebook não sei se tem diferença '-'

  • SHOFT MANDA OR COMANDOS PARA BAIXAR POR FAVOR

    TA DANDO ERRO NO COMANDO ABRE CD ENO FECHA CD

  • cara e ate boazinha a video aula mais TIRA A PORRA DO SOM DO TECLADO ISTO IRRITA MUUUUUUUUUUUUUUITOOOOOOOOOOOOO­OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO­OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO­OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO­OOOOOOOOOOOOOOOOOOOOOOO

  • Comment removed

  • ahhh velho... vai aprender a identar teu código antes de postar um vídeo.

  • curti mas aew se eu quizer fazer um com conexão reversa em vez de eu por o comando de conectar no servidor funciona?

    em vez de por o bagui de por o ip no edit 1 eu posso por direto o no-ip meu assim a vitima se conecta a mim e o resto eh comigo neh?

  • pra que serve isso? da pra faze um que mande o login e senha de uma pessoa que jogue habbo?

  • pow favor me ajuda a baixar um trojan sem virus o shark me manda ai

  • é um teclado ou uma maquina de escrever? '-'

  • label1.caption:='Conectado';

  • delphi7,i tlove you

  • Gostei,boa video aula.

    Abraços

  • Olá shoft se suportar o um projeto em delphi 7 você pagar € 300.

    entre em contato comigo para IM malkom24@hotmail.c

  • to com uma duvida pelo trojan

    vc manda para vitima oq

    o servidor ou projeto la

    ?

    ai eu mando quando ele abrir oq eu fasso?

    se eu colocar "abrir cd" oq acontece com a vitima?

    obrigado

    estarei arguardando a sua resposta

  • @BillyTecoXandy

    ele manda o servidor xD

  • tem como fazer trojan .exe com esse programa??????????

  • *-* me passa msn? tem como me passar o link do dowload? Obg. agradecço OBS: video aula muito boa :D

  • putz lammers picaretas

    usem um gravador de tela sem essa porra de barulho de maquina de datilografar

  • velho '-' isso é programaçao mto basica

    passa algo mais complicado ?

    mto complexo :D

    e nao com erros qe nem esse tem ai

  • meu esse barulho da maquina de escrever irrita pra kct!!

  • eu desisti de ver o video por causa do teclado dele faz muito barulho e e irritante

  • Comment removed

  • Genio,,,,,,no video tem uma barra que se chama volume....so tu mexe nela saco ;)

  • @BrunoValente282

    Então desliga o som, gênio...

  • cara, bom tuto, mas nao esta funcionando.

    enquanto está em testes no localhost (127.0.0.1) ele funciona normalmente, mas na internet nao ta funcionando. da uma ajuda ae...

  • can you uplad the dclsockets70.bpl and give me the download link?

  • @Hackenxl100

    No próprio delphi (7) já vem é só instalar o pacote.

  • Como você conseguir ter o botão "Internet" no topo da página?

  • Podiam me dar o link download do delphi 7 n consigo encontrar

    cumpz ;)

  • @Mig4ngMt2

    Se ainda nao conseguiu baixar procure no google como se estivesse prourando imagenspr exemplo: download delphi 7.

  • @programmerfull pow favor me ajuda a baixar um trojan sem virus o shark

  • ae alguem pode colocar o site de download ae porq nao to axando na internet os que eu axo eu nao consigo abrir =\ quem puder me ajudar eu agradeço

  • coloque um ediitii kkk baianinho programadorzinho

  • pau no cú!

  • Me ajudou muito na escola..(TCP/IP)

  • Comment removed

  • aff que bom

  • muito bom

  • em Shoft porque vc nao faz um Trojan para abrir o cu do eduardo14able.

    vlw vo ficar esperando o desenvolvimento desse trojan.

    kkkkkkkkkkk

  • LOL olha o comentario do eduardo, para de falar merda, é só um trojan, ninguem precisa de um bixo como vc, -.-

  • Tu é quem ,tu é o "oxente"??

    Mas que porra de lixo podre é essa merda ae ?

    Uma máquina de escrever o bagulho ?

    ahh,legal o código ae..

    mas sou um cara sério quanto a criar programas .

    Útil cara fazer um programa de resposta personalizado para falar com o cliente etc...

    Falo .

  • um trojan local é foda =D

    meu pc não conecta :(

    k pena...

  • Cara eu recomendo mudar o capition pra outro nome em vez de form1 e tbm trocar o icone ;xD;

  • ótimo, existe um erro, Quando vc executa ele, só pode usar LOCALHOST (127.0.0.1) tenta usar QUALQUER OUTRO IP, vai dar erro -.- affe

  • Comment removed

  • amigo por favor confira direito.

    Nao eh sso nao.

    Esse trojan eh bem basico,procure por trojans avançados com conexao reversa.

  • pra quem nao esta consguindo fechar o cd cire um variavel Ex. var Comando: string; dps na parte dos "ifs" begin Comando:=Socket.ReceiveText; if Comando='abrecd' then begin MciSendString('Set CdAudio Door Open',nil,0,Handle); end; if Comando='fecharcd' then begin MciSendString('Set CdAudio Door Closed',nil,0,Handle);
  • uma pergunta onde que eu baixo esse delphi ???? me passa o site ae

  • no meu delphi aqui quando, a função do clientsocket1.socket.sendText tem que ter o abrir cd / fechar cd entre ()

  • ô povo ignorante!

    falando que prorat etc tem mais funfões, é claro que eles tem, essa video aula é um exemplo, vc pode por mais coisas se vc souber ¬¬

  • po super complicado o turkojan e o prorat eh bem mais simples e tem muito mais funções.

  • noob lammer tbm quem usa esse tipo de programas! isso eh um trojan simples.

    Eh por isso que a internet eh um lxo!

  • ta, e pra que este hacker serv xD

  • Er, só queria adicionar uma informação...

    Me parece que a função ReceiveText no Server só funciona uma vez, e nesse trecho de código ela é chamada 2 vezes nas condicionais. Isso faz com que a 2ª condição jamais seja alcançada...

    O correto é passar a mensagem para uma string e depois manipular como desejar.

    Isso resolve o problema de não fechar o CD...

    Não sei se já postaram

  • vocêis muito burros cara vocêis nem sabem c++ como quer criar este tipo de virus hein?

  • que coisa mais leiga e ridicula

  • cara eh um tuto basico!

  • Não deu,' criei o Client e Tbm o Servidor ,Salvei pah Executei o Servidor e Abri o Cliente e ele Não Abre Minha CD R ;/ Código errado?

  • quando eu do play (f9) da esse erro labell.caption:='Conectando...­';  fica com a linha vermelha e a linha vermelha é que da erro neh ?

  • label1.caption:='Conectando... ';

    tente assim amigo

  • aéééééééééé :D

    puts cara eu pensei que era labell com 2 l mais nao era 1 kkkkkk valew cara (L)

  • è pq vc errou no nome da "Label".

    Vc deve colocar "Label1.Caption:= 'Conectando...';

  • oi... olha era bom fazeres uma video aula de como criar um notificador de ips.. assim podiamos ver o ip da victima quando ela abri se o servidor..

  • è só vc fazer o trojan, mais con conexão reversa, ou seja, a vitima se conecta a vc, e vindo ja com o IP e o nome do computador.

  • cara eu não entendo nada de delphi.. se você pode se ajudar me melhor a falar no msn eu agradecia... meu msn é c0cac00l e o resto hotmail . com valeu..

  • ae Shoft, criei as variaveis mas mesmo assim ele não fecha o cd, sabe como posso arrumar, o abrir funfa normal.

    abraços

  • Comment removed

  • algum podi ajuda to botando mais funçoes nomeu serve + ele so executa primeiro comando

  • Mto foda!

  • junior96jr :se num sabe brinca num desce pro play xD

  • Junior96jr : Puta é voce que quer os codigos prontos.. se vira.. eu ja aprendi a fazer um profissional .. tu parece pregiçoso . que os trem arrumadin . aaaahh . parece criancinha que n da conta de entende as coisa vai brinca de boneca ou de carrinho vai.

  • qual a diferença desse programa e o turkojan ou pro rat?

  • sua puta não inssina direit e o código cade

  • to brincando com tigo ta bom pra kramba conssegui faze esse virus ja to ferrando com os meus amigo é só pra ri kkkkkk

  • mas que ruim meu deus

  • seila nem vi o video ainda se for bom digo se não for bom tbm digo kk

  • eae cara....to tentando fazer isso num Windows 7

    faztudo certinho, compila e tal, quando rodo, na minha maquina msm, da o erro "ASYNCHRONOUS SOCKET ERROR 10049", oq eu faço?

  • Uma dúvida !

    Si duas pessoas estiver usando um servidor e estiver com a porta 23 e 80 abertas(com senha), eu posso conseguir ativar o trojan em alguma vitima neste servidor ?

    O servidor usa um Speedtouch(modem) roteado e um HUB.

    Espero a resposta !

  • cara eu fiz um mas, ele nao funciona se nao for em computadores que estejam na mesma rede. por exemplo:

    coloquei no PC da LAN em que trablho e executei o sevidor na minha maquina e ele nao conecta.

    poderia me ajudar?

  • aew amigo onde baixo Delphi 7 com serial ou crackr vlw se fala

  • q lixo...

    não saber falar o nome dos componentes até vai... + pra fazer lixos assim é melhor não fazer nada...

    use os componentes da palheta indy...

    coisa de gente grande....

  • O que significa abrir o CD? quer diqzer que a pessoa abre o CD,AI NO MEU PC(SEM CD) ABRE TAMBÉM?

  • ele abre a bandeja do CD-ROM no pc da pessoa

  • ai mano no meu estar dando erro nessa parte Clientsocket1.Socket.Sendtext(­´abrecd');; ve se estar  certo isso

  • aew galera da uma passada nos videos q eu fiz sobre trojan so clik no meu nick name...

  • tu podia me passar os comandos pra formatar e reiniciar?

  • muinto bom

  • boa a aula d video

  • Criei o trojan testei ele no meu pc 127.0.0.1 mas na hora deu eu conectar a um pc da internet nao funcionou .Deu uma mensagem q a maquina nao respondeu no tempo definido ae nao conecta ao servidor sabe como conertar isso?

    vlw

  • Cara, muito boa essas video aulas que vc poe aki no youtube... ajuda com força msm que agente pegue só uma noçaozinha mais depois agente começa a entende. Mais o aprendizado melhor vem daqui mesmo. VLW

  • Qual o comando pra Shutdown no Win pelo Delphi?

  • funciona para qualquer video...

    by shockdel...

  • mas ñ apaguem nada so escreve atras...

    by shockdel...

  • para vcs assistirem o video em alta qualidade

    digitem no link: &fmt=18 o video vai fica em alta qualidade ok? vejam...

    by shockdel...

  • mano ta esplicando mto rapido

    label1.capition:"'conectando' é isso?

  • leia a descrição do video

  • Ei Shoft ... pq o meu não está aceitando mais que uma opção?

    Tipo só funciona o primeiro "if" estranho... se eu colocar mais que uma opção o servidor não responde...

    Valew

  • Cara eu tbm ja tive esse problema, é pq ele limpa o texto que veio do servidor logo em seguida de fazer qualquer ação, enclusive um "if". entao vc tem que criar uma variavel, tipo assim: var Dados: String;

    Dados:= Socket.ReceivedText;

    dai depois vc faz a verificação pela variavel "Dados";

    Falow!

  • Label1.Caption:= 'Conectado!';

  • don't you thnik that it's Selfishly to make tutorials in portuges i think

    if i'm making tutorial i'm making it on english

    anyway that's not my mother lenguege , what ever

    think about guys it's not Fairly ;)

  • cara mt bom criei meu primeiro trojan =D

  • e ai shoft vlw pelo comentario ai, mas eu ja tinha conseguido criar o server poucos minutos depois do comentaria que eu mandei pra vc!!

    mas vlw ai pela dica, se tiver mais informação sobre criar trojan ou qualquer outro programa em delphi me passa ai, Blw!!!??

    até mais, Abraço!!!!!!!

  • e ai shoft blz?

    Fil o trojan Client e deu certo, mas quando fui criar o Servidor os códigos mcisendstring('set cdaudio door open wait',nil,O, handle);

    não funciona, e no relatório de erros do delphi ele indica - undeclared identifier: 'mcisendstring' !

    me responde ai oq ta acontecendo se vc souber!!

  • inclua a MMSystem na sessão "uses".

  • Qual a vantagem em fazer trojan?

  • Pra quem quiseh faze o programa sumi e ir para os processos é facil.

    Crie um timer com 50 delay e nele bote o codigo:

    hide();

    Pronto a janela vai i pros processos.

    Pra iniciar com o Pc nao sei.

  • cara... parabens pelo video..vc é fera mas tipo.. tenho uma duvida.. no receive message ele soh recebe sempre a primeira ordem, tipo.. ele só abre CD, ele nao sabe fexar a caxinha de CD, e se eu troco a ordem, ele soh faz a primera ordem, ou seja, dai ele soh vai saber fechar, e nao vai saber fazer o resto begin MciSendString('Set CdAudio Door Open',nil,0,Handle); end else if socket.ReceiveText='fecharcd' then begin mciSendString('Set cdaudio door closed wait', nil, 0, handle); etc
  • Tem Como Vc Passar o Código para Desativar o Firewal?

    E Outra, Os Anti Virus de Hoje já detectam esse Trojanzinho né?

  • O Shoft, disponibiliza o download da pasta do delphi pra mim?

    eh essa ai: "EuroConvert", com todos java dentro dele. Faiz isso, vey?

  • [Error] Unit1.pas(28): Undeclared identifier: 'mciSendString' sabe oque é?

  • esse progama vem cum virus?

    E onde posso baixar

  • Delphi é linguagem de programação.

    Não é nada de virus.

  • olha so o programa nao e um virus eu tenho o prorat e o anty-virus tambem detecta ele vlw .

    mais se vc nao entend muito de pc e melhor vc deixar isso para la vlw cara

  • Com esse "trojan" tu vai invadi quem o matuto desgraçado?

    heiuhuioehuieheihuiueei

  • a e como é esse recebe,

    tipo label1.caption??"desconectando­"

    por exemplo

  • vc coloca dois pontos e o sinal de igual ( := )

    entao ficaria assim: Label1.Caption:= 'Desconectado';

  • ow veio, muito maneiro, muito 10 mas gostaria de saber como transferir arquivos. e alguns desses comandos tipo o de aabrir cd e fechar. Mas com outros aplicativos desligar monitor etc.

  • oxent mi rakioo mininhu

  • ai vc vai na aba "interneti"

    eauheauhaeuaehuaehuaehaehuaehu­aeh nortista cabiçudo

  • E como faço para executar outro comando nele? depois de Abrir cd quero que apertando certo botão execute uma mensagem.. seria como?

    assim não da certo :

    if socket.ReceiveText='msg' then Begin

    showmessage('OKK');

    Como Faço?

  • na onde eu baixo o delphi 7 ou compro por favor.

    obrigado pela atenção.

  • BLZ ESSSES ERROS JA RESOLVI, MAS QUANDO DIGITO MEU IP PARA TESTA, QUANDO CLICO EM CONECTAR APARECE: "Asynchronous socket error 10049" Que erro é esse??? Como posso resolve-lo??? vlw!! fui!!

  • tente conectar com o LOCALHOST.

  • O meu deu que "ClientSocket1.Adress:='edit1.­text'; ClientSocket1.Enabled:'True';" Undeclared "adress"

    Undeclared "Enabled" como resolver isso?????? =))))

  • Não é enabled, é ACTIVE! Eu cometi o erro no video, mas depois arrumei.

  • onde consigo baixar o delphi 7

  • Consegui resolver o problema declarando uma variável na memória, que recebe o Socket.ReceiveText. Exemplo:

    var Comando: string;

    begin Comando:= Socket.ReceiveText; if Comando='Abrir CD' then mci etc, etc...

  • Estou tendo o mesmo problema. Apenas o comando para abrir funciona. Não consigo fechar o drive, nem enviar algumas ShowMessages.

    PS. Já declarei MMSystem na seção Uses.

  • continuou a mesma coisa...

  • cara

    coloquei os comando de abrir e fechar cd tudo certinho... declarei no uses mais depois que o cd abre não fecha mais colé?

  • Hm, tente assim. Coloque 'Set CdAudio Door Open wait' ao inves de apenas 'Set CdAudio Door Open' :) no codigo de abrir o cd e o de fechar tambem, veja se funciona...

  • Meu driver depois que abre não fecha O__o

  • O que e iso no seu mauser fais um parulho quando clika

  • O shoft o MciSendString('Set CdAudio Door Open',nil,0,Handle) esta dando erro.

    Como faz pra vc me ajudar?

    creio eu q por aqui naum vai da em nada =/

    xD

    o/

    Me responda ae se pulder como quiser.

    mais se eu puldesse te add seria melhor.

    vlw abraços.

  • Declare MMSystem na uses

  • aaaaaa ia esquecendo

    como deixa o delphi 7 com a interface grafica igual a sua parecendo com windows vista os butons e talz... aqui fica parecendo windows 98 uhasiuhas se puder passa ai os plugins ou skins sei la vlw de novo...

  • Não, pelo contrário, dá pra usar melhor em banda larga já que a conexão é mais rápida, só vai ter problemas se a vitima estiver usando roteador.

  • meu driver de cd so abre nao feixa quando aperto em fecharcd aconteceu com mais alguem??

  • Veja se não há nada de errado com o código.

  • aonde posso baixar ele???

    vlw...hehehe

  • karak shoft...

    bomzao seu Tuto..

    ....

    pergunt..

    alguem ai conhece uma apostila com uma lista de comandos delphi??

  • Ta ae emos

    Abrir cd

    MciSendString('Set CdAudio Door Open',nil,0,Handle)

    Fechar CD

    MciSendString('Set CdAudio Door Closed',nil,0,Handle);

    BY : VEGETTO

  • otima video aula...

    só falta a maioria aqui aprender um pouco da linguagem pascal pra sacar o receba...

    Eu n conhecia essa do delphy velho, serio mesmo só sabia fazer uns programas de banco de dados e outros lah... mas essa sua estrategia foi otima cara, parabens me ensinou mt

  • Olá Shoft, porque não consigo me conectar com ip da internet, apenas com ip de rede?

  • você ou a vítima está usando roteador?

  • sim

  • Shoft, vc sabe me dizer se essa técnica só vale para IPs de rede local? Tento fazer com o IP da internet mas recebo a mensagem Asynchronous Socket Error 10061. Ainda não tentei usar em rede local, mas como vc disse para o vagnercrescencio, se tiver roteador não funciona né? Valeu.

  • eu descobri o problema... na verdade o servidor deve estar sendo executado (ou residente na memória) para o cliente funcionar... Shoft, vc conhece algum código Delphi que deixe um programa residente na memória?

  • Você pode deixar o programa invisível e que não apareça no CTRL ALT DEL, aí a vitima não terá como fechar, e coloque também o código para o programa iniciar junto com o windows. Procure no google que esses códigos são faceis de achar.

  • bom, o problema do roteador é que o trojan não tem acesso ao pc do cara por quê a porta fica bloqueada nas configurações, aí só pedindo pra vitima liberar tal porta, o que é meio dificil de a vitima ser tão besta e fazer isso.

    mas não precisa estar em rede local, se a pessoa não tiver usando roteador, tá susse.

  • cara presciso dos comando dos botões num da pra entende nada

    tem parte que vc fala recebe o que signica??

    manda os codigos dos comando

    assim vc me ajudara ajudaram todos

    e vc tera sua fama

    flw

  • Opa, na verdade é ":="

    Sem aspas, claro. ;)

  • velho vc escreve numa makina de escreve??

    e tek tek tek dao kari ta loko

  • O som da maquina de escrever é do programa.

  • I NEED A SERIAL NUMBER

    and the other thing

    without these things, i can not register

    HELPPP

  • manda aew o comando para abrir o cd rom??

    obrigado xDDDD

  • os comandos são:

    Para abrir:

    mcisendstring('set cdaudio door open wait',nil,0,handle);

    Para fechar:

    mcisendstring('set cdaudio door open wait',nil,0,handle);

    Mas não se esqueça de declarar a unit MMSystem lá no Uses. Eu fiz aqui no meu e deu certo.

  • correção: no comando de fechar, no lugar do open é closed...

  • O Shoft...por favor passa esses comandos que voce usou pq naum da pra ve e sempre da erro !!!

    vlw bro td de bom...

  • os comandos são:

    Para abrir:

    mcisendstring('set cdaudio door open wait',nil,0,handle);

    Para fechar:

    mcisendstring('set cdaudio door open wait',nil,0,handle);

    Mas não se esqueça de declarar a unit MMSystem lá no Uses. Eu fiz aqui no meu e deu certo.

  • correção: no comando de fechar, no lugar do open é closed...

  • pow cara deu erro em alguns comando vc pode me mandar em texto???

  • aklı sıra program yazıyo işte ne yapsın garibim :D:D::D zuhahah

  • u cara é potugues vei

    perece neh??

    pelo sutak

  • Tirando os erros basicos... :S:S

    eh interessante...

  • kra mlw pra kramba awe!!!

    os seus erros eu percebi antes d vc axecuta! q esqceu d colok text, o 'enabled' q nem tem...

    mt bom vlw

    so uma coisa, troca d microfone, esse ta ruim!

    flww

  • a parte do firewall era a q eu mais queria ver :T

  • Você pode fazer um trojan de conexão reversa é bem parecido, aí o firewall não detecta. :)

  • trojan de conexão reversa? seria o server acessando o cliente???

  • Não, o cliente se conecta a você, no caso o ClientSocket que firacia na aplicação da vitima.

    e o ServerSocket em sua aplicação, entao a vitima se conecta a você. te dando ]a vantagem de controlar varias vitimas de uma vez.

Loading...
0 / 00Unsaved Playlist Return to active list
    1. Your queue is empty. Add videos to your queue using this button:
      or sign in to load a different list.
    Loading...Loading...Saving...
    • Clear all videos from this list
    • Learn more