Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
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-��������� ����� ������� ���������������.