PC-HELP.CZ

Zdravím, potřeboval bych pomoc s Césarovou šifrou ve VB.

1)uděláš si pole písmen
2)procházíš cyklem každé písmeno v textu, pokud narazíš na písmeno, který je větší než délka pole tak pokračuješ od začátku
3)vypíšeš překodovaný text

u dekodování to uděláš stejně, akorát budeš místo přičítání toho čísla odečítat

Caesarova šifra, posun o tři znaky:


Šifrování probíhá v tabulce shora dolů:
A=>D, H=>K, O=>R, J=>M, takže AHOJ=>DKRM.
Dešifrování je opačný proces, zdola nahoru.

Postup šifrování:
1. Uložíš text do řetězce.
2. Ve smyčce bereš jedno písmeno po druhém.
3. Ověříš jestli je to znak v intervalu A..Z nebo a..z, znaky mimo tyhle oblasti ignoruješ (přeskočíš body 4-6).
4. Zjistíš ASCII kód znaku, je-li větší než 97, odečteš 32 (tím převedeš malá písmena na velká).
5. Ke kódu přičteš zadaný posun, vyjde-li číslo větší než 90 (kód písmene Z), odečteš 26.
6. Výslednou hodnotu převedeš na znak.
7. Zobrazíš znak.

Dešifrování se liší pouze v jednom bodě:
5. Od kódu odečteš zadaný posun, vyjde-li číslo menší než 65 (kód písmene A), přičteš 26.

Je jenom na tobě, jestli použiješ dvě samostatné rutiny pro šifrování a dešifrování, nebo jednu s větvením podle potřeby. V druhém případě máš dokonce víc možností jak řešení implementovat.

Tenhle způsob je rychlejší než vyhledávání znaku v poli, ale nemůžeš ho použít pro "zpřeházenou" abecedu, kde písmena nejdou za sebou, nebo jsou kombinované s číslicemi a jinými znaky.

No, já chápu jak tu funguje a jak by to mělo vypadat, ale neumím to napsat. Nepomůžeš mi aspoň jak začít? Mám to takhle, a nevím jak dál. A ještě když to má být takto
Př: Šifrované slovo: Kolik
Šifra: 12
Zašifrované slovo: Lqmkl
Kdyby jen o tu jedničku, ale o 1 a pak o 2 nevím jak udělat.

No, já VisualBasic neumím (a ani nechci, je to jeden z nejodpornějších jazyků jaké jsem viděl), ale ty příkazy mi místy připomínají starý QuickBasic, tak se pokusím o něco přibližného.
Ten klíč mi není úplně jasný, to se má jako opakovaně posouvat dvakrát za sebou? To ten kdo to vymyslel o šifrování moc neví Zadáváš to tam jako dvoumístné číslo, tak bys mohl provést postupně (int(posun/10)) a (posun mod 10), nebo posunout jednou o ciferný součet, nebo úplně jinak.
A dal bych ta tlačítka vedle sebe, takhle:



Šifrovací rutina:


Rutina pro dešifrování bude mít tyhle dva řádky odlišné:

No každopádně mi to nefunguje :(

Dim vstup As String
Dim vystup As String
Dim i As Long
Dim znak As String
Dim posun As Long

posun = UCase(text2.Text)
vstup = UCase(text1.Text)
text3.Text = vystup
vystup = ""
For i = 1 To Len(vstup)
znak = Mid(vstup, i, 1)
If znak >= "A" And znak <= "Z" Then
znak = Chr(Asc(znak) + 3)
If znak > "Z" Then znak = Chr(Asc(znak) - 26)
End If
vystup = vystup & znak
Next i

Nevím co tam mám špatně...

Tohle mi vysvětli:


Podle mě je posun číselná proměnná, a (co si vzpomínám z QBasicu) UCase je převod na velká písmena. Takže se pokoušíš přiřadit řetezec jako číslo bez nějakého převodu? V BASICu na tohle existovala funkce VAL.

A o kus dál máš ten posun zase zadaný jako konstantu:

Ok, takže takhle?

Private Sub Command1_Click()
Dim vstup As String
Dim vystup As String
Dim i As Long
Dim znak As String
Dim posun As Long

posun = Val(text2.Text)
vstup = text1.Text
vystup = ""
For i = 1 To Len(vstup)
znak = Mid(vstup, i, 1)
If znak >= "A" And znak <= "Z" Then
znak = Chr(Asc(znak) - posun)
If znak > "Z" Then znak = Chr(Asc(znak) - 26)
End If
vystup = vystup & znak
Next i
text3.Text = vystup

End Sub

Private Sub Command2_Click()
Dim vstup As String
Dim vystup As String
Dim i As Long
Dim znak As String
Dim posun As Long

posun = Val(text2.Text)
vstup = text1.Text
vystup = ""
For i = 1 To Len(vstup)
znak = Mid(vstup, i, 1)
If znak >= "A" And znak <= "Z" Then
znak = Chr(Asc(znak) + posun)
If znak > "Z" Then znak = Chr(Asc(znak) - 26)
End If
vystup = vystup & znak
Next i
text3.Text= vystup

--- Doplnění předchozího příspěvku (25 Kvě 2012 20:35) ---

Ještě bych potřeboval poradit jak udělám tohle
Šifrované slovo:
Kolik
Šifra: 12
Zašifrované slovo: Lqmkl
V tom posunu

Už ti ten program něco dělá? Já ho tu neodzkouším, na Linuxu mi VB nepoběží.

Šifrované slovo:
Kolik
Šifra: 12
Zašifrované slovo: Lqmkl

Tohle jsi mi měl ukázat hned, podle toho bych pochopil co se tím myslí! Z toho tvého popisu se to fakt nedalo uhádnout že se má ten posun dělat na střídačku, lichá písmena o jeden a sudá o dva znaky...

Ale pokud používáš funkci UCase, tak se ti ten text celý převede na velká písmena, takže Kolik bude LQMKL. Jestli chceš zachovat velikost, musíš buď ohlídat obě skupiny písmen A..Z i a..z zvlášť, nebo pracovat s celou sadou tisknutelných znaků, což je 32..255, ale někde se nedají použít znaky 127 a občas i 255.
Abys zjistil co všechno se ti podaří zobrazit, nech si vypsat tabulku znaků:



Ten zdroják příště označ tlačítkem (Code), ať se zachová formátování a je to přehlednější, abych to nemusel luštit přes HTML kód stránky

No takhle to funguje, co mám dát místo toho UCase?

Nedávej tam nic ať zůstane velikost jaká je, ale budeš muset řešit zvlášť velká a zvlášť malá písmena, a navíc z toho druhého okénka získat posun1 a posun2, a těmi šifrovat střídavě.

No když tam nedám nic, tak se změní jen první písmeno a ostatní zůstanou.

--- Doplnění předchozího příspěvku (27 Kvě 2012 21:13) ---

Na netu jsem našel kod k té šifře, je tam to char1 a 2, ale nevím jak to mám použít u toho mého.