ayuda con software para generar los códigos de activación
Publicado por jose (3 intervenciones) el 26/11/2015 19:35:56
Que tal tengo un software que compre en visul basic es de gestión de trazabilidad ganado , el hombre que me lo vendió le puso activación me cobro un disparate por el programa que en si no es casi nada, formatee la pc y no hay manera de que vuelva a activarlo ya que me da código de solicitud y con ese numero se genera código de activación.
mi pregunta es alguien me podrá hacer un software que me genere los codigos de activación. si es asi estaria muy agradecido o me cobran pero necesito que fusione. paso codigo de la parte de seguridad del software.
mi pregunta es alguien me podrá hacer un software que me genere los codigos de activación. si es asi estaria muy agradecido o me cobran pero necesito que fusione. paso codigo de la parte de seguridad del software.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports Scripting
Imports System
Namespace Programa
Friend Module Seguridad
Public Function GenerarCodigoSolicitud() As String
Dim text As String = Seguridad.NumeroSerieDisco()
Dim text2 As String = ""
Dim arg_18_0 As Integer = 0
' The following expression was wrapped in a checked-statement
Dim num As Integer = text.Length - 1
Dim num2 As Integer = arg_18_0
While True
Dim arg_42_0 As Integer = num2
Dim num3 As Integer = num
If arg_42_0 > num3 Then
Exit While
End If
text2 += Conversions.ToString(Strings.Asc(text.Substring(num2, 1)) - 1)
num2 += 1
End While
Return text2
End Function
Public Function VerificarCodigo(Code As String) As String
Dim text As String = "56789567895678956789567895678956789567895678956789"
Dim text2 As String = ""
Dim arg_31_0 As Integer = 0
' The following expression was wrapped in a checked-statement
Dim num As Integer = CInt(Math.Round(CDec(Code.Length) / 3.0 - 1.0))
Dim num2 As Integer = arg_31_0
While True
Dim arg_6B_0 As Integer = num2
Dim num3 As Integer = num
If arg_6B_0 > num3 Then
Exit While
End If
text2 += Conversions.ToString(CDec(Conversions.ToInteger(Code.Substring(num2 * 3, 3))) / CDec(Conversions.ToInteger(text.Substring(num2, 1))))
num2 += 1
End While
Return text2
End Function
Public Function GenerarCodigoActivación(Code As String) As String
Dim text As String = "56789567895678956789567895678956789567895678956789"
Dim text2 As String = ""
Dim arg_31_0 As Integer = 0
' The following expression was wrapped in a checked-statement
Dim num As Integer = CInt(Math.Round(CDec(Code.Length) / 2.0 - 1.0))
Dim num2 As Integer = arg_31_0
While True
Dim arg_69_0 As Integer = num2
Dim num3 As Integer = num
If arg_69_0 > num3 Then
Exit While
End If
text2 += Conversions.ToString(Conversions.ToInteger(Code.Substring(num2 * 2, 2)) * Conversions.ToInteger(text.Substring(num2, 1)))
num2 += 1
End While
Return text2
End Function
Public Function NumeroSerieDisco() As String
Dim fileSystemObject As FileSystemObject = New FileSystemObjectClass()
Return fileSystemObject.GetDrive("C:").SerialNumber.ToString()
End Function
End Module
End Namespace
Valora esta pregunta


0