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 y ahora esta desaparecido no hay manera que lo encuentre como quien dice me estafo , 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 por hacer tal trabajo pero necesito que fusione. paso codigo de la parte de seguridad del software. cualquier cosa el que este interesado le envió el software por correo


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(nu m2, 1)) - 1)
num2 += 1
End While
Return text2
End Function

Public Function VerificarCodigo(Code As String) As String
Dim text As String = "5678956789567895678956789567895678956789567895678 9"
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(Co de.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 = "5678956789567895678956789567895678956789567895678 9"
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.Su bstring(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.ToStr ing()
End Function
End Module
End Namespace