Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.12.2016, 15:32   #61
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от sarsen Посмотреть сообщение
Насчёт скинов, почему он не запускается у других юзверей
не хватает нужных библиотек.

как минимум:
Цитата:
---------------------------
Project1.exe - Системная ошибка
---------------------------
Запуск программы невозможен, так как на компьютере отсутствует qtintf70.dll. Попробуйте переустановить программу.
---------------------------
ОК
---------------------------
Изображения
Тип файла: png err.png (22.2 Кб, 79 просмотров)
Serge_Bliznykov вне форума Ответить с цитированием
Старый 07.12.2016, 18:09   #62
sarsen
Пользователь
 
Регистрация: 04.08.2016
Сообщений: 58
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
не хватает нужных библиотек.

как минимум:
Ни совсем понятно! это как работает! идёт с либой альфа или каки
sarsen вне форума Ответить с цитированием
Старый 20.12.2016, 20:12   #63
sarsen
Пользователь
 
Регистрация: 04.08.2016
Сообщений: 58
По умолчанию

Уважаемый Serge_Bliznykov. Обрыв был из за s , key : AnsiString; поставил просто s, key : string; и всё работает, поясните почему так ? спасибо!
sarsen вне форума Ответить с цитированием
Старый 20.12.2016, 23:00   #64
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от sarsen Посмотреть сообщение
Обрыв был из за s , key : AnsiString; поставил просто s, key : string; и всё работает, поясните почему так ?
я не смогу объяснить, почему так.

ну, формально ответ на ваш вопрос - тип string в Delphi версии >= 2009 - это уже Unicode String. Но почему AnsiString приводило к "обрыву" - я не знаю.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 21.12.2016, 04:40   #65
sarsen
Пользователь
 
Регистрация: 04.08.2016
Сообщений: 58
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
я не смогу объяснить, почему так.

ну, формально ответ на ваш вопрос - тип string в Delphi версии >= 2009 - это уже Unicode String. Но почему AnsiString приводило к "обрыву" - я не знаю.
Хорошо, спасибо. А не подскажите реально и код с билдер с++ перенести в делфи?
sarsen вне форума Ответить с цитированием
Старый 21.12.2016, 10:47   #66
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от sarsen Посмотреть сообщение
А не подскажите реально и код с билдер с++ перенести в делфи?
у них классы совпадают, поэтому код перенести проблем не должно быть,
минимальные изменения синтаксиса (заменить синтаксис Паскаля на синтаксис С++) и всё должно заработать.

p.s. пишу чисто теоретически, сам с Builder C++ дел не имел.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 21.12.2016, 12:37   #67
sarsen
Пользователь
 
Регистрация: 04.08.2016
Сообщений: 58
По умолчанию

Нашёл тут код в интернете,
Код:
Шифрование:

program Crypt;
{$APPTYPE CONSOLE}
uses Windows;

var key, text, longkey, result : string;
   i : integer;
   toto, c : char;
   F : TextFile;
begin
 writeln("Enter the key:");
 readln(key);
 writeln("Enter the text:");
 readln(text);

 for i := 0 to (length(text) div length(key)) do
     longkey := longkey + key;

 for i := 1 to length(text) do begin
     toto := chr((ord(text[i]) XOR ord(longkey[i]))); // XOR algorithm
     result := result + toto;
 end;
 writeln("The crypted text is:");
 writeln(result);
 write("Should i save it to result.txt ?");
 read(c);
 if c in ["Y","y"] then begin
    AssignFile(F,"result.txt");
    Rewrite(F);
    Writeln(F,result);
    CloseFile(F);
 end;
end.


Дешифрование:

{
  Sample application of the XOR algorithm for a simple
  Decrypt program

  Author: Colin Laplace (webmaster@bloodshed.nu)

  Public domain. Use this program at your own risk, and don"t use
  it if you are not allowed in your country
}
program Decrypt;
{$APPTYPE CONSOLE}
uses Windows;

var key, c_text, longkey, result : string;
   i : integer;
   toto : char;
   F : TextFile;
begin
 writeln("Enter the key:");
 readln(key);
 writeln("Please make sure you have the file "result.txt" in the current directory");
 // it takes the output file from Crypt.exe
 AssignFile(F,"result.txt");
 Reset(F);
 Readln(F,c_text);
 CloseFile(F);

 for i := 0 to (length(c_text) div length(key)) do
     longkey := longkey + key;

 for i := 1 to length(c_text) do begin
     toto := chr((ord(c_text[i]) XOR ord(longkey[i]))); // XOR algorithm
     result := result + toto;
 end;
 writeln("The decrypted text is:");
 writeln(result);
 readln;
end.
Поковырял заточил под свою оболочку
Код:
var
key, c_text, longkey, result : string;
   i : integer;
   toto : char;
   f1, f2 : TextFile;

begin

 key := Edit1.Text;

if not OpenDialog1.Execute then Exit;
AssignFile(f1, OpenDialog1.FileName);
Reset(f1);

if not SaveDialog1.Execute then Exit;
AssignFile(f2, SaveDialog1.FileName);
Rewrite(f2);

Read(f1,c_text);

 for i := 0 to (length(c_text) div length(key)) do
     longkey := longkey + key;

 for i := 1 to length(c_text) do begin
     toto := chr((ord(c_text[i]) XOR ord(longkey[i]))); // XOR algorithm
     result := result + toto;
 end;
Append(f2);
Write(f2,result);
Flush(f2);
  CloseFile(f2);
  CloseFile(f1);
end;
Расшифровывает но записывает файл не до конца, и переносы строк помойму не считывает с файла, помогите поправить, попробую большой объём данных через него прогнать, а то всётаки всеравно потери есть обрывы декрипта.

Последний раз редактировалось sarsen; 21.12.2016 в 12:40.
sarsen вне форума Ответить с цитированием
Старый 23.12.2016, 17:22   #68
sarsen
Пользователь
 
Регистрация: 04.08.2016
Сообщений: 58
По умолчанию

Хотя это нечего не даст я думаю, буду копаться в коде конвертера микроконтроллера, может ошибка всё таки там, пишет с ошибкой из за этого и срыв, что мало вероятно!
Serge_Bliznykov. Может добавить маркер какой перед каждой $T1 например ! или & ну не важно и по нему каждую строку от маркера до маркера конвертировать, может так обрыва цепи не случится? так можно сделать?
p.s.Маркер добавлю скажите только какой ))
Наверное опять погал, маркер и так есть это $ может от и до конвертить? так никак думаю.

Последний раз редактировалось sarsen; 23.12.2016 в 17:39.
sarsen вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно написать конвертер Nemesis4ever Помощь студентам 0 16.01.2011 15:22
Помогите написать конвертер cpp->html Vano-sie72 Помощь студентам 1 18.05.2009 22:15
Помогите написать конвертер cpp->html Vano-sie72 Фриланс 1 18.05.2009 15:57
задача под windows,помогите написать.Надо написать на Borland C++Builder 6. eddddii Помощь студентам 9 23.05.2008 17:04