Dotaz: Caesarova sifra s pouzitim pole (Visual Basic)

[Virteal]

Dobry den, zasekl jsem se na jedne veci a uz 2 dny nevim, jak dal, proste se nemam koho zeptat a fantazie moc nepomohla. Pisu jeden programek, ktery ma zasifrovat text pomoci Caesarovy sifry. Formular se sklada z jednoho Comboboxu, dvou Textboxu (do jednoho se zada text a v druhem se objevi bud zasifrovany nebo rozsifrovany text, podle toho, jaka akce se zada v comboboxu) a tlacitka "Proved". Kod vypada takto:

Public Class Form1

Dim abeceda() = {"a", "b", "c", "d", "e", "f", "g", "h", "ch", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

End Sub

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If ComboBox1.SelectedItem = "Zašifruj" Then For Next

ElseIf ComboBox1.SelectedItem = "Rozšifruj" Then For Next

Else : MsgBox("Nevybrali jste akci.") End If End Sub End Class

Je mi jasny, ze prepocet jednotlivych pismen v textu na pismena nachazejici se v abecede o 3 mista dale docilim pomoci pole, jednoduse vytvorim pole s abecedou, v poli se mi najde prvni pismeno v textu a posune se o 3 mista dale. Pak se preskoci na druhe pismeno v retezci, najde se v abecede a znovu se posune a tak se to opakuje do doby, nez je zasifrovany cely text. V tomto pripade musim vyuzit cyklus, ktery bude prechazet na dalsi pismena v textu. Jenze netusim, jak s textem v textboxu 2 pracovat jako s jednotlivymi pismeny, jak to prevest? Jak mam s tim textem zadanym do textboxu 2 pracovat?

Odpovědi

[Kit]

Jako indexy pole používej vstupní znaky. Jako hodnotu ulož požadované výstupní znaky.

[DarkKnightCZ]

respektive pokud nepodporuje visualbasic jine nez ciselne indexy, tak pouzij ascii hodnotu znaku (treba stylem znak - 'a', at ty indexy jsou od nuly)

[xkucf03]

Přílohy:

• Caesar.java (3109 bytů)
• Caesar.png (13970 bytů)

Visual Basic je mrtvá technologie, na to bych se vykašlal.

Tady máš program napsaný v Javě.

[potato]

A, zase jeden příznivce قلب...

[xkucf03]

Původně jsem mu to chtěl napsat v Perlu, ale tohle mi přišlo jednodušší a srozumitelnější.

Případně můžu doporučit Qt/Quick/C++ (asi nejlepší technologie na GUI aplikace). Ale učit se dneska VB je IMHO ztráta času.

[potato]

Mi spíš šlo o to, zda je počeštění dostatečné a zda by obrozenci raději nečetl takovýto kód:

načti java.awt.GridLayout;
načti java.awt.HeadlessException;
načti java.awt.event.ActionEvent;
načti java.awt.event.ActionListener;
načti java.util.ArrayList;
načti java.util.Collections;
načti java.util.List;
načti javax.swing.JButton;
načti javax.swing.JFrame;
načti javax.swing.JLabel;
načti javax.swing.JTextField;

/**
 * @author Ing. František Kučera (frantovo.cz)
 */
veřejná třída Caesar rozšiřuje JFrame {

	důvěrné JTextField prostýText = nové JTextField();
	důvěrné JTextField šifrovanýText = nové JTextField();
	důvěrné JButton šifruj = nové JButton("Šifruj");
	důvěrné JButton dešifruj = nové JButton("Dešifruj");
	důvěrné stálé konečné char[] ABECEDA_ZNAKY = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789".toCharArray();
	důvěrné stálé konečné List<Character> ABECEDA;
	důvěrné stálé konečné int SKOK = 3;

	stálé {
		List<Character> abeceda = nové ArrayList<>();
		pro (char z : ABECEDA_ZNAKY) {
			abeceda.add(z);
		}
		ABECEDA = Collections.unmodifiableList(abeceda);
	}

	veřejné stálé prázdné main(String[] args) {
		Caesar c = nové Caesar();
		c.setVisible(true);
	}

	veřejné Caesar() háže HeadlessException {
		setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
		setTitle("Caesarova šifra");
		setLocationRelativeTo(null);
		setLayout(nové GridLayout(3, 2));
		
		add(nové JLabel("Prostý text"));
		add(prostýText);

		add(nové JLabel("Šifrovaný text"));
		add(šifrovanýText);

		add(šifruj);
		add(dešifruj);

		šifruj.addActionListener(nové ActionListener() {
			@Override
			veřejné prázdné actionPerformed(ActionEvent e) {
				šifrovanýText.setText(posuň(prostýText.getText(), SKOK));
			}
		});

		dešifruj.addActionListener(nové ActionListener() {
			@Override
			veřejné prázdné actionPerformed(ActionEvent e) {
				prostýText.setText(posuň(šifrovanýText.getText(), -SKOK));
			}
		});

		pack();
	}

	důvěrné stálé String posuň(String text, int oKolik) {
		StringBuilder posunutý = nové StringBuilder(text.length());

		pro (char z : text.toCharArray()) {
			posunutý.append(posuň(z, oKolik));
		}

		vrať posunutý.toString();
	}

	důvěrné stálé char posuň(char znak, int oKolik) {
		int původníPozice = ABECEDA.indexOf(znak);

		pokud (původníPozice < 0) {
			vrať znak;
		} jinak {
			int nováPozice = (původníPozice + oKolik) % ABECEDA_ZNAKY.length;
			nováPozice = nováPozice < 0 ? ABECEDA_ZNAKY.length + nováPozice : nováPozice;
			vrať ABECEDA.get(nováPozice);
		}
	}
}

[Jendа]

Jsi tedy zastáncem přístupu, že by se proměnné, funkce a spol. měly při programování psát zásadně anglicky? Proč?

[Radek Miček]

Lepší by byl nějaký jednodušší a pravidelnější jazyk typu esperanto. Kompilátor by pak mohl využívat a kontrolovat názvy identifikátorů případně i komentáře.

[xkucf03]

1. Je to nedůsledné (kde máš např. nový PolníSeznam<>() nebo BezhlaváVýjimka?)
2. Takový programovací jazyk neexistuje.
3. Napsat to česky mi přijde jako dobrý nápad, protože čtenář na první pohled vidí, co je můj program a naopak jaké názvy a klíčová slova pocházejí ze standardní knihovny a jazyka (což se hodí dvojnásob, když čteš kód v programovacím jazyce, který moc neznáš)

[potato]

1. Ano. Pro ilustraci (a vyvolání reakcí) to zjevně stačilo takhle.

2. Preprocesor pro Javu umožňující psát takto je otázka hodiny práce.

3. Napsat to česky jednak vytváří zlozvyk, druhak vyžaduje při čtení přepínat kontext několikrát na řádku, takže to těžko pomáhá porozumění.

[Kit]

Pochybuji, že by tohle kompilátor Javy přeložil. Identifikátory však česky být mohou. Přečti si dokumentaci.

[potato]

Porouchaný detektor ironie?

[Kit]

Ne. Porouchaný detektor ironie na ironii.

[Heron]

Pobavilo