<< Click to Display Table of Contents >> Navigation:  Telegram > 2022 > 05 > 15 > Telegram_2022-05-15T23

Telegram link

 

2022-05-15T23:51:57

 

Hello

 

I am sorry

 

Something went wrong

 

this function add to both unit to avoid xss attack

 

Function xss_detect(str:String):boolean;

 

var

 

i:integer;

 

someArray: TArray;

 

begin

 

someArray:=TArray.Create(

 

'script'

 

,'embed'

 

,'applet'

 

,'frameset'

 

,'form'

 

,'iframe'

 

,'meta'

 

,'layer'

 

,'object'

 

,'img'

 

,'link'

 

,'div'

 

,'script'

 

,'embed'

 

,'applet'

 

,'frameset'

 

,'form'

 

,'iframe'

 

,'meta'

 

,'layer'

 

,'object'

 

,'img'

 

,'link'

 

,'div'

 

,'javascript:'

 

,'src='

 

,'href='

 

,'eval()'

 

,'expression()'

 

,'vbscript:'

 

,'url='

 

,'url()'

 

,'</'

 

,'>'

 

,'<'

 

,'\'

 

,';'

 

,',' );

 

Result := false;

 

if str<>'' then

 

begin

 

for i := 0 to length(someArray)-1 do

 

if ContainsText(lowercase(str), someArray[i]) then

 

begin

 

Result := true;

 

end;

 

end;

 

end;

 

---

 

Telegram link

 

2022-05-15T23:52:16

 

IWBSCustomInput.pas

 

---

 

Telegram link

 

2022-05-15T23:52:16

 

IWBS4CustomInput.pas

 

---

 

Telegram link

 

2022-05-15T23:52:35

 

????

 

---