۰۴-مهر-۱۳۸۷, ۱۲:۳۸:۴۴
۰۴-مهر-۱۳۸۷, ۱۳:۱۳:۲۳
دادا پسورد لازمه که این ؟؟؟؟
یکم کار کردم رمز رو خودم پیدا کردم
ممنون
از توی محتویات باینری فایل زیپ
Password: www.amir200h.blogfa.com
یکم کار کردم رمز رو خودم پیدا کردم
ممنون
کد:
30YA30/Form1.frmPK ˆXw‚ƒع> R /% 30YA30/Form1.frxPK ،b 7¥ظْ «% 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
۰۴-مهر-۱۳۸۷, ۱۴:۵۴:۴۵
اگه میتونی سرس اصلیشو بزار منظورم اینه که از سر و تهش نزن
کد:
پسورد هم اینه : www.amir200h.blogfa.com۰۴-مهر-۱۳۸۷, ۱۷:۴۵:۰۱
راست می گه
مهم نیست سورس چقدر حرفه ایه
هرکسی نسبت به چیزهایی که می دونه و می خواد بدونه از اون استفاده می کنه
من اصلا قبول ندارم که سر و ته سورس رو بزنم مخصوصا ویروس که همه جاش مهمه
مهم نیست سورس چقدر حرفه ایه
هرکسی نسبت به چیزهایی که می دونه و می خواد بدونه از اون استفاده می کنه
من اصلا قبول ندارم که سر و ته سورس رو بزنم مخصوصا ویروس که همه جاش مهمه
۱۷-مهر-۱۳۸۷, ۱۸:۱۲:۲۱
چیز زیادی نبود
مثلا نوع قرار گرفتنش تو استارت آپ فرق می کرد
یه یوزرکنترل بود که فرم رو به یه حالت خاص در میاورد
یا نوع کپی کردن خودش تو فلش ها که نمی شد اینارو بزارم
مثلا نوع قرار گرفتنش تو استارت آپ فرق می کرد
یه یوزرکنترل بود که فرم رو به یه حالت خاص در میاورد
یا نوع کپی کردن خودش تو فلش ها که نمی شد اینارو بزارم
۲۱-مهر-۱۳۸۷, ۲۳:۱۳:۴۲
چرا نمیشد؟؟؟؟
۲۳-بهمن-۱۳۸۷, ۰۱:۱۷:۳۷
چرا نمیشه؟؟؟؟؟؟؟؟؟؟؟؟
۲۳-بهمن-۱۳۸۷, ۰۱:۲۹:۲۳
سلام
یا نزارید ؛ یا کامل بزارید ،
یا نزارید ؛ یا کامل بزارید ،
۲۳-بهمن-۱۳۸۷, ۰۸:۴۱:۳۱
برای پيدا کردن و تشخيص نوع درايو از اين دو تابع API استفاده ميکنند
استارت آپ خاصی نداره
"Software\Microsoft\Windows\CurrentVersion\Run"
ديگه فکر نميکنم قسمت خاصی داشته باشه
کد:
'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"
ديگه فکر نميکنم قسمت خاصی داشته باشه