function CharXOR
lparameter m.key_str, m.source_str, m.offset

*  1  parametr - parolj
*  2  parametr - shifruemaja stroka. Dolzhna peredavatjsja po ssylke
*  3  parametr (optional) - s kakoj pozicii parolja nachinaetsja shifrovanie ( 0  - s pervoj)

local m.kl, m.sl, m.hhnd, m.ptr, m.st2
m.kl=len(m.key_str)
if m.kl= 0 
	return m.source_str
endif
m.sl=len(m.source_str)
if m.sl= 0 
	return ""
endif

if !pemstatus(_screen,"charxor_ptr", 5 )
	Declare Integer HeapCreate in Win32Api Integer, Integer, Integer
	Declare Integer HeapAlloc in Win32Api Integer, Integer, Integer
	Declare RtlMoveMemory in Win32API Integer, String, Integer cnt

	m.st2= ;
		CHR( 085 )+CHR( 139 )+CHR( 236 )+CHR( 087 )+CHR( 086 )+CHR( 080 )+CHR( 083 )+CHR( 081 )+ ;
		CHR( 082 )+CHR( 139 )+CHR( 117 )+CHR( 008 )+CHR( 139 )+CHR( 093 )+CHR( 012 )+CHR( 139 )+ ;
		CHR( 125 )+CHR( 016 )+CHR( 139 )+CHR( 077 )+CHR( 020 )+CHR( 139 )+CHR( 211 )+CHR( 129 )+ ;
		CHR( 227 )+CHR( 255 )+CHR( 255 )+CHR( 000 )+CHR( 000 )+CHR( 193 )+CHR( 234 )+CHR( 016 )+ ;
		CHR( 086 )+CHR( 083 )+CHR( 003 )+CHR( 242 )+CHR( 043 )+CHR( 218 )+CHR( 138 )+CHR( 007 )+ ;
		CHR( 050 )+CHR( 006 )+CHR( 136 )+CHR( 007 )+CHR( 071 )+CHR( 073 )+CHR( 116 )+CHR( 010 )+ ;
		CHR( 070 )+CHR( 075 )+CHR( 117 )+CHR( 242 )+CHR( 091 )+CHR( 094 )+CHR( 086 )+CHR( 083 )+ ;
		CHR( 235 )+CHR( 236 )+CHR( 091 )+CHR( 094 )+CHR( 090 )+CHR( 089 )+CHR( 091 )+CHR( 088 )+ ;
		CHR( 094 )+CHR( 095 )+CHR( 139 )+CHR( 229 )+CHR( 093 )+CHR( 194 )+CHR( 016 )+CHR( 000 )

	m.hhnd=HeapCreate(0x40000, 1024 , 1024 )
	m.ptr=HeapAlloc(m.hhnd, 0 ,len(m.st2)+ 16 )
	RtlMoveMemory(m.ptr,m.st2,len(m.st2))
	_screen.addproperty("charxor_ptr",m.ptr)

else
	m.ptr=_screen.charxor_ptr
endif


if vartype(m.offset)<>"N"
	m.offset= 0 
endif

m.offset=m.offset%len(m.key_str)


Declare CallWindowProc in Win32API Integer, String @, Integer, String @, Integer
CallWindowProc(m.ptr, @m.key_str, m.kl+m.offset* 65536 , @m.source_str, m.sl)
return