VPF::дешифратор - Форум программистов

MozgZombi

Дата 25.9.2011, 09:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 9.1.2011
Где: Екатеринбург

Репутация: нет
Всего: нет

помогите, хочу написать прогу шифратор, дешифратор кнопка шифрования работать, а кнока дешифратор как не ломал голову не смог придумать помогите плз
вот код кнопки шифрования
Text2.Text = ""
Do While x < Len(Text1.Text)
x = x + 1
Text2.Text = Text2.Text & " " & Asc(Mid(Text1.Text, x, 1))
Loop
x = 0

Данкинг

Дата 25.9.2011, 10:16 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Алгоритм шифровки крутой, никто не расшифрует. Если только так:

Код


Private Sub Кнопка0_Click()
 stri = "100 102 105"
 tmp = ""
 result = ""
 
 stri = stri + " "
 For j = 1 To Len(stri)
  If Mid(stri, j, 1) = " " Then
   result = result + Chr(Val(tmp))
   tmp = ""
  Else
   tmp = tmp + Mid(stri, j, 1)
  End If
 Next
 MsgBox (result)
End Sub

Добавлено через 48 секунд
Ну, под себя переделай, разумеется.

--------------------

There's nothing left but silent epitaphs.

MozgZombi

Дата 25.9.2011, 11:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 9.1.2011
Где: Екатеринбург

Репутация: нет
Всего: нет

спасибо!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »