主頁 > 知識庫 > asp智能臟話過濾系統(tǒng)v1.0第1/2頁

asp智能臟話過濾系統(tǒng)v1.0第1/2頁

%
'**********************************************************
'*智能臟話過濾系統(tǒng)v1.0       *    *
'*轉(zhuǎn)載請保留版權(quán)信息,多謝                        *   拉   *
'*調(diào)用方法:sayy=ND_say_what(sayy),sayy為內(nèi)容輸入 *   圖   *
'*程序作者:阮丁遠,(網(wǎng)名:柏拉圖的程序) 版權(quán)所有   *   的   *
'*qq:657697290                                   *   序   *
'*最后修改:20080609                              *   著   *
'*(struct,spring,,....net,www.jb51.net|強人工智能系統(tǒng)  2049年)還未開發(fā)基于分詞數(shù)據(jù)庫的形容詞
，名詞等歸類的，和帶自動優(yōu)先級式分詞，
'*(struct,spring,,....net,www.jb51.net|強人工智能系統(tǒng)  2049年)和xml多層式的字與字最大間隔設(shè)
置(精確到單個字與單個字的間隔，
'*(struct,spring,,....net,www.jb51.net|強人工智能系統(tǒng)  2049年)因為連續(xù)的單個字與單個字間可能
也有隨機性空格) 及語義嵌套，遞歸式冗余糾錯，和
'*(struct,spring,,....net,www.jb51.net|強人工智能系統(tǒng)  2049年)程序語義理解，人工神經(jīng)元語義理
解的更高版本
'**********************************************************
function ND_say_what(sayyyyx)

'本代碼使用說明:如 ivv=0,icc=0,zang_data(ivv,0,0)="操|(zhì)日|靠|ri|cao|草
|kao",icc=icc+1,zang_data(ivv,icc,0)="他",zang_data(ivv,icc,1)=2,表示如果"操|(zhì)日|靠|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)的字符串與其對應(yīng)的后面的數(shù)組元素的字符串相隔幾個長度或
相隔小于此指定的長度值的字符串時才認定為臟話
next
next

konggexx="
""$_kongge_$""　""$_kongge_$""nbsp;""$_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=" *** " '把臟話替換成什么

'======================================================
'臟話數(shù)據(jù)庫v1.0-20080609,一切臟話的臟話數(shù)據(jù)庫在下面:

ivv=0
icc=0
zang_data(ivv,0,0)="殺|sha|sa|干|gan" '如果  殺和死字同時存在,且兩字間相隔的字符數(shù)小于或
等于對應(yīng)的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)="操|(zhì)日|靠|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,... 故其對應(yīng)的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她故其對應(yīng)的zang_data(aa,yy,1)指定為2
zang_data(ivv,icc,1)=2
icc=icc+1
zang_data(ivv,icc,0)="他" '可能為操死他,操他,操si他故其對應(yīng)的zang_data(aa,yy,1)指定為2
zang_data(ivv,icc,1)=2
icc=icc+1
zang_data(ivv,icc,0)="它" '可能為操死它,操它,操si它故其對應(yīng)的zang_data(aa,yy,1)指定為2
zang_data(ivv,icc,1)=2
icc=icc+1
zang_data(ivv,icc,0)="ta" '可能為操死ta,操ta,操sita 故其對應(yīng)的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)="操|(zhì)日|靠|ri|cao|草|kao|干|gan|gang|jie|jian|奸|殺|滅"
zang_data(ivv,icc,1)=0

'-----------------------------
ivv=ivv+1
icc=0
zang_data(ivv,0,0)="操|(zhì)日|靠|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)="變態(tài)"
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
'-----------------------------

12下一頁閱讀全文

標簽：衡水蚌埠棗莊江蘇廣元衢州萍鄉(xiāng) 大理

巨人網(wǎng)絡(luò)通訊聲明：本文標題《asp智能臟話過濾系統(tǒng)v1.0第1/2頁》，本文關(guān)鍵詞；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。

佳木斯湛栽影视文化发展公司

asp智能臟話過濾系統(tǒng)v1.0第1/2頁

QQ咨詢

電話咨詢