Visual Basic Foro

hola a todos, hace bastante que no vengo por aca, pero necesito de su ayudas/opiniones

necesito pasar un codigo de vb.net a c++ por el motivo que necesito leer una linea texto encriptado en vb.net pero lo tengo que leer desde c++

nose como explicarme,

yo tengo una aplicacion que encripta cadenas de texto y lo guarda en un ini, (Uso el Codigo que anda por google el mas comun) lo dejo a continuación

Private des As New TripleDESCryptoServiceProvider 'Algorithmo TripleDES
    Private hashmd5 As New MD5CryptoServiceProvider 'objeto md5
    Private myKey As String = "MyKey2012" 'Clave secreta(puede alterarse)

    'Funcion para el Encriptado de Cadenas de Texto
    Private Function Encriptar(ByVal texto As String) As String

        If Trim(texto) = "" Then
            Encriptar = ""
        Else
            des.Key = hashmd5.ComputeHash((New UnicodeEncoding).GetBytes(myKey))
            des.Mode = CipherMode.ECB
            Dim encrypt As ICryptoTransform = des.CreateEncryptor()
            Dim buff() As Byte = UnicodeEncoding.ASCII.GetBytes(texto)
            Encriptar = Convert.ToBase64String(encrypt.TransformFinalBlock(buff, 0, buff.Length))
        End If
        Return Encriptar
    End Function
eso me funciona bien por ejemplo yo pongo Hola Mundo y en el ini me lo guarda asi = iBDMs+gepxGTVLCy9HSEiA==

bien ahora yo necesito que desde una dll que ya tengo echo lo desencripte, pero la dll esta echa en c++

pero no se si es posible hacer esa funcion en c++ alguien tiene alguna idea?

o alguno conoce algun metodo para encriptar y desencriptar cadenas de texto en c++ y en vb.net?

saludos

hola buenos dias.
bueno eh estado tratando de pasar el modulo de luciano en vb2010
pero como no tengo mucho conocimientos en el vb2010 no le encuentro la vuelta.

tengo el error en este pedaso de codigo

Private Function ShellURL(ByVal sUrl As String) As String

        Dim hOpen As Long, hFile As Long, sBuffer As String, ret As Long, sRead As String

        sBuffer = Space(1024)

        hOpen = InternetOpen(VB-RemoteSetting", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)

        'hFile = InternetOpenUrl(hOpen, sUrl, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
 
        hFile = InternetOpenUrl(hOpen, sUrl, vbNullString, 0&, INTERNET_FLAG_RELOAD, 0&)

        Do
            InternetReadFile(hFile, sBuffer, 1024, ret)
            sRead = sRead & Left(sBuffer, ret)
            If ret = 0 Then Exit Do
        Loop

        ShellURL = Mid(sRead, 2)

        InternetCloseHandle(hFile)
        InternetCloseHandle(hOpen)

    End Function
si lo pongo con ByVal 0& me dice "Se Esperaba una Expresion"
si lo pongo con 0& solamente, no me dice error
pero cuando ejecuto la aplicacion, me dice

El Ayudante para la depuración administrada 'PInvokeStackImbalance' ha detectado un problema en 'C:\Documents and Settings\Administrador\Mis documentos\Visual Studio 2010\Projects\ControlMu\ControlMu\bin\Debug\ControlMu.vshost.exe'.
Información adicional: Una llamada a la función PInvoke 'ControlMu!ControlMu.Remote::InternetOpen' impidió la correspondencia de la pila. Es posible que la razón sea que la firma PInvoke administrada no coincida con la firma de destino no administrada. Compruebe que la convención y los parámetros de llamada de la firma PInvoke coinciden con la firma no administrada de destino.

alguien lo pudo pasar a este modulo a vb2010?

o alguna ayuda para hacerlo funcionar...

gracias

buenas
le comento me baje el modulo de leandro que esta muy bueno, todo me funciona perfecto pero tengo una duda
tengo que cargar los datos de una tabla en una list o datagrid o algo similar.

el archivo php yo lo arme asi

<?phpinclude('config.php');$sql = "SELECT * FROM ms_generos";$query = mysql_query($sql,$link);  while ($row = mysql_fetch_array($query)) {  {echo " la categoria es: ".$row['g_nombre']."";}     }?>

y lo llamo desde visual basic

Citar

MSFlexGrid1.AddItem PidoListaCategorias

que en el modulo puse asi

Citar

Public Function PidoListaCategorias(Optional Default As String) As Variant
Dim SRet As String
SRet = ShellURL(URL & "categorias.php")
PidoListaCategorias = IIf(SRet = vbNullString, Default, SRet)
End Function

si yo entro por el navegador a la url del php me da los echo 1 al lado del otro
y en visual basic me carga todos los echos en 1 solo item

alguien me podria dar 1 mano.
muchas gracias