urrya
Новичок
- Сообщения
- 159
- Репутация
- 1
Доброго времени уважаемые дамы и гос-да программисты.
Снова есть задачка.
Как зашифровать и расшифровать смешанный (Ru/En) текст из файла в файл ?
Нашёл хороший пример кода на этом форуме от madmasles,
но никак не могу сделать его рабочим для смешанного текста (Рус.+ Англ.)
нет, без записи в файл .txt код прекрасно работает, а вот через текстовый файл нет
:-\
Снова есть задачка.
Как зашифровать и расшифровать смешанный (Ru/En) текст из файла в файл ?
Нашёл хороший пример кода на этом форуме от madmasles,
но никак не могу сделать его рабочим для смешанного текста (Рус.+ Англ.)
Код:
$sText = 'Привет! Это бессмысленный текст для _EnCryptDeCrypt()'
$sPass = 'AutoIt Version: 3.3.8.1'
MsgBox(64, 'Info', 'Исходный текст: ' & $sText & @LF & 'Ключ: ' & $sPass)
$sEnCryptText = _EnCryptDeCrypt($sText, $sPass);
MsgBox(64, 'Info', 'Зашифрованный текст: ' & $sEnCryptText);
$sDeCryptText = _EnCryptDeCrypt($sEnCryptText, $sPass)
MsgBox(64, 'Info', 'Расшифрованный текст: ' & $sDeCryptText);
Func _EnCryptDeCrypt($s_Data, $s_Key)
If (Not $s_Data) Or (Not $s_Key) Then Return SetError(-1, 0, '')
Local $a_Data, $a_Key, $s_Ret, $i_ChrW, $i_UbData, $i_UbKey
$a_Data = StringToASCIIArray($s_Data)
$i_UbData = UBound($a_Data)
If Not $i_UbData Then Return SetError(1, 0, '')
$a_Key = StringToASCIIArray($s_Key)
$i_UbKey = UBound($a_Key)
If Not $i_UbKey Then Return SetError(2, 0, '')
For $i = 0 To $i_UbData - 1
For $j = 0 To $i_UbKey - 1
$i_ChrW = BitXOR($a_Data[$i], $a_Key[$j], ($i_UbKey - $j) * ($i_UbData - $i))
Next
$s_Ret &= ChrW($i_ChrW)
Next
Return $s_Ret
EndFunc ;==>_EnCryptDeCrypt
нет, без записи в файл .txt код прекрасно работает, а вот через текстовый файл нет
:-\