|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Шифрования и дешифрования
Как шифровать (exit.txt файл) сохранить и обратно де шифровать сохранить
Будет лудше если скажете простой способ потом я сам постораюсь зделать более сложный Зарания спосибо за помощь |
#2
|
||||
|
||||
Самый простой способ, для начала, это xor (или not).
|
#3
|
||||
|
||||
Примеры см. в этом разделе: http://www.delphisources.ru/pages/so.../1_raznoe.html
|
#4
|
||||
|
||||
Если интересно, можешь скачать мой шифратор\дешифратор.
Там реализовано 2 алгоритма - Base64 и Мудрёный XOR, если будешь разбираться и чего-нибудь не поймешь в исходниках - пиши сюда, я помогу. http://www.delphisources.ru/pages/so...shifrator.html THE CRACKER IS OUT THERE |
#5
|
||||
|
||||
Впринц могу компоненты с исходниками хорошие подкинуть (~20 алгортмов strong шифрования), но стоит ли .... там не всё так просто...
Нет повести печальнее на свете, чем повесть о заклиневшем Resete. |
#6
|
||||
|
||||
ОГРОМНОЕ СПОСИБО
|
#7
|
||||
|
||||
const
StartKey = 471; // Start default key MultKey = 62142; // Mult default AddKey = 11719; // Add default key function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string; var i: Byte; begin Result:=''; for i:=1 to Length(InString) do begin Result:=Result+Char(Byte(InString[i]) xor (StartKey shr 8)); StartKey:=(Byte(Result[i])+StartKey)*MultKey+AddKey; end; end; procedure TForm1.Button1Click(Sender: TObject); var s: string; begin s:=Encrypt(Edit2.Text, StartKey, MultKey, AddKey); ShowMessage('Расшифрованный текст "'+s+'"'); end; function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string; var i: Byte; begin Result:=''; for i:=1 to Length(InString) do begin Result:=Result+Char(Byte(InString[i]) xor (StartKey shr 8)); StartKey:=(Byte(InString[i])+StartKey)*MultKey+AddKey; end; end; procedure TForm1.Button2Click(Sender: TObject); begin Edit2.Text:=Decrypt(Edit1.Text, StartKey, MultKey, AddKey); end; как сделать чтобы шифровать и де шифроваь текст из Listbox-a ListView-a поменял эти красные места в кодике на listbox1.Items.Text шифровать сумел но дешифровать и опять добавить дешифрованный текст обратно не получается и еще после дешифровки в конце текста появляются какиета квадратики что это такое от чего это? Может поможете |
#8
|
||||
|
||||
Про этот вопрос не забудьте
|