Visual Basic - ayuda con software para generar los códigos de activación

Life is soft - evento anual de software empresarial
   
Vista:

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.


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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

ayuda con software para generar los códigos de activación

Publicado por Marcelo (225 intervenciones) el 21/12/2015 00:10:55
Hola Jose,
Ya conseguiste solucionar esta situacion?
Saludos,
Marcelo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar