últimos mensajes de: BARTBOSS

Muchas gracia. Por supuesto leeré las reglas. y me esta facinando esto de la programación. me pasare más seguido por este foro. Muchas Gracias.. saludos.

Cita de: MCKSys Argentina en 12 Febrero 2019, 00:19 am

Hola!

El código que puse te resuelve el problema, sólo debes cambiar el valor que dió el otro usuario por el tuyo y ejecutarlo en Visual Studio.

Si no dispones de Visual Studio, puedes ejecutar el código aquí, pero quedaría de otra forma:

Código

Module VBModule
    Public Function descifrar(valor As String) As String
        Dim result As String
        Try
            Dim str As String = "yopiensoentituvivesenmimentesolafijasintreguaatodahora"
            Dim text As String = ""
            Dim str2 As String = Strings.Mid(valor, 2, Strings.Len(Strings.Trim(valor)))
            Dim arg_2B_0 As Integer = 1
            Dim num As Integer = Strings.Len(valor) - 1
            Dim a As Decimal = 0
            Dim b As Decimal = 0
 
            For i As Integer = arg_2B_0 To num Step 3
                Dim s As String = Strings.Mid(str2, i, 3)
                a = System.Convert.ToInt32(s, 16)
                b = Strings.Asc(Strings.Mid(str, Strings.Len(text) + 1, 1))
                text += System.Convert.ToString(Strings.Chr(System.Convert.ToInt32(Decimal.Subtract(a, b))))
            Next
            result = text
        Catch expr_89 As System.Exception
            Dim ex As System.Exception = expr_89
            Interaction.MsgBox("Error en funcion descifrar " & vbCrLf + ex.Message, MsgBoxStyle.OkOnly, Nothing)
            result = Nothing
        End Try
        Return result
    End Function
 
    Sub Main()
        Console.WriteLine(descifrar("70BD0BE0BE0AD0980C40C20C30A60920A60990A50AD"))
    End Sub
 
End Module

Saludos!

PD: De la pass, sólo ha cambiado 1 caracter.

EDIT: Te he respondido, pero no deberías responder en temas tan viejos. Lee las reglas del foro antes de seguir posteando (link en mi firma)

Public Class Form1
Public Function descifrar(valor As String) As String
Dim result As String
Try
Dim str As String = "yopiensoentituvivesenmimentesolafijasintreguaatodahora"
Dim text As String = ""
Dim str2 As String = Strings.Mid(valor, 2, Strings.Len(Strings.Trim(valor)))
Dim arg_2B_0 As Integer = 1
Dim num As Integer = Strings.Len(valor) - 1
Dim a As Decimal = 0
Dim b As Decimal = 0
For i As Integer = arg_2B_0 To num Step 3
Dim s As String = Strings.Mid(str2, i, 3)
a = System.Convert.ToInt32(s, 16)
b = Strings.Asc(Strings.Mid(str, Strings.Len(text) + 1, 1))
text += System.Convert.ToString(Strings.Chr(System.Convert.ToInt32(Decimal.Subtract(a, b))))
Next
result = text
Catch expr_89 As System.Exception
Dim ex As System.Exception = expr_89
Interaction.MsgBox("Error en funcion descifrar " & vbCrLf + ex.Message, MsgBoxStyle.OkOnly, Nothing)
result = Nothing
End Try
Return result
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Debug.Print(descifrar("70BD09F0BE0AD0980C40A30C30A60920A60990A50AA"))
End Sub
End Class