hacker


Ingresar con nombre de usuario, contraseña y duración de la sesión
| Portal Hacker | Editorial | Descargas | Ezine |
Inicio Ayuda Ingresar Registrarse
21 de Agosto de 2008, 05:54:55
Noticias: ¿Quieres aprender a programar en C/C++?
Para ver este enlace Registrate o Inicia Sesion
> lee aquí

+  Foros pOrtal Hacker
|-+  Programacion
| |-+  Programación en general
| | |-+  Visual Basic (Moderadores: ranefi, crypto136, ziBboh, >> s E t H <<)
| | | |-+  alguien sabe sobre firma dijital
0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: alguien sabe sobre firma dijital  (Leído 610 veces)
ebb
NZ1
*
Desconectado Desconectado

Mensajes: 30

Member, pOrtal HAcker


Ver Perfil
« : 27 de Abril de 2006, 10:04:27 »

como yo puedo crear una firma digital para mi programa que esta enfocado en la web
En línea
ranefi
Moderador Global
*****
Desconectado Desconectado

Mensajes: 1,193


SELECT * FROM guapos WHERE papito_chulo = 'ranefi'


Ver Perfil WWW
« Respuesta #1 : 28 de Abril de 2006, 09:34:16 »

Buen día ebb. Aquí te dejo un ejemplo sobre cómo crear una firma digital.

Agregar 2 controles CommandButton, 4 Label y 4 TextBox e REPLACEar el siguiente código

Código:

Private oCrypto As New CRYPTOAPILib.Crypto

Private Sub Command2_Click()
On Error GoTo ups
    Text4.Text = oCrypto.DecryptString(Text2)
    If oCrypto.VerifyDigitalSignature(Text3.Text) = _
        False Then
        MsgBox "AAAAHHH MALDITA COCHINADAAAA", vbCritical
    End If
    Exit Sub
ups:
    MsgBox "No se encontró firma a normalizar", vbCritical
End Sub

Private Sub Command1_Click()
On Error GoTo ups
    Text2.Text = oCrypto.EncryptString(Text1)
    Text3.Text = oCrypto.DigitalSignature
    Exit Sub
ups:
    MsgBox "Introduzca texto a firmar", vbCritical
End Sub

Private Sub Form_Load()
    oCrypto.ContainerName = "ranefilandia"
    Llenar
End Sub

Public Sub Llenar()
    Text1.Text = "ranefi"
    Text2.Text = Empty
    Text3.Text = Empty
    Text4.Text = Empty
   
    Label1.Caption = "Nombre a firmar"
    Label2.Caption = "Nombre encriptado"
    Label3.Caption = "Firma digital"
    Label4.Caption = "Nombre original"
   
    Command1.Caption = "Firmar"
    Command2.Caption = "Normalizar"
   
    Me.Caption = "Firma tu nick"
End Sub


Aquí te dejo el enlace de la librería que debes descargar------------->
Para ver este enlace Registrate o Inicia Sesion
Descargar librería


NOTA: Debes pegar la librería en la carpeta C:\Windows\System32 y posteriormente crear una referencia a tu proyecto (Proyecto-->Referencias; seleccionar el botón Browse y buscar la librería). Espero y todo haya quedado claro. Nos vemos.
« Última modificación: 28 de Abril de 2006, 09:40:08 por ranefi » En línea


SELECT * FROM mejores_batos_ del_mundo WHERE id = (SELECT DISTINCT id_guapo FROM los_mas_guapos _del_mundo WHERE papito_chulo = 'ranefi')
ebb
NZ1
*
Desconectado Desconectado

Mensajes: 30

Member, pOrtal HAcker


Ver Perfil
« Respuesta #2 : 28 de Abril de 2006, 08:04:47 »

TENGO UN PROGRAMA HECHO  EN VISUAL BASIC Y CONSTRUIDO CON UNA PLANTAILLA DE ACTIVEX LO TRABAJO EN UNA PAGINA HTML Y FUNCIONA BIEN.  PERO CUANDO LO INVOCO DESDE OTRO PC ME DICE QUE NO ESTA FIRMADO DIGITALMENTE  EL OCX Y NO LO DEJA DESCARGAR.  MI PREGUNTA ES LA SIGUIENHTE-

COMO PUEDO FIRMAR EL CONT5ROL OCX DIGITALMEN TE PARA QUE ME FUNCIONE DESDE CUALQUIER COMPUTADOR EN RED?
En línea
ranefi
Moderador Global
*****
Desconectado Desconectado

Mensajes: 1,193


SELECT * FROM guapos WHERE papito_chulo = 'ranefi'


Ver Perfil WWW
« Respuesta #3 : 29 de Abril de 2006, 11:06:52 »

    ¡Ah vaya! Pues entonces ve aquí-------------------------->
Para ver este enlace Registrate o Inicia Sesion
ENTRAR
. Y recuerda que debes ser más específico en tus preguntas ; )

PD: Si la respuesta fue o no satisfactoria debes hacernóslo saber y en caso de que haya sido satisfactoria debes cerrar el tema.
« Última modificación: 04 de Mayo de 2006, 03:35:37 por ranefi » En línea


SELECT * FROM mejores_batos_ del_mundo WHERE id = (SELECT DISTINCT id_guapo FROM los_mas_guapos _del_mundo WHERE papito_chulo = 'ranefi')
ebb
NZ1
*
Desconectado Desconectado

Mensajes: 30

Member, pOrtal HAcker


Ver Perfil
« Respuesta #4 : 09 de Mayo de 2006, 10:05:06 »

ey biem
En línea
ranefi
Moderador Global
*****
Desconectado Desconectado

Mensajes: 1,193


SELECT * FROM guapos WHERE papito_chulo = 'ranefi'


Ver Perfil WWW
« Respuesta #5 : 15 de Mayo de 2006, 07:02:41 »

El tema será bloqueado por cuestiones de orden, si desean desbloquearlo favor de enviar un MP. Nos vemos.
En línea


SELECT * FROM mejores_batos_ del_mundo WHERE id = (SELECT DISTINCT id_guapo FROM los_mas_guapos _del_mundo WHERE papito_chulo = 'ranefi')
Páginas: [1] Ir Arriba Imprimir 
« anterior próximo »
Ir a:  


Ingresar con nombre de usuario, contraseña y duración de la sesión

Powered by SMF 1.1.5 | SMF © 2006-2008, Simple Machines LLC hacker

Juegos gratis - Articulos PHP - Juegos - Trucos - Letras - Juegos - Juegos Online