Foro de elhacker.net

#include<stdio.h> 
 
int main()
{
  char Palabra[256];
  int i = 0;
  fgets (Palabra,255,stdin);
 
  for  (i = 0; i < strlen(Palabra);i++)
       printf("%c \n",Palabra[i]);
 
  getchar(); // pausa
  getchar();
 
  return 0;
}

#include<stdio.h>
#include<stdlib.h>
int main(void)
{
    int i=0;
    char cadena[10];
    printf("Ingrese la palabra: ");
    scanf("%10s",&cadena);
    for(i=0;cadena[i]!='\0';i++)
        printf("%c ",cadena[i]);
    getchar();
    return 0;
}

#include <iostream>
#include <string>
 
using namespace std;
 
int main()
{
    string frase;
    cout << "escriba una frase" << endl;
    getline(cin,frase);
    int n=1;
    for(int tamano=0;tamano<frase.size();tamano++)
    {
        char letra=frase[tamano]+n;
        cout << letra;
        n++;
        if(n>10)
        {
            n=1;
        }
 }
 

#include <iostream>
#include <string>
 
using namespace std;
 
int main()
{
    string frase;
    cout << "escriba una frase cifrada" << endl;
    getline(cin,frase);
    int n=1;
    for(int tamano=0;tamano<frase.size();tamano++)
    {
        char letra=frase[tamano]-n;
        cout << letra;
        n++;
        if(n>10)
        {
            n=1;
        }
    }
}
 

#include<stdio.h>
 
int main()
{
    char Palabra[256];
    int i = 0;
    puts ("\Introduzca palabra o frase a cifrar:");
    fgets (Palabra,255,stdin);
    puts ("\nLa frase es:");
    for  (i = 0;Palabra[i]!='\0';i++)
       printf("%c ",Palabra[i]);
    puts ("\nCiframos la frase");
    for  (i = 0; Palabra[i]!='\0';i++)
       {
           Palabra[i]+=i;
           printf("%c ",Palabra[i]);
       }
    puts ("\n\nDesiframos la frase");
    for  (i = 0; Palabra[i]!='\0';i++)
       {
           Palabra[i]-=i;
           printf("%c ",Palabra[i]);
       }
    puts ("\n\nPresione ENTER para salir");
    getchar();
    return 0;
}
 

#include <iostream>
 
using namespace std;
 
int main() {
 
    string palabra = ""; //Creamos e inicalizamos variables
    int numero = 0;
    int TamanyoPalabra = 0;
 
    cout << "Palabra? >> "; cin >> palabra;  // 1  i  2 paso
    cout << "Veces a correr >> "; cin >> numero;  // 3 paso
 
    TamanyoPalabra = palabra.length(); // 4 paso
 
    for (int i = 0; i < TamanyoPalabra ; i++) { // 4 paso
        for (int z = 0; z < numero; z++) { palabra[i]++; } // 5 paso
    } // 6 paso
 
    cout << palabra; // Mostrar palabra cifrada
 
    return 0; //Salir
 
}

#include <stdio.h>
#include <stdlib.h>
 
int main()
{
     int des, i = 0, j = 0;
     char cadena[30] = {0};
 
     printf("Introduce una cadena: ");
     scanf("%s", cadena);
 
     printf("Ingrese desplazamiento: ");
     scanf(" %d", &des);
 
     for(; cadena[i]!='\0'; i++)
        cadena[i]+=des;
     printf("\nEncriptado es: %s \n", cadena);
 
     for(; cadena[j]!='\0'; j++)
        cadena[j]-=des;
      printf("\nDesencriptado es: %s \n", cadena);
 
     return 0;
}

for(; cadena[i]!='\0'; i++)
        cadena[i]+=des;
 
printf("\nEncriptado es: %s \n", cadena);
 
for(; cadena[j]!='\0'; j++)
        cadena[j]-=des;
printf("\nDesencriptado es: %s \n", cadena);

char cadena_aux[30];
 
for(; cadena[i]!='\0'; i++)
{
        cadena[i]+=des;
        cadena_aux[i] = cadena[i];
}
cadenaaux[i] = '\0';
 
printf("\nEncriptado es: %s  y descifrado es %s\n", cadena,cadena_aux);
 

#include<stdio.h>
 
int main()
{
    char caracter[2][28] = { {"ABCDEFGHIJKLMNÑOPQRSTUVWXYZ"},
                             {"XJOPZWAUÑLDQSFRBMVHKNYTIEGC"} };
    char cadena[30] = {0};
    int i, j = 0, k = 0;
 
    printf("Ingrese una cadena en Mayuscula: ");
    scanf("%s", cadena);
 
       for (; cadena[k]!='\0'; k++){
           for (i = 0; i < 27; i++)
               if (cadena[j] == caracter[0][i]){
                   cadena[j] = caracter[1][i];
                   j++;
             }
       }
     printf("\n%s", cadena);
 
     return 0;
}
 

#include <stdio.h>
#include <stdlib.h>
 
#define ABC  "abcdefghijklmnopqrstuvwxyz"
 
int main(void)
{
   char ch[] = ABC  ABC;
   size_t max_despl = sizeof(ABC) - 1;
   unsigned despl;
   unsigned i;
 
   printf("Desplazamiento: ");
   fflush(stdout);
   if (scanf("%u", &despl) != 1 || despl > max_despl)
      return EXIT_FAILURE;
 
   for (i = 0; i < max_despl; i++)
      printf("%c ==> %c\n", ch[i], ch[i + despl]);
 
   return EXIT_SUCCESS;
}

char  in[] = "Ab";
char out[] = "HX";

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
int main(void)
{
   char  in[] = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ";
   char out[] = "XJOPZWAUÑLDQSFRBMVHKNYTIEGC";
   char cadena[30];
   char *p;
   int i;
   int j;
 
   printf("Ingrese una cadena en Mayuscula: ");
   fflush(stdout);
   if (scanf("%s", cadena) != 1)
      return EXIT_FAILURE;
 
   for (i = 0; cadena[i] != '\0'; i++){
      p = strchr(in, cadena[i]);
      putchar(p == NULL ? cadena[i] : out[p - in]);
   }
   putchar('\n');
 
   return EXIT_SUCCESS;
}

return EXIT_SUCCESS;

/*En criptografía, el cifrado César, también conocido como cifrado
por desplazamiento, código de César o desplazamiento de César, es
una de las técnicas de codificación más simples y más usadas.
Es un tipo de cifrado por sustitución en el que una letra en el
texto original es reemplazada por otra letra que se encuentra un
número fijo de posiciones más adelante en el alfabeto. Por
ejemplo, con un desplazamiento de 6.*/
#include <stdio.h>
#include<stdlib.h>
#include <string.h>
int main (void)
{
    int i,n=0,aux;
    char frase [256];
    char cadena []="WIKIPEDIA, LA ENCICLOPEDIA LIBRE \n\
    Wikipedia la Enciclopedia Libre f F x X";
    puts("WIKIPEDIA, LA ENCICLOPEDIA LIBRE \n\
    Wikipedia la Enciclopedia Libre f F x X");
    for (i=0;cadena[i]!='\0';i++)
        {
            if ((cadena [i]>='u' && cadena [i]<='z') || (cadena [i]>='U' && cadena [i]<='Z' ))   cadena [i]-=20;
            else if (cadena [i]>='a' && cadena [i]<='t' || (cadena [i]>='A' && cadena [i]<='T' ))   cadena [i]+=6;
        }
    puts("\nY ahora codificada con desplazamiento 6:");
    printf ("%s\n",cadena);
    puts("\nY ahora descodificada: ");
    for (i=0;cadena[i]!='\0';i++)
        {
            if ((cadena [i]<='f' && cadena [i]>='c') || (cadena [i]<='F' && cadena [i]>='C' ))   cadena [i]+=20;
            else if (cadena [i]>'f' && cadena [i]<='z' || (cadena [i]>'F' && cadena [i]<='Z' ))   cadena [i]-=6;
        }
    printf ("%s\n",cadena);
 
/******* AHORA CON ENTRADA DESDE TECLADO *******/
 
    while (1)
    {
    n=0;
    puts ("\n\nIntroduce una frase: ");
    fgets (frase,255,stdin);
    do
    {
        printf ("\nIndica el desplazamiento (1-25): ");
        scanf ("%d",&n);
        while (getchar()!='\n');
    }while (n<1 || n>25);
    for (i=0;frase[i]!='\0';i++)
    {
        if ((frase [i]>('z'-n) && frase [i]<='z') || (frase [i]>('Z'-n) && frase [i]<='Z' ))
            frase [i]=frase [i]-26+n;
        else if (frase [i]>='a' && frase [i]<=('z'-n) || (frase [i]>='A' && frase [i]<=('Z'-n) ))
            frase [i]+=n;
    }
    printf("\nCodificada con desplazamiento %d \n",n);
    printf ("%s\n",frase);
    puts("\nY ahora descodificada: ");
    for (i=0;frase[i]!='\0';i++)
        {
            if ((frase [i]<('a'+n) && frase [i]>=('a')) || (frase [i]<('A'+n) && frase [i]>=('A') ))
            frase [i] =frase [i]+26-n;
            else if ((frase [i]>=('a'+n) && frase [i]<=('z') )|| (frase [i]>=('A'+n) && frase [i]<=('Z') ))
                frase [i]-=n;
        }
    printf ("%s\n",frase);
    }
 
    /***************  :-)   OTRA FORMA  :-)   **********/
    return 0;
}
 

WIKIPEDIA, LA ENCICLOPEDIA LIBRE
    Wikipedia la Enciclopedia Libre f F x X
 
Y ahora codificada con desplazamiento 6:
COQOVKJOG, RG KTIOIRUVKJOG ROHXK
    Coqovkjog rg Ktioiruvkjog Rohxk l L d D
 
Y ahora descodificada:
WIKIPEDIA, LA ENCICLOPEDIA LIBRE
    Wikipedia la Enciclopedia Libre f F x X
 
 
Introduce una frase:
leosansan Abc Xyz
 
Indica el desplazamiento (1-25): 6
 
Codificada con desplazamiento 6
rkuygtygt Ghi Def
 
 
Y ahora descodificada:
leosansan Abc Xyz

#include <stdio.h>
#include <ctype.h>
 
int main()
{
     int i, j, des, a, z;
     char cadena[30] = "";
 
     printf("Ingrese una cadena: ");
     scanf("%s", cadena);
 
     printf("Ingrese desplazamiento: ");
     scanf(" %d", &des);
 
     for(i = 0; cadena[i]!='\0'; i++)
     {
        a = 97;
        if(isupper(cadena[i])) a = 65;
        cadena[i] =((cadena[i]-a+des)%26)+a; 
      }
      printf("\nCifrado es: %s \n", cadena);
 
     for(j = 0; cadena[j]!='\0'; j++)
     {
        z = 122;
        if(isupper(cadena[j])) z = 90;
        cadena[j]= ((cadena[j]-z-des)%26)+z; 
      }
 
      printf("\nDecifrado es: %s \n", cadena);
 
     return 0;
}
 

getchar();
getchar();
return 0;

_C.0:
 
incl %edx
scasb
jne _C.0
 
_C.1:
 
decl %edi
addb $0x3, (%edi)
decl %edx
jne _C.1
 
movl %edi, %eax
ret

char *cesar (char *ptr)
 
{
 
__asm
 
  {
        xor eax, eax
        xor ecx, ecx
        mov edi, ebx
 
_C.0:
        inc ecx
        scasb
        jne _C.0
 
_C.1:
        dec edi
        add byte ptr [edi], 0x3
        dec ecx
        jne _C.1
        mov eax, edi
  }
 
}

#include <stdio.h>
#include <ctype.h>
void cesar (char *cadena , int letra, int des);
int main()
{
    int  des=0, letra=0;
    char cadena[256]={0};
    puts("Ingrese una cadena: ");
    gets (cadena);
    //fgets (cadena,255,stdin);
    do
    {
        puts("\nIndica el desplazamiento: ");
        scanf ("%d",&n);
        while (getchar()!='\n');
    }while (n<0 || n>25);
    cesar (cadena,97,des);
    printf("\nCifrado es: %s \n", cadena);
    cesar (cadena,122,-des);
    printf("\nDecifrado es: %s \n", cadena);
    return 0;
}
void cesar (char cadena[] , int letra, int des)
{
    int i,letra1=0;
    for(i = 0; cadena[i]; i++)
     {
        if ( cadena[i]==' ')
            continue;
        letra1=letra;
        if(isupper(cadena[i])!=0)
            letra1-=32;
        cadena[i] =((cadena[i]-letra1+des)%26)+letra1;
      }
}
 

char *cesar (char *ptr)
 
{
 
__asm
..............
}
 

ret

ret

#include <stdio.h>
int main(void)
{
    char frase[256] = {0};
    int i=0,j=0,desplazamiento=0;
    char abc[] = {"ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"};
    while(1)
    {
        printf("Ingrese una cadena: ");
        fgets (frase,255,stdin);
        do
        {
            puts("Ingrese desplazamiento: (1-25) ");
            scanf ("%d",&desplazamiento);
            while (getchar()!='\n');
        }while (desplazamiento<0 || desplazamiento>25);
        for(i = 0; frase[i]; i++)
        {
            for(j = 0; j<26; j++)
            {
 
                if ( frase[i]==' ')
                    break;
                if (frase[i]==abc[j])
                {
                    frase[i] =  abc[j+ desplazamiento];
                    break;
                }
            }
            for(j = 78; j<104; j++)
            {
 
                if ( frase[i]==' ')
                    break;
                if (frase[i]==abc[j])
                {
                    frase[i] =  abc[j+ desplazamiento];
                    break;
                }
            }
        }
        printf("Cadena cifrada: %s\n\n", frase);
        for(i = 0; frase[i]; i++)
          {
            for(j = 52;j<78 ; j++)
            {
                if ( frase[i]==' ')
                    break;
                if (frase[i]==abc[j])
                {
                    frase[i] =  abc[j- desplazamiento];
                    break;
                }
            }
            for(j = 130;j<156 ; j++)
            {
                if ( frase[i]==' ')
                    break;
                if (frase[i]==abc[j])
                {
                    frase[i] =  abc[j- desplazamiento];
                    break;
                }
            }
        }
        printf("Cadena descifrada: %s\n", frase);
    }
    return 0;
}
 

        printf("Ingrese una cadena: ");
        fgets (frase,255,stdin);
 
         puts("Ingrese desplazamiento: (1-25) ");
         scanf ("%d",&desplazamiento);
 

while (getchar()!='\n');

programa < fichero.txt

while (getchar()!='\n');

        printf("Ingrese una cadena: ");
        fgets (frase,255,stdin);
 
         puts("Ingrese desplazamiento: (1-25) ");
         scanf ("%d",&desplazamiento);
 

while (getchar()!='\n');

programa < fichero.txt

#include <stdio.h>
int main(void)
{
    char frase[256] = {0};
    int i=0,j=0,desplazamiento=0;
    char ABC[] = {"ABCDEFGHIJKLMNOPQRSTUVWXYZ"};
    char abc[] = {"abcdefghijklmnopqrstuvwxyz"};
    while(1)
    {
        printf("Ingrese una cadena: ");
        fgets (frase,255,stdin);
        do
        {
            puts("Ingrese desplazamiento: (1-25) ");
            scanf ("%d",&desplazamiento);
            while (getchar()!='\n');
        }while (desplazamiento<0 || desplazamiento>25);
        for(i = 0; frase[i]; i++)
        {
            for(j = 0; j<26; j++)
                {
 
                    if ( frase[i]==' ')
                        break;
                    if (frase[i]==abc[j] && j+ desplazamiento<26)
                    {
                        frase[i] =  abc[j+ desplazamiento];
                        break;
                    }
                    else if (frase[i]==abc[j] && j+ desplazamiento>=26)
                    {
                        frase[i] =  ABC[j+ desplazamiento-26];
                        break;
                    }
                    else if (frase[i]==ABC[j] && j+ desplazamiento<26)
                    {
                        frase[i] =  ABC[j+ desplazamiento];
                        break;
                    }
                    else if (frase[i]==ABC[j] && j+ desplazamiento>=26)
                        {
                            frase[i] =  abc[j+ desplazamiento-26];
                            break;
                    }
                }
        }
         printf("Cadena cifrada: %s\n\n", frase);
         for(i = 0; frase[i]; i++)
        {
            for(j = 0; j<26; j++)
                {
 
                    if ( frase[i]==' ')
                        break;
                    if (frase[i]==abc[j] && j- desplazamiento>=0)
                    {
                        frase[i] =  abc[j- desplazamiento];
                        break;
                    }
                    else if (frase[i]==abc[j] && j- desplazamiento<0)
                    {
                        frase[i] =  ABC[j-desplazamiento+26];
                        break;
                    }
                    else if (frase[i]==ABC[j] && j- desplazamiento>=0)
                    {
                        frase[i] =  ABC[j- desplazamiento];
                        break;
                    }
                    else if (frase[i]==ABC[j] && j- desplazamiento<=0)
                        {
                            frase[i] =  abc[j-desplazamiento+26];
                            break;
                    }
                }
        }
         printf("Cadena descifrada: %s\n\n", frase);
    }
    return 0;
}
 

#include <stdio.h>
int main (void)
{
    int i,n=0,k=0;
    char frase [256];
 
    while (1)
    {
        n=0;
        puts ("\nIntroduce una frase: ");
        fgets (frase,255,stdin);
        do
        {
            printf ("\nIndica el desplazamiento: ");
            scanf ("%d",&n);
            while (getchar()!='\n');
        }while (n<0 || n>25);
 
        for (i=0;frase[i];i++)
        {
            if ((frase [i]>('z'-n) && frase [i]<='z') || (frase [i]>('Z'-n) && frase [i]<='Z' ))
                frase [i]=frase [i]-26+n;
            else if (frase [i]>='a' && frase [i]<=('z'-n) || (frase [i]>='A' && frase [i]<=('Z'-n) ))
                frase [i]+=n;
        }
        printf("\nCodificada con desplazamiento %d \n",n);
        printf ("%s\n",frase);
        puts("\nY ahora descodificada: ");
        for (k=0;k<26;k++)
        {
            for (i=0;frase[i];i++)
            {
                if ((frase [i]<('a'+k) && frase [i]>=('a')) || (frase [i]<('A'+k) && frase [i]>=('A') ))
                frase [i] =frase [i]+26-k;
                else if ((frase [i]>=('a'+k) && frase [i]<=('z') )|| (frase [i]>=('A'+k) && frase [i]<=('Z') ))
                    frase [i]-=k;
            }
            printf ("%s\n\n",frase);
            system ("pause");
        }
    }
    return 0;
}
 

#include <stdio.h>
#include <ctype.h>
#include <time.h>
void cesar (char *cadena , int letra, int *key);
int main()
{
    int  i=0,des=0, letra=0;
    srand((unsigned) time(NULL));
    char cadena[0x100]={0};
    puts("Ingrese una cadena: ");
    gets (cadena);
    int key[strlen(cadena)],_key[strlen(cadena)];
     for (i = 0;cadena[i]; i++)
    {
        key[i] = rand() % 0x1A+1 ;
        _key[i] = -key[i];
    }
    cesar (cadena,0x61,key);
    printf("\nCifrado es: %s \n", cadena);
    cesar (cadena,0x7A,_key);
    printf("\nDecifrado es: %s \n", cadena);
    return 0;
}
void cesar (char cadena[] , int letra, int *des)
{
    int i,letra1=0;
    for(i = 0; cadena[i]; i++)
     {
        if ( cadena[i]==' ')
            continue;
        letra1=letra;
        if(isupper(cadena[i])!=0)
            letra1-=0x20;
        cadena[i] =((cadena[i]-letra1+des[i] )%0x1A)+letra1;
      }
}

Cifrado es: Uhmvhvcjsakoo Mqoug ctz Xwrvdm Gycgs

Ingrese una cadena:
"leosan@san.com! ¿san? #leo+san|=\12345!==$$
 
Cifrado es: Vêt├ôíêc£x}enªºn ╣░®╗M C├ç┼k¢qçðv|3xKfT=pYxx
 
Decifrado es: "leosan@san.com! ¿san? #leo+san|=\12345!==$$

/*
 * Cifrado de Vigenere
 *
 * Linea de comandos: nombre_programa -a alfabeto -[c|f] cadena|fichero -k clave -s [fichero_salida | std]
 *
 * Cifra los caracteres de la cadena (parametros -c "Cadena") o el fichero (parametros -f nombre_del_fichero)
 * que coincidan con los del alfabeto (- que se le pasa, utilizando la clave dada (parametros -k clave)
 *
 */
 
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
#define MAX_STRLEN 256
 
/*
 * Las siguientes constantes sirven para decidir si la funcion vigenere actuara sobre una cadena o un fichero
 */
#define IN_CADENA  0
#define IN_FICHERO 1
 
/*
 * Constantes para decidir si la funcion vigenere cifrara o descifrara la entrada
 */
#define ACCION_CIFRAR    0
#define ACCION_DESCIFRAR 1
 
/*
 * vigenere(tipo entrada (cadena o fichero), cadena con texto o nombre de fichero con el input,
 * alfabeto, clave, cifrar|descifrar, fichero de salida (stdin o nombre de arcivo))
 *
 * valor de retorno: 0 si algo falla, 1 si todo va bien.
 */
 
 unsigned long flen(FILE *f)
{
    unsigned long pos,len;
 
    pos = ftell(f);
    fseek(f,0,SEEK_END);
    len = ftell(f);
    fseek(f,pos,SEEK_SET);
 
    return len;
}
 
int vigenere(int modo_input, char *cadena, char *alfabeto, char *clave, char accion, FILE *salida)
{
    FILE *entrada = NULL;
    unsigned long longitud,tam_bloque,tam_clave,tam_alfabeto;
    char *lector,*busqueda;
    int *desplazamiento,i,indice = 0;
 
    /* comprobamos que en alfabeto no haya letras repetidas */
    for(i = 0 ; alfabeto[i] ; i++)
        if(strchr(alfabeto + i + 1,alfabeto[i]))
            return 0;
 
    /* comprobamos que los caractreres de la clave esten en el alfabeto */
    for(i = 0 ; clave[i] ; i++)
        if(!strchr(alfabeto,clave[i]))
            return 0;
 
    if(modo_input == IN_CADENA)
        longitud = strlen(cadena);
    else if(modo_input == IN_FICHERO)
    {
        if(!(entrada = fopen(cadena,"rb")))
            return 0;
 
        longitud = flen(entrada);
    }
    else
        return 0;
 
    tam_alfabeto = strlen(alfabeto);
    tam_clave = tam_bloque = strlen(clave);
 
    if(!(lector = malloc(tam_bloque * sizeof(char))))
        return 0;
 
    if(!(desplazamiento = malloc(tam_bloque * sizeof(int))))
    {
        free(lector);
        return 0;
    }
 
    for(i = 0 ; clave[i] ; i++)
    {
        if(!(busqueda = strchr(alfabeto,clave[i])))
        {
            free(lector);
            free(desplazamiento);
 
            return 0;
        }
 
        if(accion == ACCION_CIFRAR)
            desplazamiento[i] = busqueda - alfabeto;
        else if(accion == ACCION_DESCIFRAR)
            desplazamiento[i] = alfabeto - busqueda; /* el desplazamiento de descifrado es el opuesto del de cifrado */
        else
        {
            free(lector);
            free(desplazamiento);
 
            return 0;
        }
    }
 
    if(modo_input == IN_CADENA)
    {
        while(longitud)
        {
            if(longitud < tam_bloque)
                tam_bloque = longitud;
 
            memcpy(lector,cadena,tam_bloque * sizeof(char));
 
            for(i = 0 ; i < tam_bloque ; i++)
            {
                if(busqueda = strchr(alfabeto,lector[i]))
                {
                    lector[i] = alfabeto[((busqueda - alfabeto) + desplazamiento[indice] + tam_alfabeto) % tam_alfabeto];
                    indice = (indice + 1) % tam_clave;
                }
            }
 
            fwrite(lector , tam_bloque*sizeof(char) , 1 , salida);
 
            if((tam_bloque == tam_clave) && (longitud > tam_bloque))
                cadena += tam_bloque;
 
            longitud -= tam_bloque;
        }
    }
    else if(modo_input == IN_FICHERO)
    {
        while(longitud)
        {
            if(longitud < tam_bloque)
                tam_bloque = longitud;
 
            fread(lector,tam_bloque * sizeof(char),1,entrada);
 
            for(i = 0 ; i < tam_bloque ; i++)
            {
                if(busqueda = strchr(alfabeto,lector[i]))
                {
                    lector[i] = alfabeto[((busqueda - alfabeto) + desplazamiento[indice] + tam_alfabeto) % tam_alfabeto];
                    indice = (++indice) % tam_clave;
                }
            }
 
            fwrite(lector , tam_bloque*sizeof(char) , 1 , salida);
 
            longitud -= tam_bloque;
        }
    }
    else
    {
        if(entrada)
            fclose(entrada);
 
        free(lector);
        free(desplazamiento);
 
        return 0;
    }
 
    if(entrada)
        fclose(entrada);
 
    free(lector);
    free(desplazamiento);
 
    return 1;
}
 
int main(int argc, char *argv[])
{
    char error[] = "%s [+|-]c (cifrar|descifrar) -a alfabeto -[s|f] [cadena|fichero] -k clave -o [fichero_salida|std]\n";
    char alfabeto[MAX_STRLEN] = "", fentrada[MAX_STRLEN] = "", clave[MAX_STRLEN] = "", fsalida[MAX_STRLEN] = "";
    char *texto = NULL,*ftemp = NULL;
    int sobreescribir = 0, modo = ACCION_CIFRAR + ACCION_DESCIFRAR + 1, i, j;
    FILE *f;
 
    if(argc != 10)
    {
        fprintf(stderr,error,argv[0]);
        return 1;
    }
 
    for(i = 1 ; i < 10 ; i += 2)
    {
        if(!strcmp(argv[i],"-a"))
        {
            if(strlen(alfabeto))
            {
                fprintf(stderr,"-a: Parametro repetido\n");
                return 2;
            }
 
            if(!strlen(argv[i + 1]))
            {
                fprintf(stderr,"-a: Alfabeto vacio no permitido\n");
                return 3;
            }
 
            for(j = 0 ; argv[i + 1][j] ; j++)
            {
                if(strchr(argv[i + 1] + j + 1, argv[i + 1][j]))
                {
                    fprintf(stderr,"-a: No se permiten caracteres repetidos en el alfabeto\n");
                    return 4;
                }
            }
 
            if(strlen(argv[i + 1]) >= MAX_STRLEN)
            {
                fprintf(stderr,"-a: El alfabeto es demasiado largo. Se truncara a partir del caracter %d.\n",MAX_STRLEN);
 
                strncpy(alfabeto, argv[i + 1], 255);
                alfabeto[255] = '\0';
            }
            else
                strcpy(alfabeto,argv[i + 1]);
        }
        else if(!strcmp(argv[i],"-s"))
        {
            if(texto || strlen(fentrada))
            {
                fprintf(stderr,"-s: Parametro -[s|f] repetido\n");
                return 5;
            }
 
            texto = argv[i + 1];
        }
        else if(!strcmp(argv[i],"-f"))
        {
            if(texto || strlen(fentrada))
            {
                fprintf(stderr,"-f: Parametro -[s|f] repetido\n");
                return 6;
            }
 
            if(strlen(argv[i + 1]) >= MAX_STRLEN)
            {
                fprintf(stderr,"-f: El nombre del fichero de entrada no debe exceder los %d caracteres\n",MAX_STRLEN);
                return 7;
            }
 
            if(!strlen(argv[i + 1]))
            {
                fprintf(stderr,"-f: El nombre del fichero de entrada no puede estar vacio\n");
                return 8;
            }
 
            strcpy(fentrada,argv[i + 1]);
        }
        else if(!strcmp(argv[i],"-k"))
        {
            if(strlen(clave))
            {
                fprintf(stderr,"-k: Parametro -k repetido\n");
                return 9;
            }
 
            if(!strlen(argv[i + 1]))
            {
                fprintf(stderr,"-k: No se permiten claves vacias");
                return 10;
            }
 
            if(strlen(argv[i + 1]) >= MAX_STRLEN)
            {
                fprintf(stderr,"-k: La clave no debe exceder los %d caracteres\n",MAX_STRLEN);
                return 11;
            }
 
            if(!strlen(argv[i + 1]))
            {
                fprintf(stderr,"-k: La clave no puede ser vacia\n");
                return 12;
            }
 
            strcpy(clave,argv[i + 1]);
        }
        else if(!strcmp(argv[i],"-o"))
        {
            if(strlen(fsalida))
            {
                fprintf(stderr,"-o: Parametro -o repetido\n");
                return 13;
            }
 
            if(strlen(argv[i + 1]) >= MAX_STRLEN)
            {
                fprintf(stderr,"-o: El nombre del fichero de salida no debe exceder los %d caracteres\n",MAX_STRLEN);
                return 14;
            }
 
            if(!strlen(argv[i + 1]))
            {
                fprintf(stderr,"-o: El nombre del fichero de salida no puede estar vacio\n");
                return 15;
            }
 
            strcpy(fsalida,argv[i + 1]);
        }
        else if(!strcmp(argv[i],"-c"))
        {
            if(!(modo ^ ACCION_CIFRAR) || !(modo ^ ACCION_DESCIFRAR))
            {
                fprintf(stderr,"-c: Parametro [+|-]c repetido\n");
                return 16;
            }
 
            modo = ACCION_DESCIFRAR;
            i--; /* este argumento no tiene asociado un parametro */
        }
        else if(!strcmp(argv[i],"+c"))
        {
            if(!(modo ^ ACCION_CIFRAR) || !(modo ^ ACCION_DESCIFRAR))
            {
                fprintf(stderr,"+c: Parametro [+|-]c repetido\n");
                return 17;
            }
 
            modo = ACCION_CIFRAR;
            i--; /* este argumento no tiene asociado un parametro */
        }
        else
        {
            fprintf(stderr,error,argv[0]);
            return 18;
        }
    }
 
    //comprobar que los caracteres de la clave estan en el alfabeto
    for(i = 0 ;  clave[i] ; i++)
    {
        if(!strchr(alfabeto,clave[i]))
        {
            fprintf(stderr,"La clave contiene caracteres que no aparecen en el alfabeto\n");
            return 19;
        }
    }
 
    if(!strcmp(fsalida,"std"))
    {
        f = stdout;
    }
    else
    {
        if(f = fopen(fsalida,"r"))
        {
            char opcion;
 
            do{
                printf("El fichero de salida ya existe. Deseas sobreescribirlo? (S/N) ");
                opcion = getchar();
 
                if(opcion > 'Z')
                    opcion += 'S' - 's';
 
                while(getchar() != '\n');
 
            }while(opcion!= 'S' && opcion!='N');
 
            if(opcion == 'S')
            {
                fclose(f);
 
                ftemp = tmpnam(NULL);
 
                if(!(f = fopen(ftemp,"wb")))
                {
                    fprintf(stderr,"%s: Error al abrir el fichero de salida\n",argv[0]);
                    return 20;
                }
                sobreescribir = 1;
            }
            else
            {
                fclose(f);
                return 0;
            }
        }
        else
            f = fopen(fsalida,"wb");
    }
 
    //si fsalida == std llamar a vigenere con los parametro y fsalida stdout
    if(texto)
    {
        if(!vigenere(IN_CADENA,texto,alfabeto,clave,modo,f))
        {
            fprintf(stderr,"%s no ha podido cifrar la informacion dada\n",argv[0]);
            return 21;
        }
    }
    else
    {
        if(!vigenere(IN_FICHERO,fentrada,alfabeto,clave,modo,f))
        {
            fprintf(stderr,"%s no ha podido cifrar la informacion dada\n",argv[0]);
            return 21;
        }
    }
 
    if(strcmp(fsalida,"std"))
        fclose(f);
 
    if(sobreescribir)
    {
        remove(fentrada);
        rename(ftemp,fentrada);
        remove(ftemp);
    }
 
    return 0;
}