discord icon
سرور دیسکورد گاردایران

پرچمداران

  1. 1TED

    1TED

    کاربر فعال


    • امتیاز

      20

    • تعداد ارسال ها

      538


  2. MrExploit

    MrExploit

    کاربر تازه وارد


    • امتیاز

      9

    • تعداد ارسال ها

      111


  3. SRX

    SRX

    کاربر فعال


    • امتیاز

      5

    • تعداد ارسال ها

      184


  4. proxy

    proxy

    مدیر ارشد


    • امتیاز

      3

    • تعداد ارسال ها

      734



مطالب محبوب

در حال نمایش مطالب دارای بیشترین امتیاز در یکشنبه, 19 بهمن 1399 در همه بخش ها

  1. 6 امتیاز
    درود ../ با بخش دوم ابزار های تست نفود در خدمتتون هستم توی این قسمت قصد دارم درباره بروت فورس کننده های دایرکتوری ها باهم صحبت کنیم . بروت فورس یا همون حمله جست و جوی فراگیر همون طور که میدونید تمام حالات ممکن رو امتحان میکنه تا به نتیجه برسه خوب با این تعریف باید متوجه شده باشید که بروت فورس دایرکتوری ینی بررسی تمام حالات یا کلید واژه هایی که به بروت فورسر تعریف شده برای پیدا کردن پوشه مورد نظر در هاست تارگت ! دایرکتوری اسکنر ها (Directory Brute Force) : DirBrute یا دیر بروت یک ابزار کامل به زبان پایتون که بازم چینیا طوفان کردن 😕 اولا ببینیم ترید (thread) چیه که این برنامه مولتی تریده ! ترید رو ساده و کوتاه بخوایم بگیم اینکه که ترید ها وقتی به دردمون میخورن که ما بخوایم یک برنامه یا اسکریپتمون رو به صورت موازی و همزان روی سیستم اجرا کنیم ! پس وقتی میگیم این ابزار مولتی تریده ینی به جای استفاده از یک واحد پردازشی توسط ابزار , چندین واحد رو اشغال میکنه تا زودتر نتیجه بده این ابزار مولتی ترید هست و به نارنجک دایرکتوری ها معروفه !😶 Dirbuster یا دیر باستر یکی دیگر از ابزار های مولتی تریدی که در ضمینه بروت فورس دایرکتوری ها استفاده میشه ابزار Dirbuster هست که به زبان جاوا نوشته شده و سرعت و کارایی بسیار خوبی داره . مزیت این ابزار , گرافیکی بودنش میتونه باشه که با رابط گرافیکی راحتی که داره کارو براتون خیلی ساده تر کرده . همونطور که میدونید هم ابزار دیر بروت و هم ابزار دیر باستر هردو کراس پلتفرم هستند و روی هر سیستم عاملی قابل اجراست ❤️
  2. 5 امتیاز
    درود ../ با بخش سوم ابزار های تست نفوذ وب در خدمتتون هستیم در این پست قصد دارم شمارو با ابزار های شناسایی آسیب پذیری های وب (Web Vulnerability Scanners) صحبت کنم ... این ابزار ها , ابزار های خودکاری هستن که میان آسیب پذیری های برنامه هایی که توسط برنامه نویس های وب به وجود میان رو به صورت کاملا رباتیک ولی در نقش یک انسان از خارج ((Back-Box Hacking(Scaning) مورد بررسی قرار میدن . تست نفوذ وب (Vulnerability Scanner) : Nikto یا نیکتو ! Nikto ابزاری برای ارزیابی وب سرور است. این برنامه برای یافتن انواع پرونده ها ، تنظیمات و برنامه های پیش فرض و ناامن در هر نوع وب سرور طراحی شده است.😇 این ابزار به زبان پرل نوشته شده و بسیار خفنه برای مشاهده اطلاعات بیشتر راجب این ابزار به این مقاله سر بزنید ! وااااف 😅 ( w3af) - Web Application Attack and Audit Framework) ) خب همونطور که از اسمش هم مشخصه یک ابزار کامل و بسیار دقیق در ضمینه تست نفوذ فریمورک های مختلف اپلیکیشن های وب هست که بعضی از حملات رو هم حتی میشه با همین ابزار انجام داد . یک ابزار به زبان پایتون که به ادعای خودش به بیش از دویست نوع آسیب مسلحه و این باعث میشه اسکن با جزئیات بیشتری داشته باشید . Archerysec یا کماندار امنیت این اسکنر یکی از بهترین اسکنر حال حاظر در زمینه تست نفوذ هست . به دو زبان پایتون و جاوااسکریپت طراحی شده . از مزیت های بسیار خوب این اسکنر میشه اینکه به صورت مداوم آپدیه میشه اشاره کرد همچنین این ابزار یکسری پایلود هایی رو نیاز داره که برای اینکه دوباره کاری نشه آوردن از اسکنر های حاظر مثل‌:‌ OpenVAS OWASP ZAP Nikto NMAP Vulners استفاده کردن . همچنین استفاده از کتابخانه سلنیوم پایتون در این ابزار این امکان رو به ابزار داده که در یک حالت کاملا شبیه سازی شده تست امنیت صورت بگیره Archni یا آرچ نی یک از ابزار قدرتمند ولی قدیمی برای بررسی امنیت یک وب اپلیکیشن که به زبان های روبی و جاوا اسکریپت طراحی شده بود . این ابزار از سال 2017 دیگه آپدیتی نداد رایگان ، ساده ، توزیع شده ، هوشمند ، قدرتمند این نرم افزار از قابلیت مولتی پلتفرم بی بهره نیست و این موضوع قدرت و سرعت بسیار زیادی به کار میده.
  3. 5 امتیاز
    به نام خدا سلام و درود خدمت گارد ایرانی های حرفه ای عزیز ../ تصمیم گرفتم یک تاپیک جامع و کامل درباره ابزار های تست نفوذ وب و تحلیلگر های آسیب پذیری که اکثرا به صورت منبع باز (Open Source) هستند. ابزار هایی که براتون قرار میدم به سیستم عامل کالی لینوکس ارجاء داده میشن ولی منطقا فقط برای همون سیستم عامل نیست !‌ خب همونطور که میدونید مرحله اول در پروسه نفوذ و تست امنیت وب , جمع آوری اطلاعات در باره وبسایت هدف میباشد برای همین بیاین از صفر شروع کنیم 😉 شناسایی فریمورک و یا سیستم مدیریت محتوای تارگت (CMS & Framwork Identification) :‌ AngelSword یا کلمات فرشتگان خب خب خب ... ظاهرا بازم چینیا گل کاشتن 😕 یک ابزار چینی به زبان پایتون جهت بررسی چهارچوب یک وبسایت و آنالیز آسیب پذیری های پابلیک ( عمومی ) . یکسری فریمورک ها به صورت تعریف شده در این اسکریپت قرار داده شده که سرعت کار شمارو تو انجام فراید اسکن منطفا بسیار زیاد میکنه . WhatWeb یا معادل فارسیش که یکم بد میشه , چی وب 😐 یک ابزار جذاب که به ادعای مولف نسل بعدی اسکنر وب خواهد بود . به زبان روبی (Ruby) نوشته شده و بیش از 1800 ابزار و افزونه در اختیار شما قرار داده که اسکن شمارو بسیار حرفه ای تر میکنه . برای دریافت اطلاعات بیشتر راجب این ابزار بینظیر میتونید از گیت هابش که براتون روی عنوان همین بخش لینک کردم استفاده کنید . Wappalyzer یا وَپلایزِر ! هم به صورت افزونه هم به صورت نرم افزار برای نصب میتونید ازش استفاده کنید . جالبه که بدونید کل پروژه وپلایزر بر پایه جاوا اسکریپت و بیشتر روی فریمورک Node.Js هست و همین موضوع باعث میشه این ابزار Cross-platform یا مستقل از پلتفرم باشه و روی هر سیستم عامل قابل استفاده باشه . کار جذابی که برای شما انجام میده اینه که چهارچوب کلی وبسایت و فناوری و امکاناتی که ازش استفاده کرده تا شما وبسایت رو مشاهده کنید رو نشون میده . مثلا زبان برنامه نویسی استفاده شده . نوع وب سرویس , CMS مورد استفاده و... Whatruns یا معادل فارسیش که میشه , چه اجرا میشود !؟ یک ابزار نو پا تر نسبت به وپلایزر تو مایه های همون وپلایزر که تو بخش قبلی بهش اشاره کردیم هست که همون کار رو انجام میده با امکانات کامل تر . این ابزار به صورت افزونه فقط ارائه میشه و فقط مختص مرورگر گوگل کروم هست . WhatCMS یا وات سی ام اس ! شناسایی و نفوذ با این ابزار !‌ جالبه که بدونید یک ابزار کاملا آنلاین هست و جهت استفاده از نرم افزار باید یک API از وبسایتش دریافت کنید . قابلیت شناسایی 330 نوع سیستم مدیریت محتوا و بررسی امنیتی و سپس پیشنهاد ابزار لازم جهت نفوذ ! بی نظیره CMSeeK یا جست و جو کننده CMS یک ابزار پیشرفته به زبان پایتون که برای شناسایی و بهره برداری آسیب پذیری ها روی CMS های معروف استفاده میشه این ابزار میتونه بیش از 180 سیستم مدیریت محتوا رو پشتیبانی کنه‌! ابزار های آنلاین برای جمع آوری اطلاعات : Yunsee یا یون سی ( که من بهش میگم یونس :|) Bugscaner یا باگ اسکنر ! WhatCMS ONLINE ( وبسایت همون ابزاری که راجبش حرف زدیم ) TScan یا تی اسکن TideFinger یا انگشت جزر و مدی ! 😕 فکر میکنم تا اینجای کار با ابزار های جمع آوری اطلاعات وبسایت اطلاعات خوبی دریافت کرده باشید . پس تا قرار گرفتن پست بعدی لطفا چیزی ارسال نکنید که قالب کلی تاپیک به هم نخوره ❤️ با لایک هاتون انرژی بدید و تاپیک رو شیر کنید و چنل مارو تو یوتیوب سابسکرایب کنید 🤣 ... اگه حمایت ها خوب باشن آموزش کار با تک تکشون هم میزاریم سپاس ../
  4. 4 امتیاز
  5. 3 امتیاز
    proxy

    مشکل بوت لودر

    با استفاده از آموزش زیر برو ببین حل میشه اگه نشد بگو تا دوباره بهت بگم چیکار کنی https://www.youtube.com/watch?v=sueumjgGFkA
  6. 2 امتیاز
    سلام من هم چند تا ابزار بروت فورس میشناسم که باهاشون کار کردم 1. BruteSpray: خیلی سریعه و کار باهاش راحته، پیشنهاد میکنم حتما استفاده کنی. روی کالی و پروت نصبه کلی هم اموزش درموردش وجود داره هم توی سایت های ایرانی و هم خارجی 2. ابزار معروف Patator: این ابزار یه زمانی عزیز دل همه هکرا بود و هنوزم هست. دلیل اصلیش اینه که باهاش میشه چندین پروتکل و سرویس رو بروت فورس کرد بدون اینکه لازم باشه مدت زیادی صرف کانفیگش کنی اموزشش هم خیلی زیاده هم سایتای ایرانی هم خارجی 3. یه پیشنهاد! خودت با پایتون یه ابزار بنویس! واقعا خیلی خوبه اگه اینکارو بکنی. با اینکه حمله بروت فورس عموما ازش به عنوان یه حمله بی ارزش یاد میشه، اما اینکه بیای با پایتون خودت یه ابزار کوچک بنویسی میتونه ارزشمند باشه برای خودت.
  7. 2 امتیاز
    با سلام خدمت کاربران انجمن و همچنین مدیران عزیز من 3 بار تا به امروز سعی کردم وب سایت FBI رو داون کنم ولی نشد با این حال به خودم و شما یه قولی میدم که : تا 4 روز دیگه وب سایت FBI رو داون میکنم باز هم از مدیران عذرخواهی میکنم بابت اینکه این پیامم نوعی اسپم محسوب میشه
  8. 2 امتیاز
    پنجمین سایت : وب سایت رسمی برق اسرائیل lighting.co.il لینک چک هاست : https://check-host.net/check-report/f1096d5k8ad بقیه رو وقتی داون شد میزارم
  9. 2 امتیاز
    سلام ابزار پیوست شد! اگر برای سهولت کار به این ابزار نیاز داری مشکلی نداره، به شرطی که این جور ابزار ها مانع پیشرفتتون نشن. خب قبل از اینکه فایل رو باز کنید بدید به یه آنتی ویروس آنلاین. تیم گاردایران خوشبختانه در این زمینه تا به حال هیچ سابقه ای نداشته و اکثر ابزار ها به همراه لینک اسکن داده می شوند. لینک اسکن ابزار: www.virustotal.com/gui/file/c70c75ba824392a97c6657671fa87769db4d4da1d6190b9af69af628711c0fbb/detection ابزار توسطی گروهی دیگر ساخته شده که اسم نمیارم، خود فایل رو باز کنید همه جاش نوشته! ویندوز به درد اینجور کار ها نمی خوره(بعضی وقت ها جوری دستت رو می بنده که میخوای سیستم رو بزنی بشکونی)، از لینوکس استفاده کنی راحت تری.. در مورد تاپیک قبلیتون هم من گفتم شاید اشتباه کنم، شما می تونستید در شخصی این مورد رو به من بگید و من کلا اون قسمت رو پاک می کردم و همه چیز حل میشد. لازم نیست اسپم کنید. کار با ابزار هم خیلی سادس، فقط کافیه زبان انگلیستون در حد خوندن و نوشتن باشه! موفق و موید باشید🌹 Wordpress Brute Force v3.5.2.exe
  10. 1 امتیاز
    اولین سایت : USA.com | Link Check-host : https://check-host.net/check-report/e30c405k180 بقیه رو وقتی داون شد قرار میدم 😁
  11. 1 امتیاز
    سلام به چند نکته دقت داشته باشید. 1- فایل درست را فقط از خود وبسایت کالی لینوکس دانلود کنید. 2- چون می خواهید نصب کنید از نسخه installer استفاده کنید؛ x32 یا x64 بیت بودنش هم به معماری سیستم شما مرتبط میشه. 3- کالی لینوکس با setup نصب نمیشه(لااقل من ندیدم) سیستم رو از روی USB بالا بیارید و به صورت گرافیکی نصب را شروع کنید. نحوه ریختن صحیح فایل iso کالی را هم می توانید از این لینک مشاهده کنید. شاید در هنگام نصب 80درصد به ارور Can't mount and detect CD-ROM drives بر بخورید؛ برای حل این ارور مراحل زیر رو طی کنید تا مشکل حل بشه. 1- یه بار USB رو خارج کن و بعد از 30 ثانیه دوباره وارد کن. 2- اگر نشد وارد محیط شل بشید(ALT + F2) و دستورات زیر را وارد کنید: mkdir /cdrom mount -t vfat /dev/sdb1 /cdrom mount -t vfat /dev/svd1 /cdrom 3- دیگه بقیش راحته، خودش در مراحل چند گزینه ای بهترین گزینه ای که می تونید انتخاب کنید رو پیشنهاد میده. اگه می خواهید اطلاعتتون حفظ بشه می تونید کالی رو کنار ویندوزتون نصب کنید. 1- یه پارتیشن جدا کنید(حداقل 20 گیگابایت). 2- وقتی به بخش partition disks رسیدید Manual را انتخاب کنید. 3- پارتیشن Free space که جدا کرده بودید را انتخاب کنید. 4- باید اون پارتیشن رو به سه بخش تقسیم کنید، مثلا اگر 20 گیگ را جدا کردید؛ 10 گیگ را به پارتیشن root اختصاص بدید - 6 گیگ را به پارتیشن home اختصاص دهید و حداکثر 4 گیگ را به swap. root باید Primary باشد اما بقیه پارتیشن ها را می توانید روی Logical قرار دهید. (اگر هم پارتیشن swap را می گذارید در صفحه بعد use as انتخاب کنید و در صفحه بعد swap area را انتخاب کنید؛ اما بقیه پارتیشن ها را روی حالت beginning بگذارید.) بقیه مراحل هم معلومه دیگه... فقط حواستون باشه وقتی درخواست نصب بوت لودر رو داره حتما نصبش کنید. موفق باشید🌹
  12. 1 امتیاز
    1 . مراحل زیادی داره که شما باید فلشتون رو بوتیبل کنید 2 . شما باید فایل ایزو رو دانلود کنید ( فایل های اگزه فایل های اجرایی ویندوز هستند ) 3 . کالی رو به عنوان سیستم عامل اصلی پیشنهاد نمی کنم . چون چیز جالبی در نمیاد بهتره از لینوکسس های خانگی استفاده کنید بعد ابزار های مورد نیاز رو نصب کنید 4 . میتونید اموزش هارو از داخل و خارج انجمن جستجو کنید
  13. 1 امتیاز
    MrExploit

    مشکل بوت لودر

    والا من تا بحال اینطوری نشدم ولی فکر کنم : اگه موقع بالا اومدم آیکون سیستم ESC رو بزنی وارد استارت منو میشه اونجا برو به بخش BOOT Manager و بعد درایوی که ویندوز روی اون نصبه رو انتخاب کن تا ویندوز باالا بیاد رو لبتاپ های HP اینطوره ببخشید اگه اطلاعات ناقصه
  14. 1 امتیاز
    سلام دوست عزیز. این تاپیک مال سال ۹۶ و در بخش اخبار هست. شما باید سوالاتتون رو در بخش سوال و جواب ها بپرسید. لطفاً اسپم نکنید و تاپیک های قدیمی را بالا نیارید.
  15. 1 امتیاز
    SRX

    ابزار بروت فورس

    بازم که اسپم کردی عزیز من از قدردانیت متشکرم اما اون کلید لایک برای همینه شاید با توجه به تذکر هایی که بهت دادم فکر کنی دشمنی باهات دارم یا ... نه فقط نظم انجمن نباید به هم بخوره امیدوارم تو زندگیت موفق باشی🌹
  16. 1 امتیاز
    دوست خوب من @MrExploit به شما که نباید تذکر بدیم. جواب دارید به این بنده خدا بدید، ندارید خب چرا اسپم می کنید؟ اون موقع 15 دلار بود، الان دیگه کسی زیر 400 دلار نمی گیره.
  17. 1 امتیاز
    http://www.zone-h.org/mirror/id/34501762 http://www.zone-h.org/mirror/id/34501768 http://www.zone-h.org/mirror/id/34501769 http://www.zone-h.org/mirror/id/34501766 http://www.zone-h.org/mirror/id/34501754 بقیه سایت ها دیگه برای فردا ایشالا پایدار باشید
  18. 1 امتیاز
    چهارمین سایت : hazaratbet90.com (سایت قمار ) لینک چک هاست : https://check-host.net/check-report/e952844k230 بقیه رو وقتی داون شد قرار میدم
  19. 1 امتیاز
    nonamee

    Encrypt & DeCrypt Text

    ••.•´¯`•.•• 🎀 به نام خدا 🎀 ••.•`¯´•.•• با سلام خدمت کاربران محترم انجمن گاردایران در این تاپیک یک برنامه ی دیگه برای رمزنگاری متن با زبان VB نوشتم امیدوارتون خوشتون بیاد ca5b6e422c9ec4292c09fb2d39729e07199d21175aed9de17fad49b16d7a289d Source 'Profile: https://guardiran.org/profile/30462-rvlocker/ ' -------------------------------------------------------------------------------- ' - script written by Rvlocker Virus Creator - ' - Version 1.10 - ' - - ' - - ' - Created by Rvlocker - ' - - ' - With thanks to Guardiran.org - ' - - ' -------------------------------------------------------------------------------- Public Class frmMain #Region " [ Encryption Functions: Code By Rvlocker ] " Public Function DES_Encrypt(ByVal input As String, ByVal pass As String) As String Dim DES As New System.Security.Cryptography.DESCryptoServiceProvider Dim Hash_DES As New System.Security.Cryptography.MD5CryptoServiceProvider Dim encrypted As String = "" Try Dim hash(7) As Byte Dim temp As Byte() = Hash_DES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass)) Array.Copy(temp, 0, hash, 0, 8) DES.Key = hash DES.Mode = Security.Cryptography.CipherMode.ECB Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = DES.CreateEncryptor Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input) encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length)) Return encrypted Catch ex As Exception End Try End Function Public Function DES_Decrypt(ByVal input As String, ByVal pass As String) As String Dim DES As New System.Security.Cryptography.DESCryptoServiceProvider Dim Hash_DES As New System.Security.Cryptography.MD5CryptoServiceProvider Dim decrypted As String = "" Try Dim hash(7) As Byte Dim temp As Byte() = Hash_DES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass)) Array.Copy(temp, 0, hash, 0, 8) DES.Key = hash DES.Mode = Security.Cryptography.CipherMode.ECB Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = DES.CreateDecryptor Dim Buffer As Byte() = Convert.FromBase64String(input) decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length)) Return decrypted Catch ex As Exception End Try End Function Public Function AES_Encrypt(ByVal input As String, ByVal pass As String) As String Dim AES As New System.Security.Cryptography.RijndaelManaged Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider Dim encrypted As String = "" Try Dim hash(31) As Byte Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass)) Array.Copy(temp, 0, hash, 0, 16) Array.Copy(temp, 0, hash, 15, 16) AES.Key = hash AES.Mode = Security.Cryptography.CipherMode.ECB Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateEncryptor Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input) encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length)) Return encrypted Catch ex As Exception End Try End Function Public Function AES_Decrypt(ByVal input As String, ByVal pass As String) As String Dim AES As New System.Security.Cryptography.RijndaelManaged Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider Dim decrypted As String = "" Try Dim hash(31) As Byte Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass)) Array.Copy(temp, 0, hash, 0, 16) Array.Copy(temp, 0, hash, 15, 16) AES.Key = hash AES.Mode = Security.Cryptography.CipherMode.ECB Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor Dim Buffer As Byte() = Convert.FromBase64String(input) decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length)) Return decrypted Catch ex As Exception End Try End Function Public Function TripleDES_Encrypt(ByVal input As String, ByVal pass As String) As String Dim TripleDES As New System.Security.Cryptography.TripleDESCryptoServiceProvider Dim Hash_TripleDES As New System.Security.Cryptography.MD5CryptoServiceProvider Dim encrypted As String = "" Try Dim hash(23) As Byte Dim temp As Byte() = Hash_TripleDES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass)) Array.Copy(temp, 0, hash, 0, 16) Array.Copy(temp, 0, hash, 15, 8) TripleDES.Key = hash TripleDES.Mode = Security.Cryptography.CipherMode.ECB Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = TripleDES.CreateEncryptor Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input) encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length)) Return encrypted Catch ex As Exception End Try End Function Public Function TripleDES_Decrypt(ByVal input As String, ByVal pass As String) As String Dim TripleDES As New System.Security.Cryptography.TripleDESCryptoServiceProvider Dim Hash_TripleDES As New System.Security.Cryptography.MD5CryptoServiceProvider Dim decrypted As String = "" Try Dim hash(23) As Byte Dim temp As Byte() = Hash_TripleDES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass)) Array.Copy(temp, 0, hash, 0, 16) Array.Copy(temp, 0, hash, 15, 8) TripleDES.Key = hash TripleDES.Mode = Security.Cryptography.CipherMode.ECB Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = TripleDES.CreateDecryptor Dim Buffer As Byte() = Convert.FromBase64String(input) decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length)) Return decrypted Catch ex As Exception End Try End Function Public Function RC2_Encrypt(ByVal input As String, ByVal pass As String) As String Dim RC2 As New System.Security.Cryptography.RC2CryptoServiceProvider Dim Hash_RC2 As New System.Security.Cryptography.MD5CryptoServiceProvider Dim encrypted As String = "" Try Dim hash() As Byte = Hash_RC2.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass)) RC2.Key = hash RC2.Mode = Security.Cryptography.CipherMode.ECB Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = RC2.CreateEncryptor Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input) encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length)) Return encrypted Catch ex As Exception End Try End Function Public Function RC2_Decrypt(ByVal input As String, ByVal pass As String) As String Dim RC2 As New System.Security.Cryptography.RC2CryptoServiceProvider Dim Hash_RC2 As New System.Security.Cryptography.MD5CryptoServiceProvider Dim decrypted As String = "" Try Dim hash() As Byte = Hash_RC2.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass)) RC2.Key = hash RC2.Mode = Security.Cryptography.CipherMode.ECB Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = RC2.CreateDecryptor Dim Buffer As Byte() = Convert.FromBase64String(input) decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length)) Return decrypted Catch ex As Exception End Try End Function Public Function XOR_Encrypt(ByVal Input As String, ByVal pass As String) As String Dim out As New System.Text.StringBuilder Dim u As Integer For i As Integer = 0 To Input.Length - 1 Dim tmp As String = Hex(Asc(Input(i)) Xor Asc(pass(u))) If tmp.Length = 1 Then tmp = "0" & tmp out.Append(tmp) If u = pass.Length - 1 Then u = 0 Else u = u + 1 Next Return out.ToString End Function Public Function XOR_Decrypt(ByVal Input As String, ByVal pass As String) As String Dim out As New System.Text.StringBuilder Dim u As Integer For i As Integer = 0 To Input.Length - 1 Step +2 Dim tmp As String = Chr(("&H" & Input.Substring(i, 2)) Xor Asc(pass(u))) out.Append(tmp) If u = pass.Length - 1 Then u = 0 Else u = u + 1 Next Return out.ToString End Function Public Function CustomXOR_Encrypt(ByVal Input As String, ByVal pass As String) As String Dim out As New System.Text.StringBuilder Dim Hash As New System.Security.Cryptography.MD5CryptoServiceProvider Dim XorHash As Byte() = Hash.ComputeHash(System.Text.Encoding.ASCII.GetBytes(pass)) Dim u As Integer For i As Integer = 0 To Input.Length - 1 Dim tmp As String = Hex(Asc(Input(i)) Xor XorHash(u)) If tmp.Length = 1 Then tmp = "0" & tmp out.Append(tmp) If u = pass.Length - 1 Then u = 0 Else u = u + 1 Next Return out.ToString End Function Public Function CustomXOR_Decrypt(ByVal Input As String, ByVal pass As String) As String Dim out As New System.Text.StringBuilder Dim Hash As New System.Security.Cryptography.MD5CryptoServiceProvider Dim XorHash As Byte() = Hash.ComputeHash(System.Text.Encoding.ASCII.GetBytes(pass)) Dim u As Integer For i As Integer = 0 To Input.Length - 1 Step +2 Dim tmp As String = Chr(("&H" & Input.Substring(i, 2)) Xor XorHash(u)) out.Append(tmp) If u = pass.Length - 1 Then u = 0 Else u = u + 1 Next Return out.ToString End Function Public Function RSA_Encrypt(ByVal Input As String) As String Dim cp As New Security.Cryptography.CspParameters cp.Flags = Security.Cryptography.CspProviderFlags.UseMachineKeyStore cp.KeyContainerName = "Keys" Dim RSA As New Security.Cryptography.RSACryptoServiceProvider(cp) Dim buffer As Byte() = System.Text.Encoding.UTF8.GetBytes(Input) Dim encrypted As Byte() = RSA.Encrypt(buffer, True) Return Convert.ToBase64String(encrypted) End Function Public Function RSA_Decrypt(ByVal Input As String) As String Dim cp As New Security.Cryptography.CspParameters cp.Flags = Security.Cryptography.CspProviderFlags.UseMachineKeyStore cp.KeyContainerName = "Keys" Dim RSA As New Security.Cryptography.RSACryptoServiceProvider(cp) Dim buffer As Byte() = Convert.FromBase64String(Input) Dim decrypted As Byte() = RSA.Decrypt(buffer, True) Return System.Text.Encoding.UTF8.GetString(decrypted) End Function #End Region Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub btnEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEncrypt.Click If EncryptionMethod.Text = "AES Encryption" Then TextToEncrypt.Text = AES_Encrypt(TextToEncrypt.Text, EncryptionPassword.Text) ElseIf EncryptionMethod.Text = "RC2 Encryption" Then TextToEncrypt.Text = RC2_Encrypt(TextToEncrypt.Text, EncryptionPassword.Text) ElseIf EncryptionMethod.Text = "RSA Encryption" Then TextToEncrypt.Text = RSA_Encrypt(TextToEncrypt.Text) ElseIf EncryptionMethod.Text = "XOR Encryption" Then TextToEncrypt.Text = XOR_Encrypt(TextToEncrypt.Text, EncryptionPassword.Text) ElseIf EncryptionMethod.Text = "DES Encryption" Then TextToEncrypt.Text = DES_Encrypt(TextToEncrypt.Text, EncryptionPassword.Text) ElseIf EncryptionMethod.Text = "TripleDES Encryption" Then TextToEncrypt.Text = TripleDES_Encrypt(TextToEncrypt.Text, EncryptionPassword.Text) ElseIf EncryptionMethod.Text = "XOR Encryption [Custom]" Then TextToEncrypt.Text = CustomXOR_Encrypt(TextToEncrypt.Text, EncryptionPassword.Text) End If End Sub Private Sub btnDecrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDecrypt.Click If EncryptionMethod.Text = "AES Encryption" Then TextToDecrypt.Text = AES_Decrypt(TextToDecrypt.Text, EncryptionPassword.Text) ElseIf EncryptionMethod.Text = "RC2 Encryption" Then TextToDecrypt.Text = RC2_Decrypt(TextToDecrypt.Text, EncryptionPassword.Text) ElseIf EncryptionMethod.Text = "RSA Encryption" Then TextToDecrypt.Text = RSA_Decrypt(TextToDecrypt.Text) ElseIf EncryptionMethod.Text = "XOR Encryption" Then TextToDecrypt.Text = XOR_Decrypt(TextToDecrypt.Text, EncryptionPassword.Text) ElseIf EncryptionMethod.Text = "DES Encryption" Then TextToDecrypt.Text = DES_Decrypt(TextToDecrypt.Text, EncryptionPassword.Text) ElseIf EncryptionMethod.Text = "TripleDES Encryption" Then TextToDecrypt.Text = TripleDES_Decrypt(TextToDecrypt.Text, EncryptionPassword.Text) ElseIf EncryptionMethod.Text = "XOR Encryption [Custom]" Then TextToDecrypt.Text = CustomXOR_Decrypt(TextToDecrypt.Text, EncryptionPassword.Text) End If End Sub Private Sub btnCopy1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy1.Click My.Computer.Clipboard.Clear() My.Computer.Clipboard.SetText(TextToEncrypt.Text) End Sub Private Sub btnCopy2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCopy2.Click My.Computer.Clipboard.Clear() My.Computer.Clipboard.SetText(TextToDecrypt.Text) End Sub Private Sub btnPaste1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPaste1.Click TextToEncrypt.Text = My.Computer.Clipboard.GetText() End Sub Private Sub btnPaste2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPaste2.Click TextToDecrypt.Text = My.Computer.Clipboard.GetText() End Sub End Class پسورد ---->>>> guardiran.org Text Encryption.rar
  20. 1 امتیاز
    سومین سایت : lacrosse.co.il (یکی از مهم ترین سایت های اسرائیلی) Check-Host : https://check-host.net/check-report/e6f947bka00 بقیه رو وقتی داون شد قرار میدم لطفا دکمه تشکر در آخر تاپیک فراموش نشه
  21. 1 امتیاز
    دومین سایت : time.org | Link Check-host : https://check-host.net/check-report/e30c269k603 بقیه رو وقتی داون شد قرار میدم 😁
  22. 1 امتیاز
    سلام دوستان این مقام هایی که می خوره رو پروفایل چجوریه برای بعضی نوشته تازه وارد کاربر فعال کدوم از کدوم بالا تره بعد چجوری باید ارتقا پیدا کنیم
  23. 1 امتیاز
    چندین حالت وجود داره و مهمترینش اینکه طرف مقابل حساس به سیستم خودش و یا به IP خاصی حساسش کرده و فایروالی که بر سر راهش قرار داده اجازه ورود به شما نمیده.