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

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

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

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

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

Перекодировка теста

  • Автор темы romanko
  • Дата начала
R

romanko

здравствуйте! не подскажите как сделать перекодировку текста сообщения. например приходит сообщение на лотус ящик в формате win1251 от конкретного пользователя потом срабатывает какой-то агент и перекодирует его в формат utf8. заранее благодарен за проявленную помощь!
 
R

romanko

Нужно считать текст с мемо и перекодировать его. Как это реализовать? помогите!!!

Добавлено: Нужно считать текст с мемо и перекодировать его, но при этом перекодировать не все сообщения которые приходят на ящик а только от одного пользователя. Как это реализовать? помогите!!!
 
R

romanko

Нужно считать текст с мемо и перекодировать его. Как это реализовать? помогите!!!

Добавлено: Нужно считать текст с мемо и перекодировать его, но при этом перекодировать не все сообщения которые приходят на ящик а только от одного пользователя. Как это реализовать? помогите!!!
Немного не так. Приходит на маил xml файл приатачменый его нужно перекодировать в UTF8. подскажите пожайлуста как это сделать??
 

ToxaRat

Чёрный маг
Green Team
06.11.2007
3 332
42
BIT
0
открыть оригинальный стрим в win1251 и новый стрим в URF8 и закопипастить
 
R

romanko

Вот так можно перевести в utf-8?


Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim body As NotesMIMEEntity
Dim stream As NotesStream
Set db = s.CurrentDatabase
s.ConvertMIME = False ' Do not convert MIME to rich text
Set doc = db.CreateDocument
Call doc.ReplaceItemValue("Form", "Main Form")
Set body = doc.CreateMIMEEntity
Set header = body.CreateHeader("Subject")
Call header.SetHeaderVal("MIME one-part message")
Set stream = s.CreateStream
Call stream.WriteText("Text of message.")
Call body.SetContentFromText _
(stream, "text/plain;charset=UTF-8", ENC_IDENTITY_7BIT)
Call doc.Save(True, True)
s.ConvertMIME = True ' Restore conversion

Так жеш создается документ майм в кодировке UTF-8. можно в него засунуть значение переменной?и вывести как-то результат??
 
Мы в соцсетях:

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