«

»

Lis 03

Wydrukuj to Wpis

Visual Basic-Szyfrowania i Deszyfrowania

Encrypt-Decrypt

Program napisany w visual basicu szyfruje i deszyfruje teksty w bardzo łatwy sposób.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressBar(0, TextBox1.Text.Length - 1, TextBox2)
        TextBox2.Clear()
        For i = 0 To TextBox1.Text.Length - 1
            TextBox2.Text &= ChrW(AscW(TextBox1.Text.Chars(i)) + 1)
            ProgressBar1.PerformStep()
        Next
        ProgressBar1.Visible = False
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ProgressBar(0, TextBox2.Text.Length - 1, TextBox1)
        TextBox1.Clear()
        For i = 0 To TextBox2.Text.Length - 1
            TextBox1.Text &= ChrW(AscW(TextBox2.Text.Chars(i)) - 1)
            ProgressBar1.PerformStep()
        Next
        ProgressBar1.Visible = False
    End Sub
 
    Sub ProgressBar(ByVal min As Long, ByVal max As Long, ByVal TXTBox As TextBox)
        With ProgressBar1
            .Minimum = min
            .Maximum = max
            .Step = 1
            .Visible = True
            .Left = TXTBox.Left + (TXTBox.Width / 2 - ProgressBar1.Width / 2)
            .Top = TXTBox.Top + (TXTBox.Height / 2 - ProgressBar1.Height / 2)
        End With
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ProgressBar1.Visible = False
    End Sub
End Class

Załączniki do pobrania

Permalink do tego artykułu: http://tmall.com.pl/visual-basic-szyfrowania-i-deszyfrowania/

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *

Możesz użyć tych znaczników i atrybutów HTMLa: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>