Por nuestra variedad de recursos técnicos, los profesionales de KyS Soluciones Ltda. ofrecen su expertís y experiencia fundado en el éxito de aplicaciones bajo entornos cliente/servidor y Web. Para esto se cuenta con una infraestructura que la componen un equipo de profesionales altamente calificados en las áreas de Informática, Operaciones y Finanzas, quienes por su experiencia, han dado origen a Software Especializados en la división Financiera.



KyS Soluciones Ltda.
2002-2010. All rights reserved.
Servicios Profesionales
_____________________________________________________________
Noticias

#include <vcl.h>
#pragma hdrstop

#include "Uencripta.h"
void Encriptador::encriptar(string nombre, string clave,TLabel *Estado, TProgressBar *Pro){

int i=0;
int r=0;
long n,m;
char cara;
string aux=nombre;
aux.erase(aux.find('.',0));
aux+=".enc";
string aux1;
aux1.assign(nombre,nombre.find('.',0),4);
int longclave=clave.length();
ifstream leer_ar(nombre.c_str(),ios::in|ios::binary);
//--------
m=leer_ar.tellg();
leer_ar.seekg(0,ios::end);
n=leer_ar.tellg();
leer_ar.seekg(0,ios::beg);
n=n-m;

ofstream escr(aux.c_str(),ios::out|ios::binary);

if(leer_ar.is_open()){

char b;
for (unsigned int i=0;i<aux1.length();i++) {b=aux1[i]^clave[i];
escr.write((char*) &b,sizeof(b));
};

char a;
Estado->Caption="ENCRIPTANDO";

       if(escr.is_open()){
               while ( leer_ar.read((char*)&cara,sizeof(cara)) )
                       { a=(cara ^ clave[i]);
                       escr.write((char*) &a,sizeof(a));
                       i = (i+1) % longclave;
                        r++;
                        if((r%100)==0){Pro->Position=100.0*r/n;};
                       }

               }else
                       Estado->Caption="NO SE PUEDE GUARDAR EL ARCHIVO";
       }else
               Estado->Caption="NO EXISTE EL ARCHIVO";
  leer_ar.close();escr.close();
  Estado->Caption="Encriptacion terminada";
}

void Encriptador::desencriptar(string nombre, string clave,TLabel *Estado,TProgressBar *Pro){
int i=0;
int r=0;
long n,m;
char cara;
string aux;
string aux1=nombre;
string aux2;
Estado->Caption="DESENCRIPTANDO";
ifstream leer_ar(aux1.c_str(),ios::in|ios::binary);
char a;
char b;
for (int i=0;i<4;i++) {leer_ar.read((char*)&b,sizeof(b));
aux[i]=b^clave[i];
};
int longclave=clave.length();
aux2=nombre.erase(nombre.find('.',0))+aux.c_str();
ofstream escr(aux2.c_str(),ios::out|ios::binary);
m=leer_ar.tellg();
leer_ar.seekg(0,ios::end);
n=leer_ar.tellg();
leer_ar.seekg(4,ios::beg);
n=n-m;
   if(leer_ar.is_open()){
       if(escr.is_open()){
               while (leer_ar.read((char*)&cara,sizeof(cara)) )
                       { a=(cara ^ clave[i]);
                       escr.write((char*) &a,sizeof(a));
                       i = (i+1) % longclave;
                        r++;
                        if((r%100)==0){Pro->Position=100.0*r/n;};
                       };
       
       
       
               }else
                       Estado->Caption="NO SE PUEDE GUARDAR EL ARCHIVO";
       }else
               Estado->Caption="NO EXISTE EL ARCHIVO";
  leer_ar.close();escr.close();
  Estado->Caption="Desencriptacion terminada";
}
#pragma package(smart_init)
Aplicaciones en Linea
Soporte técnico, desarrollo de nuevas funcionalidades y desarrollo en base cero para sistemas transaccionales de atención.
Análisis, evaluación y desarrollo de interfaces para incorporar soporte a nuevos elementos de Hardware, protocolos de comunicación y Base de datos.


Consultoria

Paginas Web

Aplicaciones en Línea

Proyectos Tecnológicos

Soporte de Personal Técnico

Plataforma Computacional y Software
________________________________________
Home          Nosotros        Servicios        Clientes       Alianzas       Contactos