Шифруем с помощью ASM вставок

Предыдущая тема Следующая тема Перейти вниз

Шифруем с помощью ASM вставок

Сообщение  trew в Чт Дек 23, 2010 8:49 pm

Этот код был написан для другого языка программироания, подредактировал чуточку, теперь работает на freebasic, комментарии прилагаются Very Happy :

Код:
Function SHIFR1(Byval stroka As string,Byval Parol As String) As String
   Dim As Integer lenpar=Len(Parol) ' длина пароля
   Dim As Integer lenn =Len(stroka) ' длина шифруемой строки
   Asm
      mov edx,[stroka]  'заносим адрес строки
      mov ebx,[parol] 'заносим адрес пароля
      Xor edi,edi  ' смещение адреса строки ставим на ноль
      XOR esi,esi ' смещение адреса пароля ставим на ноль
      Main: ' внешний цикл
      MOV al,[edx+edi]  ' заносим один символ строки
      Doch: ' внутренний цикл
      MOV ah,[ebx+esi]  ' заносим один символ пароля
      Xor al,ah    ' ксорим
      INC esi    ' следующий символ пароля
      CMP esi,[lenpar]  ' проверка на длину пароля
      Jnz Doch  ' если не достигнута длина
      XOR esi,esi  ' ставим указатель адреса пароля на первый символ
      MOV [edx+edi],al  ' записываем шифрованный символ туда, откуда брали
      INC edi  ' следующий символ строки
      CMP edi,[Lenn]  ' проверка на длину строки
      JNZ Main  ' если строка не кончилась
   End Asm
   Return stroka
End Function

Var SHSTR=SHIFR1("Freebasic","123456") ' шифруем с паролем

? SHSTR

? SHIFR1(SHSTR,"123456")' дешифруем с паролем
Sleep

trew

Сообщения : 331
Дата регистрации : 2010-10-14

Посмотреть профиль

Вернуться к началу Перейти вниз

Re: Шифруем с помощью ASM вставок

Сообщение  electrik в Пт Дек 24, 2010 4:55 pm

хороший шифровщик. можно еще наворотить, что б если хоть одна цифра не правильная, вообще не раскодировал. ну это уже из области аръхиваторов, crc и т.п.

electrik

Сообщения : 391
Дата регистрации : 2008-09-02
Возраст : 37
Откуда : галактика Млечный путь, система Солнечная, планета Земля, страна россия, город Санкт Петербург

Посмотреть профиль

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу

- Похожие темы

 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения