ourcode = Читать слева 10 символов из Me.CODE.Text 
ourserial = CVar(Me.SERIAL.Text)
Если ourserial == cript(ourcode) Тогда
        “Задача решена”
КонецЕсли;