Tworzenie prostych FAKE Keygenów

[ComeBack.]

W jakim programie pistać proste keygeny to ppa itd .

Jakieś poradniki , programy ?

 

najlepiej żeby proste jakies kreatory czy coś

[Gość]

Fejkowe? Najprościej w czymś pokroju Visual Basic / Delphi itd.

[ComeBack.]

no takie które nie działają , po chyba prościej takie zrobić . moze byc Microsoft visual c++ 2010 expres

[Phoenix_PL]

najprostszy keygen = AutoIT, mój lib i PhoGenZnak.

[ComeBack.]

a są jakieś kreatory , nie za bardzo mam czas na naukę pisania .

[JestemPolakiem]

@up

nie prosimy o gotowce.

[kaje11]

AutoIT Koda dla interfejsu, a dla interakcji proste:

 

$k = ""
For $i = 0 To 16
    if $i / 4 = int( $i / 4 ) Then $k &= "-"
    $k &= Chr(Random(65,90))
Next
guiCtrlSetData( $kontrolka, $k )

[thiew3]

Kod do VB, wraz z ProgressBarem.

Public Class Form1
 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        Label1.Text = ProgressBar1.Value & (" %")
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Dim key As Integer
            Timer1.Stop()
            key = Int(Rnd() * 11)
            Select Case key
                Case 0
                    TextBox1.Text = "1 KOD"
                Case 1
                    TextBox1.Text = "2 KOD"
                Case 2
                    TextBox1.Text = "3 KOD"
                Case 3
                    TextBox1.Text = "4 KOD"
                Case 4
                    TextBox1.Text = "5 KOD"
                Case 5
                    TextBox1.Text = "6 KOD"
                Case 6
                    TextBox1.Text = "7 KOD"
                Case 7
                    TextBox1.Text = "8 KOD"
                Case 8
                    TextBox1.Text = "9 KOD"
                Case 9
                    TextBox1.Text = "10 KOD"
                Case 10
                    TextBox1.Text = "11 KOD"
            End Select
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
End Class

[Savien]

Virtual Basic, Visual ++ , AutoIT spokojnie

[wyjazdwpolee]

Masz kod do tego shitu ( autoit )

 

 

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("KeyGen", 366, 35, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 0, 8, 361, 21)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
AdlibRegister("odswiez", 2000)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd
Func odswiez()
	$kod = ''
	For $a = 0 To 5
		For $x = 0 To 4
			$kod &= Random(0, 9, 1)
		Next
		$kod &= '-'
	Next
	$kod = StringTrimRight($kod,1)
	GUICtrlSetData($Input1, $kod)
EndFunc   ;==>odswiez

 

 

[Anseluti]

w batchu bym coś takiego napisał ;_;

[ComeBack.]

zrobiłem tak , http://fotoo.pl//out.php?i=635223_przechwytywanie.png&id=7316bd344595a5b5383535343536

 

i teraz nie wiem gdzie wrzucic ten kod

Public Class Form1

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

 

ProgressBar1.Increment(1)

 

If ProgressBar1.Value = ProgressBar1.Maximum Then

 

Timer1.Stop()

 

Dim key As Integer

 

key = (Rnd() * 9)

 

Select Case key

 

Case 1

 

TextBox1.Text = "HK2H-KIW4-FL5L-SDJJ-LK6D"

 

Case 2

 

TextBox1.Text = "KD4G-FK35-DDSG-45Y5-GJ6D"

 

Case 3

 

TextBox1.Text = "ER78-4GFH-45H7-34Y7-3GG6"

 

Case 4

 

TextBox1.Text = "GFDG-5JJ9-YFH6-3SFU-45U7"

 

Case 5

 

TextBox1.Text = "ASFG-38F8-FGYU-DFY6-435Y"

 

Case 6

 

TextBox1.Text = "GYR6-SD46-FSJ4-HF6R-FH45"

 

Case 7

 

TextBox1.Text = "JFLS-S38F-FJDT-EKRI-DJ49"

 

Case 8

 

TextBox1.Text = "JK47-RJDU-FF6H-KDFU-FGKD"

 

Case 9

 

TextBox1.Text = "FJDK-57GJ-DKYU-DLGF-DKEU"

 

End Select

 

MsgBox("Done")

 

End If

 

End Sub

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 

Timer1.Start()

 

ProgressBar1.Value = ProgressBar1.Minimum

 

 

End Sub

 

End Class

 

 

 

 

 

 

Zamieniam go z kodem w Form 1 ale potem znika mi wszystko w pizdu

[Wetize]

 

Dawaj proszę cię ja kod w

[code][/code]

bo to strasznie wygląda.

I nie baw się (na początek) w takie coś, chociaż ja się nauczyłem to obczaj to:

 

http://www.mediafire.com/?cay4ewc66k1tkv1

to jest gotowy fake "crack/keygen",

 

[ComeBack.]

Bede mogl edytowac nazwe , tapete itd ?

[Wetize]

Pewnie że tak, po prostu naciskasz na obiekt i w panelu w prawym dolnym rogu edytujesz.

[ComeBack.]

wrzuc na inny hosting bo plik zablokowany

[Wetize]

wrzuc na inny hosting bo plik zablokowany

 

PLIK: http://speedy.sh/XPHuT/DiabloIII-1.rar
SKAN: https://www.virustotal.com/pl/file/f20b79801ff52e92d7601b4e3cdd19372d2e5fa554f1b9a44247154587a4e174/analysis/1382028808/

Wirus jest widoczny, bo Visual Basic

[ComeBack.]

tylko ja mam microsoft visual C++ , i nie czyta mi tego , kurwa !

[Phoenix_PL]

@genius -,-

Czytanie ze zrozumieniem się kłania. Mówią wyraźnie że Visual Basic a ty to próbujesz w Visual C++ odpalić.

[ComeBack.]

właśnie zły program pobrałem też to zauważyłem , pobrałem i wszystko śmiga

[ComeBack.]

ps

Jak ten program zapisać , zbudować , tak żeby ktoś mógł go otworzyć najlepiej w exe

[GrAvItY1]

Prawym przyciskiem na projekt i Build