Facebook
From Perl Hamster, 5 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 239
  1. object Main3 extends App {
  2.     var i = 0;
  3.     var j = 0;
  4.     val litery = ('A' to 'Z').toArray;
  5.     var rozmiarTablicy : Int = litery.size;
  6.     var tablica = Array.ofDim[Char](rozmiarTablicy, rozmiarTablicy);
  7.  
  8.     while (i < rozmiarTablicy) {
  9.         j = 0;
  10.         while (j < rozmiarTablicy) {
  11.             tablica(i)(j) = litery((i + j) % rozmiarTablicy);
  12.             j +=1;
  13.         }
  14.         i += 1;
  15.     }
  16.     /*
  17.     // WYPISYWANIE TABLICY SZYFRUJĄCEJ
  18.     i = 0;
  19.     j = 0;  
  20.     while (i < rozmiarTablicy) {
  21.         while (j < rozmiarTablicy) {
  22.             print(tablica(i)(j)+" ");
  23.             j += 1;
  24.         }
  25.         print("\n");
  26.         i += 1;
  27.     }
  28.     */
  29.     print("Wpisz haslo do zaszyfrowania (WIELKIMI LITERAMI): ");
  30.     var napis : String = io.StdIn.readLine();
  31.     print("Wpisz klucz (WIELKIMI LITERAMI): ");
  32.     var klucz : String = io.StdIn.readLine();
  33.     var dlugosc : Int = napis.length;
  34.     var dlugoscKlucza : Int = klucz.length;
  35.     var bezSpacji : String = "";
  36.  
  37.     i = 0;
  38.     while (i < dlugosc) {
  39.         if (napis(i) != ' ') {
  40.             bezSpacji += napis(i);
  41.         }
  42.         i += 1;
  43.     }
  44.     dlugosc = bezSpacji.length;
  45.    
  46.     i = 0;
  47.     while (klucz.length < dlugosc) {
  48.         klucz += klucz(i % dlugoscKlucza);
  49.         i += 1;
  50.     }
  51.  
  52.     var zaszyfrowane : String = "";
  53.     i = 0;
  54.     while (i < dlugosc) {
  55.         var wiersz : Int = 0;
  56.         while (bezSpacji(i) != tablica(wiersz)(0))
  57.             wiersz += 1;
  58.  
  59.         var kolumna : Int = 0;
  60.         while (klucz(i) != tablica(0)(kolumna))
  61.             kolumna += 1;
  62.         zaszyfrowane += tablica(wiersz)(kolumna);
  63.         i += 1;
  64.     }
  65.     print("\n\n\n")
  66.     println("Do zaszyfrowania:   " + bezSpacji);
  67.     println("Klucz:              " + klucz);
  68.     println("Zaszyfrowane hasło: " + zaszyfrowane);
  69.     print("\n\n");
  70. }