

![]() |
![]() |
|
|||||||
![]() |
![]() |
| programowanie języki, projekty, pomoc, oprócz html, php, js |
|
|
|
LinkBack | Narzędzia wątku | Przeszukaj ten temat | Wygląd |
![]() |
![]() |
|
|||
|
potrzebuje implementowac pragram z szyfrem vigenera z C++ na PASCALA.
bylbym bardzo wdzieczny za pomoc. oto kod: */ Kod:
#include <stdio.h>
#include <stdlib.h>
#include <ctype.h>
int main()
{
int opcja,i=0,j=0,k;
char dane[256],haslo[256];
do
{
printf("\n\n\tWybierz opcje; 1 - szyfrowanie, 2 - deszyfrowanie: ");
scanf("%d",&opcja);
}
while(opcja!=1&&opcja!=2);
getchar();
switch(opcja)
{
case 1:
{
printf("\n\n\tPodaj tekst do zaszyfrowania: ");
fgets(dane,256,stdin);
printf("\n\n\tPodaj haslo: ");
fgets(haslo,256,stdin);
while(haslo[i]!=10)
{
if(islower(haslo[i]))
haslo[i]=toupper(haslo[i]);
i++;
}
k=i;
i=0;
while(dane[i]!=10)
{
if(islower(dane[i]))
dane[i]=toupper(dane[i]);
if(j<k)
{
if(haslo[j]+dane[i]-65<='Z')
dane[i]=haslo[j]+dane[i]-65;
else
dane[i]=haslo[j]+dane[i]-65-26;
}
else
{
j=0;
continue;
}
i++;
j++;
}
printf("\n\n\tTekst po zaszyfrowaniu: %s\n\n\t",dane);
break;
}
case 2:
{
printf("\n\n\tPodaj tekst do odszyfrowania: ");
fgets(dane,256,stdin);
printf("\n\n\tPodaj haslo: ");
fgets(haslo,256,stdin);
while(haslo[i]!=10)
{
if(islower(haslo[i]))
haslo[i]=toupper(haslo[i]);
i++;
}
k=i;
i=0;
while(dane[i]!=10)
{
if(islower(dane[i]))
dane[i]=toupper(dane[i]);
if(j<k)
{
if(dane[i]-haslo[j]+65>='A')
dane[i]=dane[i]-haslo[j]+65;
else
dane[i]=dane[i]-haslo[j]+65+26;
}
else
{
j=0;
continue;
}
i++;
j++;
}
printf("\n\n\tTekst po odszyfrowaniu: %s\n\n\t",dane);
break;
}
}
system("pause");
return 0;
}
Ostatnio edytowane przez amastah ; 08.11.2009 o 22:39. |
![]() |
![]() |
|
| Narzędzia wątku | Przeszukaj ten temat |
| Wygląd | |
|
|
Podobne wątki
|
||||
| Temat | Autor wątku | Forum | Odpowiedzi | Ostatni post/autor |
| [turbo pascal 7.0] modyfikacja programu | masteo | programowanie | 0 | 23.04.2009 14:02 |
| [Pascal]Dokończenie programu. | RandomOne | programowanie | 6 | 13.11.2008 18:02 |
| [Pascal] Problem z dokończeniem programu | Yanan | programowanie | 12 | 01.09.2008 17:27 |
| [Pascal] Przerobienie programu do pascala | maschu | programowanie | 0 | 03.03.2008 20:24 |
| [Pascal] Przeróbka mojego programu | ks29 | programowanie | 1 | 14.11.2007 23:07 |
| Wszystkie czasy w strefie GMT +2. Teraz jest 21:47. |

