寒啊...這世上有一輩子不看色圖,一輩子說話謹小慎微,一輩子沒隨地大小便的人嗎?佛祖和耶穌說,世人都有罪,金庸老先生雖然給出了一個聖人-洪 七公(真正的無產者啊),但是想來現在要找這麼一個聖人過來,估計比處女還罕見。秦儈說過,欲加其罪,何患無詞,“莫須有”便是有,想辦你岳飛就辦你,就 算沒有通金自大,也有經濟問題吧,沒有經濟問題也有打過人吧,不信你連隨地大小便都沒有過,既然總有辮子能抓到,大家就懶得搞文字遊戲了。秦儈真是一個實 在人。
言規正傳,大家去找幾個PERL模組,Crypt::OICQ,Net::OICQ。當然他們還會用到Digest::MD5,Term:: ANSIColor,Term::ReadKey這些玩意,CPAN或者Google吧,下載以後就perl ,然後make或者nmake。如果實在沒有PERL基礎就自學,學不會就放棄。
Crypt::OICQ和Net::OICQ是純perl的,不編譯也行,裡面找找有個qq檔案,還有個win32qq檔案,我喜歡在unix下的 命令列操作,直接執行perl qq,這個東東在win32環境下不能接受命令的,只能用win32qq,因為後者還要WIn32::GUI模組支援,我就沒理了。qq在win32下執 行也可以,要修改一下Net::OICQ::檔案,把loop()裡面的
設定環境變數,OICQ_PW=你的口令,然後用“perl qq 你的賬號”來執行,QQ的組可以用這樣的命令讀取出資訊來。下面假設群號是12345678,其它號碼都是純屬虛構,請勿對號入座。
/gs 12345678Jul 16 15:54:11 Net::OICQ::ServerEvent do_group 0x0085 Error: 無法查到該群 Reply: 02 SubCmd: 06
當然查不到,群被限制了。不急,把號碼換換,加加減減個小數字,比如12345679,12345677,12345676等等,總不會被全限制了吧。
/gs 12345677Jul 16 15:59:41 Net::OICQ::ServerEvent do_group 0x005a SubCmd: 06 GrpName: xxxx Reply: 00 GrpOwner: xxxxx GrpDesc: GrpIntId: 483345677 GrpExtId: 12345677
找到了,其實qq的群就是一個個人號碼,往GrpIntId傳送什麼命令,就等於對GrpExtId做什麼操作,群號和內部號之間有一個分段影射的 關係,某段連續的群號會影射到某段內部號去,12345677影射到483345677,那麼12345678(我們要處理的群號)很可能就是 483345678。
那麼我們如果強行刪除483345678這個聯絡人呢,會發生什麼事?當然,這在qq介面可沒法刪,因為沒有這個聯絡人,但是在行命令中就可以強行傳送這個請求了。
/del 483345678Jul 16 16:00:13 Net::OICQ::ServerEvent del_contact 0x005c
保險點,也發個退群命令,雖然未必有用,但是能讓人安心,:-)
/eval $oicq->send2svr('do_group', pack('CN',0x09,483345678).'');
登入群空間,重新整理一下,哈,死群頭消失了。開啟QQ,咦,怎麼還在,快取,一定是快取,清除賬號,包括本地檔案選項,再登陸,OK了,咱們把那死群的腸子拉了出來,在它脖子上狠狠一絞,世界清淨了。
後話得提一下,其實你也不能叫完全退出了那個群,伺服器上肯定有殘留資料的,只是群空間上沒有顯示,QQ裡面也不出現,夠了。