• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

конвертация текста Dos - Win

  • Автор темы greenbegin
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

greenbegin

Стоит задача: изменить кодировку текстового файла из DOS на Windows. Подсказали функцию OEMtoShar. Вот только не могу разобраться с синтаксисом этой функции. Все что я пока понял: там используется переменная не типа string, а какого то другого. Будьте добры, не смейтесь, и подскажите на конкретном примере, как используя эту (или подобную) функцию, изменить кодировку текстового файла или переменной типа string, содержащую строку из такого файла.
 
S

Silence

Я использую функцию из библиотеки RxLib - модуль StrUtils или rxStrUtils

function OemToAnsiStr(const OemStr: string): string;
{ OemToAnsiStr translates a string from the OEM character set into the
Windows character set. }
 
G

greenbegin

Я использую функцию из библиотеки RxLib - модуль StrUtils или rxStrUtils

function OemToAnsiStr(const OemStr: string): string;
{ OemToAnsiStr translates a string from the OEM character set into the
Windows character set. }

пишу строку: uses StrUtils;
а при компиляции пишет что такое имя (OemToAnsiStr) не определено.
Что, библиотека RXLib ставится отдельно? Если да, то как ее установить? Я не доставлял библиотеки ни разу.
 
B

Barmutik

RxLib - это отдельна библиотека и ставится отдельно .. надо скачать её...

Сейчас этот проект входит как часть в проект Jedi и соответственно можно скачать с
 
G

greenbegin

RxLib - это отдельна библиотека и ставится отдельно .. надо скачать её...

Сейчас этот проект входит как часть в проект Jedi и соответственно можно скачать с

Зашел на тот сайт. Но что то не нашел ссылку на RxLib.
Кстати, как ее устанавливать??? Я правда не знаю как.
 
B

Barmutik

Что конкретно не знаете как? Скачайте инсталяцию Jedi и запустите инсталятор .. он всё сделает за Вас ...
 
V

vital

function WinToDos(St: string): string;
var
Ch: PChar;
begin
Ch := StrAlloc(Length(St) + 1);
AnsiToOem(PChar(St), Ch);
Result := Ch;
StrDispose(Ch)
end;

function DosToWin(St: string): string;
var
Ch: PChar;
begin
Ch := StrAlloc(Length(St) + 1);
OemToAnsi(PChar(St), Ch);
Result := Ch;
StrDispose(Ch)
end;

и дался вам этот RxLib...
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!