aide pour connaitre ses commandes "serial"

Vous avez un problème pour cracker ou vous souhaitez parler de reversing en général...

aide pour connaitre ses commandes "serial"

Messagepar KADIBENISAF » 28 Septembre 2012, 00:05

salut tout le monde
je suis débutant dans le domaine j'ai suivi une méthode expliqué dans se forum pour trouver le sérial d'un logiciel ca a marcher maintenant que je veut trouver le serial d'un autre logiciel .
voila ce que donne le fichier avtivator

Public Class Activation
Inherits Form
' Methods
Public Sub New()
Me.InitializeComponent
End Sub

Private Sub Activation_Leave(ByVal sender As Object, ByVal e As EventArgs)
MyBase.Dispose
End Sub

Private Sub Activation_Load(ByVal sender As Object, ByVal e As EventArgs)
MyBase.Visible = False
Dim info As New FileInfo((Environment.SystemDirectory & "\" & Program.nbeUsageFile))
If Not info.Exists Then
If (Program.DSInfo.getparam("ProgressBar") = "1") Then
Me.nbrFois = "G"
Program.DSInfo.writeNBrActivation("00", Me.nbrFois, "L")
Program.DSInfo.setparam("ProgressBar", "2")
Else
Program.DSInfo.writeNBrActivation("98", "X", "L")
End If
Else
Me.nbrFois = Program.DSInfo.ReadNbrFois
End If
Me.nbr = Me.Nombre
Me.myActivation
MyBase.Dispose
End Sub

Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If (disposing AndAlso (Not Me.components Is Nothing)) Then
Me.components.Dispose
End If
MyBase.Dispose(disposing)
End Sub

Private Sub InitializeComponent()
MyBase.SuspendLayout
MyBase.AutoScaleDimensions = New SizeF(6!, 13!)
MyBase.AutoScaleMode = AutoScaleMode.Font
MyBase.ClientSize = New Size(&H124, &H10A)
MyBase.Name = "Activation"
Me.Text = "Activation"
AddHandler MyBase.Leave, New EventHandler(AddressOf Me.Activation_Leave)
AddHandler MyBase.Load, New EventHandler(AddressOf Me.Activation_Load)
MyBase.ResumeLayout(False)
End Sub

Private Sub myActivation()
If (((((Me.nbr = 5) OrElse (Me.nbr = 10)) OrElse ((Me.nbr = 15) OrElse (Me.nbr = 20))) OrElse (Me.nbr = &H19)) OrElse (Me.nbr = 30)) Then
End If
If (Me.nbr < &H62) Then
Me.nbr += 1
If ((0 < Me.nbr) AndAlso (Me.nbr < 10)) Then
Program.DSInfo.writeNBrActivation(("0" & Me.nbr.ToString), Me.nbrFois, "L")
Else
Program.DSInfo.writeNBrActivation(Me.nbr.ToString, Me.nbrFois, "L")
End If
Program.DSInfo.setparam("ProgressBar", "2")
ElseIf (Me.nbr = &H61) Then
Me.nbr += 1
Program.DSInfo.writeNBrActivation(Me.nbr.ToString, Me.nbrFois, "L")
Program.bloquer1 = True
Program.bloquer2 = True
MessageBox.Show("Votre logiciel n'est pas activ" & ChrW(233) & ", Pour l'activer Veuillez contacter : " & ChrW(10) & " stihirachid@hotmail.fr" & ChrW(10) & "ou 0550980563", "Rappel", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
ElseIf (Me.nbr = &H62) Then
Program.bloquer1 = True
Program.bloquer2 = True
End If
If ((Me.nbr < &H62) AndAlso (Me.nbr > 80)) Then
MessageBox.Show("Votre logiciel n'est pas activ" & ChrW(233) & ", Pour l'activer Veuillez contacter : " & ChrW(10) & " stihirachid@hotmail.fr" & ChrW(10) & "ou 0550980563", "Rappel", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End If
End Sub

Private Function Nombre() As Integer
Try
Return Integer.Parse(Me.ReadNbr)
Catch obj1 As Object
Return &H62
End Try
End Function

Private Function ReadNbr() As String
Try
Me.random = Program.DSInfo.readFromFile((Environment.SystemDirectory & "\" & Program.nbeUsageFile))
Dim ch As Char = Me.random.Chars(&H17)
ch = Me.random.Chars(&H58)
Return (ch.ToString & ch.ToString)
Catch obj1 As Object
Return "98"
End Try
End Function

Private Sub WriteRegistre()
Dim str As String = Guid.NewGuid.ToString("N")
Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("Software", True)
key.CreateSubKey("MCBInc1").SetValue("MCBInc1", str.Substring(0, 6))
key.CreateSubKey("MCBInc2").SetValue("MCBInc2", str.Substring((str.Length - 6), 6))
End Sub


' Fields
Private components As IContainer = Nothing
Private nbr As Integer
Private nbrFois As String
Private random As String
End Class
KADIBENISAF
 
Messages: 2
Inscription: 27 Septembre 2012, 18:56

Re: aide pour connaitre ses commandes "serial"

Messagepar Horgh » 28 Septembre 2012, 06:04

Euuuuh... Non ?

Pour faire court : poste dans les sections appropriées, avec des titres 'décents' ; utilise les balises pour mettre en forme tes posts ; ne fais pas de demandes de cracks, etc. etc.

Ça serait plus court si tu lisais les post-its en fait.
Avatar de l’utilisateur
Horgh
Maître des ténèbres
Maître des ténèbres
 
Messages: 526
Inscription: 21 Janvier 2010, 16:24

Re: aide pour connaitre ses commandes "serial"

Messagepar etherlord » 28 Septembre 2012, 15:27

Sujet déplacé pas dans la bonne section.

Comme il a été dit, lis les post-its, et évite les doubles-post comme tu viens de le faire dans la section Reversing.

Maintenant, montre-nous ce que tu a tenté, les résultats obtenus, explique-nous pourquoi tu est coincé et ce que tu veux faire.

Sans un minimum de travail de ta part, ton prochain post sera consideré comme une demande de crack et vérouillé.

etherlord
etherlord
Triumvirat
Triumvirat
 
Messages: 2476
Inscription: 22 Mars 2004, 16:12


Retourner vers Reversing

Qui est en ligne

Utilisateurs parcourant ce forum: Bing [Bot], Google [Bot] et 3 invités