Форум   Статьи   Новости   Файлы   Bugtraq   Сниффер   Друзья   О Клубе
Вернуться   HPC / Кодинг / Другие Языки / Delphi
   
  Страница 1
  , 16:14   #1
Местный
 
Аватар для nickiller22
 
Локация: [В своих мечтах]
Регистрация: 16.11.2009
Сообщений: 315

Репутация: 21 / 1
По умолчанию Проблема с сохранением шифровоного текста в файл

Итак вы уже поняли исходя из названия темы трабл с сохранением шифровоново текста в файл..
вместо того чтобы сохранить то что нужно он сохраняет ????
Сохраняю в файл через memo хотя в memo отображаются текст нормально
код
function Crypt(Str, Key: String): String;
var
i, q: Integer;
begin
for i := 1 to Length(Str) do
begin
q := (Ord(Str[i]) + (Ord(Key[(Pred(i) mod Length(Key)) + 1]) - Ord('0')));
if q >= 256 then Dec(q, 256);
Str[i] := Chr(q);
Result := Str;
end;
end;

function DeCrypt(Str, Key: String): String;
var
i, q: Integer;
begin
for i := 1 to Length(Str) do
begin
q := (Ord(Str[i]) - (Ord(Key[(Pred(i) mod Length(Key)) + 1]) - Ord('0')));
if q < 0 then Inc(q, 256);
Str[i] := Chr(q);
Result := Str;
end;
end;


Как исправить?
 
Пользователь вне форума    
Наши Спонсоры
  , 18:40   #2
Местный
 
Аватар для nickiller22
 
Локация: [В своих мечтах]
Регистрация: 16.11.2009
Сообщений: 315

Репутация: 21 / 1
По умолчанию

Решил трабл так:
pass_load1.Lines.SaveToFile(GetCurrentDir+'\settings\gohome',Tencoding.UTF8);
Тему можно закрыть
 
Пользователь вне форума    
  , 21:52   #3
Новичок
 
Регистрация: 23.01.2015
Сообщений: 7

Репутация: 2 / 0
По умолчанию

))разумеется, тут дело в кодировке
 
Пользователь вне форума    
  , 17:23   #4
Новичок
 
Регистрация: 21.01.2013
Сообщений: 1

Репутация: 0 / 0
По умолчанию

В какой версии делфи писал?
 
Пользователь вне форума    
 

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Статья] PHP File Inclusion - От ошибки до шелла M@ZAX@KEP Сайты, Форумы, CMS 23 04.02.2012 05:17
FastStone Capture v.7.0 - утилита для записи изображений с монитора в файл Kontik Архив новостей 0 29.09.2011 21:39
Команды *nix Ram0nlord Linux 12 28.02.2011 22:05
Словарь компьютерных терминов,part one REGION66 Новичкам 0 22.11.2010 00:25
МикроДжоинер для начинающих z0mbie Новичкам 6 08.05.2010 12:27



Часовой пояс GMT +2
Powered by vBulletin® 3.x.x Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.

Copyright © 2008 - 2013 «HPC» Реклама на сайте Правила Форума Пользовательское соглашение Работа на сайте
При копировании материалов ставьте ссылку на источник
Все материалы представлены только в ознакомительных целях, администрация за их использование ответственности не несет.