Вот такая ситуация:
Надо передать другу (знакомому, маме, да кому угодно) какую-либо конфиденциальную информацию через интернет. По аське? Так просто взять и выслать пароль от webmoney? Ненадежно.. По телефону? «К большая, а маленькая, 786, F большая, тьфу, маленькая» — таким образом хорошего мало выйдет. Но есть программы для шифрования! Взяли пароль (а можно и не пароль, да что угодно, хоть послание девушке ) воткнули его в программу, ввели желаемый пароль шифрования и получили зашифрованный текст! Отправили кому надо.
Например слово «Привет» в зашифрованном виде с паролем «123» выглядит как:
254194219211215193
и кто поймет что это «Привет»? 
Начнем:)
создадим проект «Standart EXE» в Визуал Бейсике и поставим на форму 2 кнопки и одно текстовое поле. Сразу у текстового поля изменим свойство multiline=true
Теперь пишем исходный код для шифровки текста:
01.Public Function Encrypt(ByVal Source As String, ByVal Password As String) As String 'шифрование данных02.Dim a, b, c, d As String03.Dim lentext, lenpass, cn As Long04.a = Text1.Text05.b = InputBox("Введите пароль")06.c = ""07.lentext = Len(a)08.lenpass = Len(b)09.For cn = 1 To lentext10.d = Trim(Str(Asc(Mid(a, cn, 1)) Xor Asc(Mid(b, ((cn - 1) Mod lenpass) + 1, 1))))11.Select Case Val(d)12.Case 0 To 9: d = "00" + d13.Case 10 To 99: d = "0" + d14.End Select15.c = c + d16.Next cn17.Encrypt = c18.End Function19.Public Function Decrypt(ByVal Code As String, ByVal Password As String) As String 'расшифровывание данных20.Dim a, b, c, d As String21.Dim lentext, lenpass, cn As Long22.c = Text1.Text23.b = InputBox("Введите пароль")24.a = ""25.lentext = Len(c)26.lenpass = Len(b)27.For cn = 1 To lentext Step 328.a = a + Chr(Val(Mid(c, cn, 3)) Xor Asc(Mid(b, (Int(cn / 3) Mod lenpass) + 1, 1)))29.Next cn30.Decrypt = a31.End Function32.Private Sub Command1_Click()33.Text1 = Encrypt("text1", "parol")34.End Sub35.Private Sub Command2_Click()36.Text1 = Decrypt(Text1, "parol")37.End SubГотовый проект «шифровка текста»:
shifr.rar (745 bytes, 852 hits)
Comments ( 0 )