dvb2010
زيزوومى فضى
- إنضم
- 22 ديسمبر 2013
- المشاركات
- 682
- مستوى التفاعل
- 3,167
- النقاط
- 945
- الإقامة
- قسنطينة
- الموقع الالكتروني
- forum.zyzoom.net
غير متصل
خبرتي في برمجة لم استطع تحليل سيرفر
استعملت دامب مباشرة
لم اجد بيانات هوست + بورت
وجدت شرح في يوتيب ساعدني كثيراااا
بورت 80
[hide]
[/hide]
كود سورس الذي استعملته لاستخراج بورت + هوست
[hide]
[/hide]
استعملت دامب مباشرة
لم اجد بيانات هوست + بورت
وجدت شرح في يوتيب ساعدني كثيراااا
بورت 80
[hide]
كود سورس الذي استعملته لاستخراج بورت + هوست
[hide]
PHP:
Imports System.Security.Cryptography
Imports System.IO
Imports System.Text
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Hide()
Me.ShowIcon = False
Me.ShowInTaskbar = False
Me.Opacity = 0
'Dim dz As String = Decrypt("Q5lBxWS/LjLl1wgq3W6w8Q==", "Black007") Port 80
Dim dz As String = Decrypt("5YcTidEiS/kG5WgACBUhSYRoVpJuOeZ7V9lm5ogGg3U=", "Black007")
'Host forum.kaspersky.ignorelist.com
MsgBox(dz)
Clipboard.SetText(dz)
End Sub
Public Shared Function Decrypt(ByVal UDecryptU As String, ByVal UKeyU As String) As Object
Dim managed As New RijndaelManaged
Dim salt As Byte() = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
Dim bytes As New Rfc2898DeriveBytes(UKeyU, salt)
managed.Key = bytes.GetBytes(managed.Key.Length)
managed.IV = bytes.GetBytes(managed.IV.Length)
Dim stream2 As New MemoryStream
Dim stream As New CryptoStream(stream2, managed.CreateDecryptor, CryptoStreamMode.Write)
Try
Dim buffer As Byte() = Convert.FromBase64String(UDecryptU)
stream.Write(buffer, 0, buffer.Length)
stream.Close()
UDecryptU = Encoding.UTF8.GetString(stream2.ToArray)
Catch exception1 As Exception
End Try
Return UDecryptU
End Function
End Class
