Foro de elhacker.net

Saludos,
Ayuda con código…

He creado un keygen para una aplicación desde un archivo Excel con macros de VB (.xlsm)

Deseo crearlo totalmente en VB .net pero tengo dificultades pues con ignoro que estoy haciendo mal para pasar la cadena de caracteres, que se ingresa en el primer TexBox , a valores ascii y luego sumar los mismos dando clic en un botón.
Dejo el link de los archivos de Excel con las macros en VB

Solicitar link, (pues se ha difundido para fines no didácticos)

Gracias,

1º Deberias plantear tu duda en el foro de .net

2º No se hacen tareas, intenta hacerlo tu mismo y nostros te ayudaremos ante dudas especificas

Como te ha dicho Raul. Especifica tus dudas..

De pasadita y para que lo mejores:

Imports System.Text
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim temp As String = Replace(TextBox1.Text, "-", vbNullString, 1, TextBox1.Text.Length)
        MsgBox(sumAscii(temp.Trim()))
    End Sub
    Public Function sumAscii(ByVal texto As String) As String
        Dim ascii As Encoding = Encoding.ASCII
        Dim suma As Integer = 0
        Dim txtBytes As [Byte]() = ascii.GetBytes(texto)
        Dim b As [Byte]
        For Each b In txtBytes
            suma += b
        Next b
        sumAscii = suma.ToString()
    End Function
End Class

Este codigo ignora los "-" y " " para sumar los valores ascii de cada caracter del textbox.
Saluos.

PD: Para hacer un keygen es mejor si utilizas un lenguaje que no necesite un framework como es el caso de vb.net, podrias hacerlo en C++ (consola, vc++  o c++ con QT) o en ultimo caso con vb6.

Saludos, 43H4FH44H45H4CH49H56H45H
Agradecido por su respuesta y colaboración, agregando las el código sugerido al proyecto

PD. Creo que en vez de un MsgBox el resultado estaría en eventual TextBox3.
Me colaboraría estoy además trabajando en la generación, para el TextBox2, de varios números de licencias de los cuales tengo una regularidad.

Link del instalador: http://www.megaupload.com/?d=CVEZBS52 (http://www.megaupload.com/?d=CVEZBS52)

Gracias por mantener correspondencia y colaborarme.

Lo que puse fue solo un ejemplo, tu puedes modificarlo como gustes  :P


Segun lo que entiendo puedes utilizar Split y luego unir el 99 en un string con el resultado.

Saluos.

Saludos, 43H4FH44H45H4CH49H56H45H

Agradecido por su respuesta


Ok, utilizo una tabla dinámica (un array dinámico) llamado tabla; la variable se define como tabla(),pero que no sabemos su longitud. Luego, le paso el split, cortando la cadena por el “punto”. Con esto, se escribirá en cada celda que necesite de la variable tabla cada uno de los valores cortando por el “punto”; en la celda 0 tendremos “la parte entera”, en la celda 1 tendremos “la parte decimal”. Por último, utilizando ubound(tabla,1) sabemos qué número de celdas tiene esta tabla.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim temp As String = Replace(TextBox1.Text, "-", vbNullString, 1, TextBox1.Text.Length)
        'Aqui atendiendo a lo sugerido
        Dim cadena As String
        Dim tabla() As String
        Dim n As Integer
        cadena = Val(sumAscii(temp.Trim()))
        tabla = Split(cadena, ".")
        For n = 0 To UBound(tabla, 1)
        Next
        TextBox3.Text = "99" & tabla(0) & tabla(1)
        'Recomendaciones
    End Sub 

Agradeciendo recomendaciones al anterior.

Hainner