Девушка из другого города просит предоставить доказательства моей неженатости) Скан-паспорта-но она логично утверждает, что можно отфотошопить;--( Как бы бесплатно доказать? Может в базу какую перенаправить,кто нить json запрос делал)?

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

Вот код:

Если ПолученыДоказательстваДевичьейНевинности Тогда
    ПодуматьОСпособахДоказательстваНахожденияВнеБрака();
Иначе
    ИскатьДругуюСамку();
КонецЕсли;

Бред какой-то....

Сообщить("Это Великий Компьютер, тчк, подтверждаю, что этот человек, зпт, неженат, см.доказательства далее");
ЗапуститьПриложение("https://www.gosuslugi.ru/47178/2/info";);

Я бы, как говорится - "попросил бы заказчика написать ТЗ". Спросил бы у барышни, какой именно способ доказательства её бы устроил. И уже её бы "ТЗ" и рассматривал бы. И не только сам ответ, но и прочие факторы - способ и форму ответа, в частности.
Имхо, не стоит о барышне судить по одной её просьбе, пусть даже и экстравагантной. Такие "запросы" могут быть не только признаком нездоровой психики собеседника, но и, например, - банальным женским кокетством и желанием понять, а что ты за человек и стоит ли ей тебе давать.

Если она тебе интересна и "ТЗ" не получишь - просто вывали ей десяток вариантов и процессе их обсуждения склони её к тому, чтобы приехать, да самой и посмотреть.

Удачи, бро! Завидую вам, молодым :)

(0)
Процедура ДаНеЖенатЯ()
    Сообщить("Да не женат я!");
    ДаНеЖенатЯ();
КонецПроцедуры

(0) Не парься
Сначала выборку
ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ
Баба,Дала ИЗ Бабы
Где НЕ Дала

потом обходишь выборку

Пока НЕ Выборка.Дала Цикл
  Если ЯНеЖенат = Истина Тогда
     Выборка.Дала = Истина;
  Иначе
     ЯНеЖенат = Истина;
  КонецЕсли;
КонецЦикла;