Категории
Самые читаемые
vseknigi.club » Разная литература » Газеты и журналы » Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
[not-smartphone]

Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт

Читать онлайн Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт

Шрифт:

-
+

Интервал:

-
+

Закладка:

Сделать
1 ... 228 229 230 231 232 233 234 235 236 ... 375
Перейти на страницу:
�� �������� �� �� �������.

Sub decrypt()

Dim a, b, c, d As String

������ ��� �����������:

� = "003004016001018027082016021025007083017029029009"

������:

b = "password"

���� ���������������:

� = ""

������ ����� ������ �� �����:

lentext = Len(�)

lenpass = Len(b)

���������� ��������������� (���������� ����������� �������������� � ��������� ������� � ��� �� ��� ������):

For cn = 1 �� lentext Step 3

� = � + Chr(Val(Mid(c, cn, 3)) Xor Asc(Mid(b, (Int(cn / 3) Mod lenpass) + 1, 1)))

Next cn

� ����� � ���������� � � �������������� ������, �� ����� �������� � ����� ����� � � ��������, � �������:

Selection.TypeText Text:=a

End Sub

�����, �������, ��� ��������� � ���� ������� ��� ������������ ����������, ��������, ������� �������� ������ ���� � ������ ��������, ����� ������������� ����� �������� ��� ������������� ����� ����. �� ��� � ��� �� �������.

�������� � �������� ����

��������� ��� ������� ����� �����: "���������� � �������� ������", "���������� � �������� ������", "��������� ����". � ���, ��� ��� ��������, ����� ������ ������� �����, ������ ����� ������� ������� �������� ��� ������� ���������.

��� ���������� � �������� ������ ��� ����������� � ����������� ������������ ���� � �� �� ������������������ �������� � �������� ������ � �����. ������ � ���, ��� ������ ����. ��� ���������� �� � �������� ������ ������������ ��� ������������������ ��������, ������ ������������� � ������� ������ ������������������ ����� ������������ ������ � ������� ������, � ��������. ��� ������������������ ������� ����� ����� �� ������������� ������, ��� ���� �� ������ ������������������ ����� �������� ������, �� �� ������ ������ �� �������,�� �������� �������������� ����������.

������������ ����������� ���������� ���� ����� ������������������� (���������� �������), ����� ������ �� ��� �������� ����, �� ���� ����� ��������� �������� ("�������� ��� ��������� ����"), � ������ �������� ���� � ������� ��� ������ ��� ("�������� ���� ��������� ����"). ��, ��� ����� ����������� ������������ ���� ��������� ������, ���� ��� ����������� ������������ �� ������. ��� ������ ������� ������ ���������� ���������� �����.

������ ���������� ���������� � �������� ������ � ��� ����������� �������, ���������� ������� � ������������ ������������ ������������ ������ ��� ��������� ��� ��������. ��� �� ������������� �������������� ����������� ����� (������, ����� ���� ����� ����) ���������, � ����� ��� ��������� ��������� ������. �����, � ���� ���� ������ (���������) ���� �� ���� ����, ����� ������������ �� �, ��������� �������������� ����������� ����� ���������� ���������, �������� ���������� �������� � ��������������. ��� ������������ ���� ���� ������� ����� ������ � ������������������� ��������� ������ ��������� � �������� ���������.

������ �� ����� �������� �������� �������� ���������� PGP.

������� ����� ������ Office

������� VBA � ����� ������� Office � �������� ����������� � ���������� ����� �������, �������� � ��������. ������ ���� ��������� ��������.

� �ffice2000 ���������� ������� ������ �� ������� � ��������. ���, � Word2000 ��� ����, ����� ����� ����������� ��������� �������, ����������, ����� � ���������� ���� "������ � ������� � ������������" ��� ���������� "�������" ��� "������" ������� ������ �� �������� (����� "�������" � ����� ��� �������� ���������� � ��������� ������������ ����� ����� ������ � ������������� ���������� ���������� ��������). ����� � Word2000 ��� ����, ����� ������������ ���� ����������� ��������� ������� �� ��������, ������������� � ����� ��������������� ������ Word, ���������� �� ������� "�������� ���������" ����������� ���� "������ � ������� � ������������" ���������� ������� � ������ "�������� ���� ������������� ����������� � ��������". ��� ���� ���� ������� ��������� � ������������ � ��������������� ���� ���������.

�� �� ����� ����� � ��� Office ��, ������ ������� ���� � �����. ��-������, �� ��������� ���������� Office ��, ���������� �� ������ ��������, �� ������� ���� �� �������� � ����� �������, ������, Microsoft �������� �������� �������� ���������� ������������� �� ������������. �� �������� �����, �������� �� �������� ������ �������� ������ �����, ��� ������, ��� ������� �� �������� �� VBA �� ����� �������, ��� � ���������� ������ � ����� ���������� �� ������� ��������� � ������������� ����������� ����������� Office ����� ������� ������������� ��������. ��-������, ��� ����, ����� ����� ����������� ���������� ���������� ������ � ����� ������� ����� ����������� � ���������, ����������, ����� � ���������� ���� "������ � ������� � ������������", �� ������� "�������� ���������" ������� ������� � ������ "�������� ������ � Visual Basic Project". �� ���� ���� ������� ��������� � ������� � ���������.

� OfficeXP ����������� ���� �� ����� ����� � ������ ��� ������� ��� ����������� ������������ ���� ����� ������ ��� ����������� ������ �������������� (������ "��������� ������" �� ������ "������� �����", ���.�5.5).

���.�5.5. ���� � Office XP �� ������ ���������� � ������� ����� � ������� VBA-��������� ����� ������� ���������������.

1 ... 228 229 230 231 232 233 234 235 236 ... 375
Перейти на страницу:
На этой странице вы можете читать бесплатно книгу Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт без сокращений.
Комментарии