客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
<% '********************************************************** '*智能脏话过滤系统v1.0 * * '*转载请保留版权信息,多谢 * 拉 * '*调用方法:sayy=ND_say_what(sayy),sayy为内容输入 * 图 * '*程序作者:阮丁远,(网名:柏拉图的程序) 版权所有 * 的 * '*qq:657697290 * 序 * '*最后修改:20080609 * 著 * '*(struct,spring,,....net,www.ogeek.net|强人工智能系统 2049年)还未开发基于分词数据库的形容词 ，名词等归类的，和带自动优先级式分词， '*(struct,spring,,....net,www.ogeek.net|强人工智能系统 2049年)和xml多层式的字与字最大间隔设 置(精确到单个字与单个字的间隔， '*(struct,spring,,....net,www.ogeek.net|强人工智能系统 2049年)因为连续的单个字与单个字间可能 也有随机性空格) 及语义嵌套，递归式冗余纠错，和 '*(struct,spring,,....net,www.ogeek.net|强人工智能系统 2049年)程序语义理解，人工神经元语义理 解的更高版本 '********************************************************** function ND_say_what(sayyyyx) '本代码使用说明:如 ivv=0,icc=0,zang_data(ivv,0,0)="操|日|靠|ri|cao|草 |kao",icc=icc+1,zang_data(ivv,icc,0)="他",zang_data(ivv,icc,1)=2,表示如果"操|日|靠|ri|cao|草 |kao"中的"操"字或"日"字或其他字 与 zang_data(ivv,icc,0)="他"中指定的"他"字相隔zang_data (ivv,icc,1)=2指定的2个字的距离或小于2个字距离,就认为此语句为脏话,并自动过滤掉 '*的使用: zang_data(0,0,0)="去死妈",zang_data(0,1,0)="*"之类 表示只要存在"去死妈"这些字 就过 滤掉 ,而不用考虑字符距离等 ,这与zang_data(0,0,0)="去死妈",zang_data(0,1,0)=.....不存在 的情 况 的效果等效 ' 一个英文的长度为1,一个中文的长度也算为1 ' 对于 "杀死"两字, 则认为 "杀"字 与 "死"字 相差0个字符, "杀 死"两字中 也认为 "杀"字 与 "死" 字 相差0个字符,因为会自动忽略字与字间的空格 zang_len=999 zang_yufa_xiangguan_list_max=22 dim zang_data(999,22,2) '初始化一切 for zang_lena=0 to zang_len-1 for zang_yufa_xiangguan_lena=0 to zang_yufa_xiangguan_list_max-1 zang_data(zang_lena,zang_yufa_xiangguan_lena,0)="" zang_data(zang_lena,zang_yufa_xiangguan_lena,1)=2 '指定如果zang_data (zang_lena,zang_yufa_xiangguan_lena,0)的字符串与其对应的后面的数组元素的字符串相隔几个长度或 相隔小于此指定的长度值的字符串时才认定为脏话 next next konggexx=" "&"$_kongge_$"&" "&"$_kongge_$"&" "&"$_kongge_$"&"<br>"&"$_kongge_$"&"<p>"&"$_kongge_$ "&"</p>"&"$_kongge_$"&","&"$_kongge_$"&"'"&"$_kongge_$"&"＂"&"$_kongge_$"&"="&"$_kongge_$"&" ="&"$_kongge_$"&"-"&"$_kongge_$"&"_"&"$_kongge_$"&"+"&"$_kongge_$"&"%"&"$_kongge_$"&"$"&"$_k ongge_$"&"#"&"$_kongge_$"&"?"&"$_kongge_$"&"!"&"$_kongge_$"&"~"&"$_kongge_$"&"("&"$_kongge_$ "&")"&"$_kongge_$"&"<"&"$_kongge_$"&">"&"$_kongge_$"&"["&"$_kongge_$"&"]"&"$_kongge_$"&"{"&" $_kongge_$"&"}"&"$_kongge_$"&":"&"$_kongge_$"&";"&"$_kongge_$"&"."&"$_kongge_$"&"/"&"$_kongg e_$"&"\"&"$_kongge_$"&"^"&"$_kongge_$"&"*"&"$_kongge_$"&"@"&"$_kongge_$"&"&"&"$_kongge_$"&"| " '指定所有空格性的字符,用$_kongge_$隔开,这里空格指定了英文空格和中文空格 heihack=" *** " '把脏话替换成什么 '====================================================== '脏话数据库v1.0-20080609,一切脏话的脏话数据库在下面: ivv=0 icc=0 zang_data(ivv,0,0)="杀|sha|sa|干|gan" '如果 杀 和 死 字同时存在,且两字间相隔的字符数小于或 等于对应的zzang_data(aa,yy,1)指定的值,则认定此为脏话 zang_data(ivv,icc,0)="死|si|shi" zang_data(ivv,icc,1)=0 icc=icc+1 zang_data(ivv,icc,0)="掉" zang_data(ivv,icc,1)=0 icc=icc+1 zang_data(ivv,icc,0)="了" zang_data(ivv,icc,1)=0 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="把|ba" icc=icc+1 zang_data(ivv,icc,0)="杀|sha|sa|干" '把...... 杀 ,相隔5个或小于5个字符串 zang_data(ivv,icc,1)=5 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="去|qu" icc=icc+1 zang_data(ivv,icc,0)="杀" '把....拉出 去 杀或 去 杀 了 ... ,相隔4个或小于4个字符串 zang_data(ivv,icc,1)=4 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="操|日|靠|ri|cao|草|kao|干|gan|gang|jie|jian|奸" icc=icc+1 zang_data(ivv,icc,0)="你" '操你妈,操你吗 ,..... zang_data(ivv,icc,1)=0 icc=icc+1 zang_data(ivv,icc,0)="ma|妈" '可能为 操nima ,操他ma,操tama,... 故其对应的zang_data(aa,yy,1) 指定为2 zang_data(ivv,icc,1)=2 icc=icc+1 zang_data(ivv,icc,0)="ni" zang_data(ivv,icc,1)=0 icc=icc+1 zang_data(ivv,icc,0)="她" '可能为 操死她,操她,操si她 故其对应的zang_data(aa,yy,1)指定为2 zang_data(ivv,icc,1)=2 icc=icc+1 zang_data(ivv,icc,0)="他" '可能为 操死他,操他,操si他 故其对应的zang_data(aa,yy,1)指定为2 zang_data(ivv,icc,1)=2 icc=icc+1 zang_data(ivv,icc,0)="它" '可能为 操死它,操它,操si它 故其对应的zang_data(aa,yy,1)指定为2 zang_data(ivv,icc,1)=2 icc=icc+1 zang_data(ivv,icc,0)="ta" '可能为 操死ta,操ta,操sita 故其对应的zang_data(aa,yy,1)指定为2 zang_data(ivv,icc,1)=2 icc=icc+1 zang_data(ivv,icc,0)="娘|niang" zang_data(ivv,icc,1)=2 icc=icc+1 zang_data(ivv,icc,0)="b|逼" '草你吗b zang_data(ivv,icc,1)=2 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="我|wo" icc=icc+1 zang_data(ivv,icc,0)="操|日|靠|ri|cao|草|kao|干|gan|gang|jie|jian|奸|杀|灭" zang_data(ivv,icc,1)=0 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="操|日|靠|ri|cao|草|kao|奸" icc=icc+1 zang_data(ivv,icc,0)="*" zang_data(ivv,icc,1)=0 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="去你妈|去你吗|去你ma" icc=icc+1 zang_data(ivv,icc,0)="*" zang_data(ivv,icc,1)=0 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="去死" icc=icc+1 zang_data(ivv,icc,0)="*" zang_data(ivv,icc,1)=0 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="你妈|你吗|你ma|你妈" icc=icc+1 zang_data(ivv,icc,0)="b|逼" zang_data(ivv,icc,1)=1 '你妈的b ,你妈b '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="性" icc=icc+1 zang_data(ivv,icc,0)="爱" '性 爱 zang_data(ivv,icc,1)=0 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="做|zuo|作" icc=icc+1 zang_data(ivv,icc,0)="爱|ai" zang_data(ivv,icc,1)=1 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="做|zuo|作" icc=icc+1 zang_data(ivv,icc,0)="爱|ai" zang_data(ivv,icc,1)=1 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="a|毛|三级|日本" icc=icc+1 zang_data(ivv,icc,0)="片|pian" zang_data(ivv,icc,1)=2 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="av|性" icc=icc+1 zang_data(ivv,icc,0)="工作者" zang_data(ivv,icc,1)=20 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="日本" icc=icc+1 zang_data(ivv,icc,0)="*" zang_data(ivv,icc,1)=0 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="看|see" icc=icc+1 zang_data(ivv,icc,0)="三级" zang_data(ivv,icc,1)=3 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="找" icc=icc+1 zang_data(ivv,icc,0)="小姐" zang_data(ivv,icc,1)=2 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="晚上" icc=icc+1 zang_data(ivv,icc,0)="小姐" zang_data(ivv,icc,1)=12 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="傻|sha|sa|啥|s" icc=icc+1 zang_data(ivv,icc,0)="b|比|逼" zang_data(ivv,icc,1)=0 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="s" icc=icc+1 zang_data(ivv,icc,0)="b" zang_data(ivv,icc,1)=0 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="变态" icc=icc+1 zang_data(ivv,icc,0)="杀" zang_data(ivv,icc,1)=15 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="人" icc=icc+1 zang_data(ivv,icc,0)="渣" zang_data(ivv,icc,1)=0 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="垃" icc=icc+1 zang_data(ivv,icc,0)="圾" zang_data(ivv,icc,1)=0 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="huan|huang|黄" icc=icc+1 zang_data(ivv,icc,0)="色|se" zang_data(ivv,icc,1)=0 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="ma|妈" icc=icc+1 zang_data(ivv,icc,0)="b|比|逼" zang_data(ivv,icc,1)=0 '----------------------------- ivv=ivv+1 icc=0 zang_data(ivv,0,0)="搞|gao" icc=icc+1 zang_data(ivv,icc,0)="b|比|逼" zang_data(ivv,icc,1)=0 '----------------------------- |
请发表评论