Закодировались мои исходники

[Florento]

Прошло 2 месяца с последнего захода в делфи. Сегодня решил кое-что подправить в своей программе, загрузил юниты и увидел следующее:

Label1.Caption:= decode('ГPeБЗPБe:уPБу5DQIбiкБP');

Label2.Caption:= decode('lC:у')+IPAdress;

и все строки, где используется текст, заключенный в ковычки выглядит таким образом.

Что это? Как это убрать? Откуда это взялось? Можно как нибудь узнать, что это за шифр? Менять что то в программе не принципиально, но там есть запросы в базу, которые мне нужны. Как их расшифровать?

Буду рад, если кто то сможет помочь.

[Dellf]

А функция decode( тоже сама появилась?)
Раз есть подобная функция,значит и текст изначально был за... Смотри эту decode и что оно делает.

[Stilet]

Он у тебя был сохранен видимо в юникоде.
Перекодируй его в ANSI любым редактором.
Кстати не исключено что в настройках ты что-то наменял за это время

[Florento]

Самое веселое, что функции deocode нету нигде в проекте)

[Аватар]

Сообщение от Florento

Самое веселое, что функции deocode нету нигде в проекте)

Домовой-программист завелся

[Stilet]

А она может быть не в проекте, а в библиотеках.
Ты ее туда лепил или нет?

[Florento]

Блин, это реально и смешно и грустно)

Приложил файл - может кто посмотрит. Может правда домовой-программист появился)

[Stilet]

А что смотреть? Выглядит как будто кошка села на клавиатуру...
У тебя кашак имеется?

[Человек_Борща]

NPP читает нормально.



decode - по-любому что-то из проекта. Вы наверное под сильным кайфом были когда писали проект. В чем смысл ТАКОЙ шифровки(Закодированное в исходнике зашито, РУКАМИ!!, а юзеру показывается нормальный текст) - даже мне неясно.

Функция, предположительно, стандартная для Base64, но с навротами т.к. не работает она с русским зыком ниже delphi 2009.

[Stilet]

А что сложного в открытом проекте навести мышку на нее и посмотреть в подсказке откуда она родом?