none
Db2 Encriptación con Visual Basic 2012 RRS feed

  • Pregunta

  • He buscado por todas partes...

    ¿Alguien Tendría un Ejemplo?

    Agradecido de ante mano


    Atentamente [Best Regards] [Amicalement] Ivan Pequeño Andrade

    viernes, 4 de diciembre de 2015 20:47

Respuestas

Todas las respuestas

  • Hola Iván:

    Mírate este linq.

    Link

    Un saludo.

    Gemma

    domingo, 6 de diciembre de 2015 11:24
  • Muchas Gracias, de Gran Utilidad

    Atentamente [Best Regards] [Amicalement] Ivan Pequeño Andrade

    domingo, 6 de diciembre de 2015 21:20
  • Me Respondo a mi mismo por si le puede servir a alguien...

    Merge y Encriptación

    CREATE OR REPLACE PROCEDURE M3T.A2_PERS_BASICO_MRG (
        IN PIDREG INTEGER,
        IN PRUT VARCHAR(10),
        IN PNOMBRE VARCHAR(20),
        IN PAPELLIDO VARCHAR(20),
        IN PVIANUM VARCHAR(50),
        IN PIDASHU INTEGER,
        IN PACTIVO CHARACTER(2),
        IN PLOGIN VARCHAR(15),
        IN PCLAVE VARCHAR(124),
        IN PCOSTO VARCHAR(124),
        IN PHORAS INTEGER,
        IN PCRIPTOSI CHARACTER(1),
        IN PWEBSI CHARACTER(1),
        IN PADMINSI CHARACTER(1),
        IN PA1_EMPINTER INTEGER,
        IN K VARCHAR(20) )
      SPECIFIC SQL160215120518461
      LANGUAGE SQL
      NOT DETERMINISTIC
      EXTERNAL ACTION
      MODIFIES SQL DATA
      CALLED ON NULL INPUT
      INHERIT SPECIAL REGISTERS
      OLD SAVEPOINT LEVEL
    BEGIN
            SET ENCRYPTION PASSWORD = K;
            MERGE INTO  M3T.A2_PERS_BASICO AS Tbl
                  USING (VALUES(pIDReg)) AS DAT(IDReg)
                  ON    Tbl.IDReg = DAT.IDReg

            WHEN MATCHED THEN
                UPDATE SET
                    Tbl.RUT = pRUT,
                    Tbl.NOMBRE = pNOMBRE,
                    Tbl.APELLIDO = pAPELLIDO,
                    Tbl.VIANUM = pVIANUM,
                    Tbl.IDASHU = pIDASHU,
                    Tbl.ACTIVO = pACTIVO,
                    Tbl.LOGIN = pLOGIN,
                    Tbl.CLAVE = Encrypt(pCLAVE),
                    Tbl.COSTO = Encrypt(pCOSTO),
                    Tbl.HORAS = pHORAS,
                    Tbl.CRIPTOSI = pCRIPTOSI,
                    Tbl.WEBSI = pWEBSI,
                    Tbl.ADMINSI = pADMINSI,
                    Tbl.A1_EMPINTER = pA1_EMPINTER

            WHEN NOT MATCHED THEN
                INSERT
                     (
                      RUT,
                      NOMBRE,
                      APELLIDO,
                      VIANUM,
                      IDASHU,
                      ACTIVO,
                      LOGIN,
                      CLAVE,
                      COSTO,
                      HORAS,
                      CRIPTOSI,
                      WEBSI,
                      ADMINSI,
                      A1_EMPINTER
                     )
                  VALUES
                     (
                      pRUT,
                      pNOMBRE,
                      pAPELLIDO,
                      pVIANUM,
                      pIDASHU,
                      pACTIVO,
                      pLOGIN,
                      Encrypt(pCLAVE),
                      Encrypt(pCOSTO),
                      pHORAS,
                      pCRIPTOSI,
                      pWEBSI,
                      pADMINSI,
                      pA1_EMPINTER
                     );
    END;


    Atentamente [Best Regards] [Amicalement] Ivan Pequeño Andrade

    lunes, 9 de mayo de 2016 21:10