Keskustelu: Koodit: VB6: Cryptaus muuttamalla kirjainten Ascii arvoa

Private Sub Command1_Click()

'Cryptataan salasana

'käsitellään virheet errhandler nimisessä
'virheiden käsittelijässä
On Error GoTo Errhandler

'Muuttujat tekstiä, sen pituutta, käsiteltäviä kirjaimia
'ja cryptattu sanaa varten
Dim Text As String
Dim Pituus As Long
Dim Kirjain As String
Dim Cryptattu As String

'haetaan sana
Text = Text1.Text
'selvitetään pituus
Pituus = Len(Text1.Text)

'silmukka joka jatkuu kunnes jokainen kirjain on käsitelty
For i = 1 To Pituus

    'haetaan kirjain käyttäen mid-funktiota
    Kirjain = Mid(Text, i, 1)
    'lisätään kirjaimen ascii arvoa 13:sta
    Cryptattu = Cryptattu & Chr(Asc(Kirjain) + 13)
    'tulostetaan teksti
    Text2.Text = Cryptattu

Next

Errhandler:
    'oli virhe mikä tahansa
    If Err.Number Then
       'näytetään virheilmoitus
       MsgBox "Virhe salasanan muodostamisessa!", vbCritical, "Virhe!"

    End If




End Sub

Private Sub Command2_Click()

'DeCryptaus

'selvitetään virheet errhandler nimisessä virheen käsittelijässä
On Error GoTo Errhandler

'Muuttujat tekstiä, sen pituutta, käsiteltäviä kirjaimia
'ja decryptattu sanaa varten
Dim Text As String
Dim Pituus As Long
Dim Kirjain As String
Dim DeCryptattu As String

    'haetaan teksti
    Text = Text2.Text
    'selvitetään merkkijonon pituus
    Pituus = Len(Text)

'Suoritetaan silmukkaa niin kauan kunnes jokainen kirjain on
'käsitelty
For i = 1 To Pituus

    'haetaan kirjain
    Kirjain = Mid(Text, i, 1)
    'pienennetään decryptattavan kirjaimen Ascii arvoa 13:sta
    DeCryptattu = DeCryptattu & Chr(Asc(Kirjain) - 13)
    'näytetään teksti tekstikentässä
    Text1.Text = DeCryptattu

Next

'virheen käsittelijä
Errhandler:
    'oli virhe mikä tahansa
    If Err.Number Then
       'näytetään virhe ilmoitus
       MsgBox "Virhe salasanan cryptauksen purkamisessa!", vbCritical, "Virhe!"

    End If


End Sub