Utilitário/App Como fazer um keygen? Fim das dúvidas!

[CzarSuvorov]

É muito fácil vim no Forum e postar um programa. Uma coisa que eu acho interessante é... Explicar como funciona o projeto e como vc o fez. Já fui muito criticado por postar projetos que existem semelhantes e ser acusado de plagio... Enfim, se você parar pra pensar, temos programas pra tudo hoje em dia; seja desligar um computador ou até mesmo esse aqui que mexe nas entranhas do sistema. Bom chega de falar e vamos pro que interessa...

Nesse aplicativo estou usando Visual Basic 6. E um algoritmo simples para crackear Windows Xp com 4 clicks! menos de 10 segundos. Oo'

' # Capiroto-Softs
' # Contato: c4p1r0t0@live.com
' # Greetz Guia do Hacker
Option Explicit
Const AboutText As String = "[KeyGen WinRox v1]" & vbCrLf & ".·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·." & vbCrLf & "[Code Capiroto]" & vbCrLf & "Sistema Random Key" & vbCrLf & ".·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·.·." & vbCrLf & "c4p1r0t0@live.com" ' Texto animado
Dim Pos As Integer ' Texto animado
Private Sub Cancelar_Click()
' Fechar Form
' Para fechar esse form Unload Me ou End podem ser usados
If MsgBox("Deseja realmente sair?", vbYesNo + vbQuestion, "KeyGen WinRox") = vbYes Then
MsgBox "Obrigado por usar um de meus programas", vbInformation, "KeyGen WinRox"
End
End If
End Sub

Private Sub Form_Load()
On Error Resume Next
' Form transparente
MakeTransparent Me.hwnd, 230
' Desabilitar Fechar
Dim hSysMenu As Long
    Dim nCnt As Long

    hSysMenu = GetSystemMenu(Me.hwnd, False)

    If hSysMenu Then
        nCnt = GetMenuItemCount(hSysMenu)
        If nCnt Then
            RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
            RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE
            DrawMenuBar Me.hwnd
     End If
    End If
End Sub

Private Sub Gerar_Click() 'Função random key
Text1.Text = Int(Rnd * 40)
Select Case Text1
Case 0
Text1.Text = "QW4HD-DQCRG-HM64M-6GJRK-8K83T"
Case 1
Text1.Text = "PQTHM-RWBHR-3BPVW-TFB22-V8HXQ"
Case 2
Text1.Text = "KQC2B-X683R-2CDXT-PQ7HQ-47MPT"
Case 3
Text1.Text = "JFQYM-YJQFQ-VBRCY-4VV7W-QRXBY"
Case 4
Text1.Text = "KMTTB-68H32-8MKRK-GBHKT-RKCP6"
Case 5
Text1.Text = "CX7DD-4GX4Y-BTTR4-H88Y7-GQPWQ"
Case 6
Text1.Text = "XP8BF-F8HPF-PY6BX-K24PJ-TWT6M"
Case 7
Text1.Text = "8RCKG-36TH8-VWBGK-T3CB6-RHG48"
Case 8
Text1.Text = "7G4H4-T4XXW-BVXTH-4QP4V-9CV28"
Case 9
Text1.Text = "PG274-383QX-6C32H-P8RWC-48M4Q"
Case 10
Text1.Text = "CWY3F-JGYHJ-W6KBG-3VYK7-DGG7M"
Case 11
Text1.Text = "X6YWJ-M4TG2-DPGWJ-QCFR8-927M6"
Case 12
Text1.Text = "QCP6D-7VGVJ-JBKB4-DQMB2-9GTJ3"
Case 13
Text1.Text = "HFVK4-TFWFG-4JKDH-H3FTT-8B23W"
Case 14
Text1.Text = "F7GV4-B7JGY-Q2KQW-6R8BM-FR8D6"
Case 15
Text1.Text = "HRPR7-WGJFC-VPHRB-XVFRW-2KPWY"
Case 16
Text1.Text = "V3V63-3QW2G-JMFBY-8F4CM-PDMQW"
Case 17
Text1.Text = "WX736-8YJCM-2JW33-4KJGY-XCDJ6"
Case 18
Text1.Text = "CQKYH-GKDJC-MJTWP-FPTJX-PKK23"
Case 19
Text1.Text = "CHYVW-V63RT-67XVC-XJ4VC-M3YWD"
Case 20
Text1.Text = "XMDCV-2TJMR-7JD66-YTVMK-V7PBD"
Case 21
Text1.Text = "RQHFJ-X47QJ-G2XKK-WYQ8P-7W6RG"
Case 22
Text1.Text = "X6MYY-6BH3T-YRBT8-H8YPH-RG68T"
Case 23
Text1.Text = "KVXQ3-RVQFG-FW8KC-2QYC6-67WCD"
Case 24
Text1.Text = "KMM7J-FCXMM-WV8PG-6FQMD-CPTQD"
Case 25
Text1.Text = "D6T24-3FBGM-WTDG8-6Y3WP-77QRJ"
Case 26
Text1.Text = "V88FQ-MFFRR-8D2VY-PG87J-FG7PY"
Case 27
Text1.Text = "XK39D-3PDMC-JMMDK-X8T8M-77YVM"
Case 28
Text1.Text = "6G3J7-RQ233-FJGHD-GKYP4-QGKPG"
Case 29
Text1.Text = "BKRFY-XPMQP-Y8PTW-BP6JM-B76FJ"
Case 30
Text1.Text = "GP7DR-2T2CQ-JYW2M-DXTMG-DTQWY"
Case 31
Text1.Text = "YWVHF-GT3M6-3QYB2-FCYCH-X47PQ"
Case 32
Text1.Text = "QJ68H-G7T8R-WFR77-D8X8Y-VJ398"
Case 33
Text1.Text = "6KYDY-JT4MB-6V3JQ-4KKFG-P6C63"
Case 34
Text1.Text = "6JQPJ-84CFG-JCBQP-PVRJP-9G24Q"
Case 35
Text1.Text = "MQ8JV-XXKVG-DB8V3-67WJB-RCB6W"
Case 36
Text1.Text = "J3T66-JTP72-TGT7H-PMMWH-XM4K3"
Case 37
Text1.Text = "DB4H8-DQJJB-KXMWP-GPJVY-H7P6W"
Case 38
Text1.Text = "38BXC-F2C4R-PXMXV-DBQXM-3C7V6"
Case 39
Text1.Text = "7FMM3-W4FMP-4WRXX-BKDRT-7HG48"
End Select
End Sub

Private Sub Original_Click()
MsgBox "Depois de salvar, dê 2 cliques e ative seu windows", vbInformation, "Importante"
'Salvar registro para Ativação

Dim nomearq As String
Dim filtro As String
CommonDialog1.DefaultExt = "reg"
CommonDialog1.DialogTitle = "Salvar Meu arquivo"
filtro = "registro (*.reg)|*.reg|texto (*.txt)|*.txt"
CommonDialog1.Filter = filtro
CommonDialog1.ShowSave
nomearq = CommonDialog1.FileName
If (nomearq <> "") Then
    Open nomearq For Output As #1
    Print #1, Text4.Text
    Close #1
End If
End Sub

Private Sub Outros_Click()
Form2.Show vbModal ' Mostrar Form2
End Sub

Private Sub Timer1_Timer() ' Texto animado
Pos = Pos + 1
    Label4.Caption = Mid(AboutText, 1, Pos) & "_"
    If Pos = Len(AboutText) Then ResetAboutText
End Sub

Function ResetAboutText() ' Texto animado - Resetar Texto ^^
    'Timer1.Enabled = False
    'Pos = 0
    'Label4.Caption = ""
    'Timer1.Enabled = True
End Function

O código está bem simples. E a aspa simples serve para comentar.

Uma coisa interessante num crack é a música que toca enqnto o form está aberto.

Bom para fazê-lo basta adicionar o componente wmp.dll que está na pasta C:\WINDOWS\System32

Em URL coloque o valor = C:\Windows\Media\onestop.mid repare que coloquei onestop.mid mas nessa pasta existem outros sons.

É importante tmb colocar um Timer para que o texto animado funcione. E um CommonDialog para salvar um arquivo de registo pra crackear o sistema.

Isso vai ser feito de maneira simples. Para o AntiVirus não dizer que o programa é malware coloquei o arquivo de registro dentro de um TextBox para vc vê-lo antes de executar...

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion]
"ProductId"="55692-640-1183967-23403"
"DigitalProductId"=hex:a4,00,00,00,03,00,00,00 ,35, 35,36,39,32,2d,36,34,30,2d,\
31,31,38,33,39,36,37,2d,32,33,34,30,33,00,2e,00,00 ,00,41,32,32,2d,30,30,30,\
30,31,00,00,00,00,00,00,00,f8,dc,4e,cc,ac,8c,e1,78 ,2e,83,01,c3,6e,87,03,00,\
00,00,00,00,09,43,62,43,5f,96,01,00,00,00,00,00,00 ,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,33,34,38,32,32,00 ,00,00,00,00,00,00,8f,25,\
00,00,0a,a4,49,a8,f7,01,00,00,3c,2c,00,00,00,00,00 ,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00 ,52,8b,3d,0e
"LicenseInfo"=hex:2e,62,ea,3c,be,25,6b,cc,ca,f 1,00 ,f6,51,c4,34,2e,82,e9,5a,19,\
04,6d,3a,8c,28,15,55,b5,4a,09,cb,67,0f,4a,cc,09,27 ,67,5a,d3,9c,9f,ba,62,79,\
83,5a,77,ab,53,13,52,38,7c,9c,b4

Bom acho que é isso. se eu estiver esquecendo de algma coisa me perdoem. Qualquer dúvida poste aqui que eu irei responder.



Créditos: Capiroto

[bolinhaxp]

show de bola capiroto sempre madando bem

[Compton]

Obrigado me ajudou muito.

[Par4d0X]

Show de bola cara, te admiro mto

[RafaelVenancio]

Excelente tópico!!
Parabéns cara!

[anderson.brd]

Show esse tuto, vale a pena ler o guia sempre, pois aprendo muito com a galera daqui.

Valew.

[Caspers]

gratz!!!!!!

[Prime]

mando muito
valeu capiroto

[ezequiel santos schneider]

Eu sou o Ezequiel e queria saber como salvar uma imagen em um keygen,( ou melhor ) paso-a-paso como fazer um keygen!!!! eu agradesso!!!!

[BigMac]

Muito show o topico, acho que temos muito o que aprender com essa galera ai..
abraço

[Tiagui99]

Boa! Continue Assim xD