RedPhoenix kódok

[Rendszergazda]

Jelszó: 12321




A fájl mentésre került, törlés esetén azonnal sokszorosítva lesz az internet minden oldalán.

[Rendszergazda]

Code: Select all

Dim connection As New SqlConnection("Data Source=0.0.0.0,1111; Initial Catalog=valami; Persist Security Info=True; Connection Timeout=5; User ID=ez; Password=az")


MyBase.Load
        '  Timer1.Start()
        Dim CPUName As String
        CPUName = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\SYSTEM\CentralProcessor\0", "ProcessorNameString", Nothing)
        TextBox5.Text = CPUName
        TextBox6.Text = (CDbl(My.Computer.Info.TotalPhysicalMemory) / 1024 / 1024 / 1024).ToString("##.# GB")
        TextBox3.Text = System.Security.Principal.WindowsIdentity.GetCurrent().Name
        Dim rn As New Random
        TextBox1.Text = (rn.Next(10000, 100000))
        Dim hdser2 As String
        Try
            Dim searcher0 As New ManagementObjectSearcher(
                "root\CIMV2", "SELECT * FROM Win32_physicalmedia WHERE Tag ='\\\\.\\PHYSICALDRIVE0'")
            For Each wmi As ManagementObject In searcher0.[Get]()
                hdser2 = wmi.GetPropertyValue("serialnumber").ToString.Trim()
                Exit For
            Next
            TextBox10.Text = hdser2.ToString.Trim
        Catch ex As Exception
        End Try
        TextBox9.Text = GetMotherboardSerialNumber()
        TextBox2.Text = System.Windows.Forms.SystemInformation.ComputerName
        Label13.Text = System.Windows.Forms.SystemInformation.ComputerName
        TextBox4.Text = "jajj ne!!!"
    End Sub


cmd1.CommandText = "INSERT INTO redtable3 ([UserID], [Computername], [Winusername], [UserIP], [UserCPU], [UserRAM], [DateLabel], [StartingCount], [CpuID], [HardDiskID], [keylayout]) VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & annual.Text & "')"



    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        If licencekey.Text = "ABCD1-23456-7890A-BCD12-34567" Then
            MessageBox.Show("Tényleg azt hitted hogy érvényes lesz a kulcs 
a példában? Túl könnyű lett volna! hihi :)

De ne csüggedj! Nevettem...", "Vicces vagy!")
        Else
            licencekey.Enabled = False
            emailadress.Enabled = False
            Timer3.Start()
            Button3.Visible = False
        End If
    End Sub


If CBool(exists) Then
                ' ITT SZAR VAN
            Else
                Timer3.Stop()
                MessageBox.Show("Ez a kulcs nem érvényes!", "Érvénytelen Kulcs", MessageBoxButtons.OK, MessageBoxIcon.Error)

  If CBool(exists) Then
                    ' ITT SZAR VAN
                Else
                    ' MEHET TOVA
                    Timer3.Stop()
                    MessageBox.Show("Ez a kulcs Másik számítógéphez tartozik!
Ellenőrizze Termékkulcsait, és adja meg 
az eszközhöz tartozó kulcsot!", "Érvénytelen kulcs", MessageBoxButtons.OK, MessageBoxIcon.Error)

[Rendszergazda]

Code: Select all

If ProgressBar2.Value = 90 Then
            Dim taosdll As String = Convert.ToBase64String(Encoding.UTF8.GetBytes(TextBox1.Text))
            Dim lickey As String = Convert.ToBase64String(Encoding.UTF8.GetBytes(licencekey.Text))
            Dim emilke As String = Convert.ToBase64String(Encoding.UTF8.GetBytes(emailadress.Text))
            My.Computer.FileSystem.WriteAllText("c:\Windows\Branding\glorion\sys\kernel\krnl64\\taos.dll", taosdll, True)
            My.Computer.FileSystem.WriteAllText("c:\Windows\Branding\glorion\sys\kernel\krnl64\\taoulk.dll", lickey, True)
            My.Computer.FileSystem.WriteAllText("c:\Windows\Branding\glorion\sys\kernel\krnl64\\taouma.dll", emilke, True)


MessageBox.Show("Sikertelen aktiválás! Hívja a Supportot a +3620 2286890-es Számon!", "HSP Red Phoenix Licence Info",


If TextBox11.Text = "70931651950236260" Then
            Dim result As Integer = MessageBox.Show("Visszaállítja a Licencelést? (Fejlesztő)", "OWNER AIO HTNID 50236260", MessageBoxButtons.YesNo)
            If result = DialogResult.Yes Then
                Process.Start("c:\Windows\Branding\glorion\lib64\paramvalid\anual.exe")
            ElseIf result = DialogResult.No Then
            End If

[Rendszergazda]

Code: Select all

Enkodol


Dim valami As String = Convert.ToBase64String(Encoding.UTF8.GetBytes(TextBox1.Text))

Dekodol

Dim reply As String = Encoding.UTF8.GetString(Convert.FromBase64String(relic))


 My.Computer.FileSystem.WriteAllText("c:\.HSP Reserved\HSP-SYSTEM\HSP-Yadaptron\.ndilla\bin\auth-dex.ini", TextBox3.Text, True)

            My.Computer.FileSystem.WriteAllText("c:\.HSP Reserved\HSP-SYSTEM\HSP-Yadaptron\.ndilla\bin\authp.ini", TextBox2.Text, True)

            My.Computer.FileSystem.WriteAllText("c:\.HSP Reserved\HSP-SYSTEM\HSP-Yadaptron\.ndilla\bin\authu.ini", TextBox1.Text, True)

            My.Computer.FileSystem.WriteAllText("c:\.HSP Reserved\HSP-SYSTEM\HSP-Yadaptron\.ndilla\bin\mil.ini", TextBox10.Text, True)



TEST KEY
TNC29-64BMC-695X9-V4036-878R8


Port 54320


ConnectionString:


Dim address As String = "http://redphoenix.pool.hspserver.hu/p3/endilla/signeturedauth.dll"
    Dim client As WebClient = New WebClient()
    Dim relic As String = client.DownloadString(address)
    Dim reply As String = Encoding.UTF8.GetString(Convert.FromBase64String(relic))
    Dim connection As New SqlConnection(reply)


Login: red3

Pass: 7%!96914r%92&8816TlB5d!U


http://redphoenix.pool.hspserver.hu/p3/update/kernelversion.ini


UserID

Computername

Winusername

UserIP

UserCPU


UserRAM

DateLabel

StartingCount

CpuID

HardDiskID

[Rendszergazda]

Code: Select all

System.Net.HttpWebRequest.Create("http://redphoenix.pool.hspserver.hu/p3/update/kernelversion.ini")


MessageBox.Show("ÚJ KERNEL FRISSÍTÉS ÉRHETŐ EL A HSP RED PHOENIX 3 Rendszer-hez!

A frissítést kötelező telepíteni! A HSP RED Phoenix nem indítható el a legújabb kernelverzióra történő frissítés nélkül!

A Program most DFU módba kapcsol, majd letölti és telepíti a frissítést!


Előfordulhat, hogy a kernel frissítést RENDSZER Frissítés is követi! Ha ismét látja ezt az ablakot
a művelet után, ne essen pánikba! Csak nyomja meg ismét az OK-t!


Kérem a kezdéshez nyomja meg az OK-t!

         -------------------------------------

NEW UPDATE AVAILABLE FOR HSP RED PHOENIX 3!

Update required! Cannot start HSP RED Phoenix without upgrading to the latest version!

The program will now switch to DFU mode, then download and install the update!

Please press OK to get started!


", "HSP RED Phoenix 3 KERNEL Update Found!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)


If TargetProcess.Length > 0 Then
                Label4.Visible = True ' EZ MUTATJA A CHECKINGET
                Label4.Location = New System.Drawing.Point(183, 73)
                Label4.ForeColor = Color.Red
                Label4.Text = "Az önvédelem NEM fut!"
            End If

 Label2.Text = "Bootszekvencia Inicializálás..."
        End If
        If CircularProgressBar1.Value = 15 Then
            Label2.Text = "Az Önvédelem aktiválása..."



Label4.Visible = True ' EZ MUTATJA A CHECKINGET
                PictureBox8.Visible = True
                PictureBox9.Visible = True
                redallert1.Visible = False
                redallert2.Visible = False
                Label4.Text = "Az önvédelem fut!"



MessageBox.Show("Licenc Hiba! Sikertelen hiteleítés!")
                Application.Exit()
            End If
            Label2.Text = "Felkészülés a Phoenix indítására..."


 If CircularProgressBar1.Value = 99 Then
            NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
            NotifyIcon1.BalloonTipTitle = "A Red Phoenix Rendszer indítása"
            NotifyIcon1.BalloonTipText = "A phoenix Rendszer bootol..."
            NotifyIcon1.ShowBalloonTip(50000)
            Label3.Text = "100 %"
        End If


Try
                Process.Start("c:\Windows\Branding\glorion\boot\phoenixboot.exe")
            Catch ex As Exception
                MsgBox("Nem található a boot trágya!")
                Application.Exit()
            End Try


NotifyIcon1.BalloonTipTitle = "A Red Phoenix Rendszer indítása"
                NotifyIcon1.BalloonTipText = "A phoenix Rendszer bootol..."

[Rendszergazda]

Code: Select all

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CenterToScreen()
        Top = 0
        Me.Hide()
        Me.Visible = False
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Timer1.Interval = 20
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = 100 Then
            Me.WindowState = FormWindowState.Minimized
            Me.Visible = False

            Me.Hide()
            Me.ShowInTaskbar = False
            Timer1.Stop()
        End If
    End Sub
End Class


Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim fileReader As String
        fileReader = My.Computer.FileSystem.ReadAllText("c:\Windows\Branding\glorion\sys\kernel\krnl64\tallin.dll")
        switch.Text = (fileReader)
        Me.CenterToScreen()
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Label1.Select()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If switch.Text = "0" Then
            Process.Start("c:\Windows\Branding\glorion\boot\masa.exe")
            Application.Exit()
        Else
            Process.Start("c:\Windows\Branding\glorion\boot\bootmgfw.exe")
            Application.Exit()
        End If
    End Sub
End Class

[Rendszergazda]

Code: Select all

Process.Start("c:\Windows\Branding\glorion\sys\kernel\update\bin\updatephoenix.exe")
            Process.Start("c:\Windows\Branding\glorion\etc\prekiller.vbs")
            'De IDE LEHET BEBASZNI MINDENT........
            Application.Exit()


For Each MyKill As Process In MyProcess1
                MyKill.Kill()
            Next

            ' DO WHATEVER CODE YOU WANT IN HERE
            ' LIKE SETTING E.CANCEL TO TRUE

        End If

 MessageBox.Show("The HSP Phoenix En-Dilla LMS Security Not running! 
Can't Starting the Boot module!", "Hacking Attempt Detected", MessageBoxButtons.OK, MessageBoxIcon.Error)


  Dim TargetProcess1 As Process() = Process.GetProcessesByName("red_ignition")


        If TargetProcess1.Length > 0 Then
            ' MsgBox("BASZIK!")
        Else

            Me.Hide()
            MessageBox.Show("The HSP Phoenix Engine Security Not running! 
Can't Starting the Boot module!", "Hacking Attempt Detected", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Application.Exit()
        End If

If ProgressBar2.Value = 50 Then

            ' '' EN-DILLA Check --- Block The boot if not running



            ' '' EN-DILLA Check --- Block The boot if not running



        End If

  If ProgressBar2.Value = 70 Then

            'PictureBox6.Visible = False
            Label9.ForeColor = Color.Green
            Label9.Text = "HSP RED PHOENIX 3 CP ENGINE STARTED"

        End If

  ' ITT A BAR HIDDEN A FEHÉRNÉL
            ProgressBar1.Visible = False

[Rendszergazda]

Code: Select all

ProgressBar1.Increment(1)
        If ProgressBar1.Value = 4 Then
            PictureBox3.Visible = True
            Label4.Location = New System.Drawing.Point(200, 704)
            Label4.Text = "Checking HSP Server Connection..."
        End If

        If ProgressBar1.Value = 20 Then

            Label4.Location = New System.Drawing.Point(200, 704)
            Label4.Text = "Authentication..."
        End If

        If ProgressBar1.Value = 50 Then
            Label4.Location = New System.Drawing.Point(200, 704)
            Label4.Text = "HSP Server Connected..."
        End If
        If ProgressBar1.Value = 70 Then

            TextBox2.Text = My.Computer.Info.OSFullName
            TextBox3.Text = "Server"
            If TextBox2.Text.Contains(TextBox3.Text) Then
                PictureBox9.Visible = True
                ' Szerver esetén ennél szól hogyha detectál.
                ' Vagyis minden eventet ide kell baszni, mert mulatási.
            Else
            End If

If My.Computer.Network.Ping("rds.pool.hspinet.hu") Then
                    PictureBox8.Visible = True
                End If

If My.Computer.Network.Ping("google.hu") Then
                    PictureBox6.Visible = True
                End If


If ProgressBar4.Value = 50 Then
            Label24.Visible = True
            PictureBox12.Visible = True
            PictureBox13.Visible = True
            Label100.Visible = False
            Label500.Visible = True
            Label500.Text = "A RED FŐPROGRAM KOMPATIBILIS MÓDBAN INDUL..."
            Process.Start("c:\Windows\System32\mswindebugple.exe")

        End If
        If ProgressBar4.Value = 100 Then
            Timer4.Stop()
            ' Process.Start(" IDE IRD BE A COMPATIBLE MODE EXÉJÉT") ' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ COMPATIBLE MODE EXE
            Process.Start("c:\Windows\Branding\glorion\system\engine\main\phmain_cc.exe")
            ' MessageBox.Show("HSP ENDENCIO RED PHOENIX CMM MODE STARTED", "ENGINE START NOTIFICATION", MessageBoxButtons.OK, MessageBoxIcon.Information)



If CheckBox2.Checked Then


                If TextBox1.Text = "445500" Then
                welcomenote.Visible = False
                phanim.Visible = False
                phnoanimate.Visible = True
                Timer4.Start()
                    TextBox1.Enabled = False
                    TextBox1.BackColor = Color.Gray
                    PictureBox10.Visible = True
                Else


                End If

            Else

            If TextBox1.Text = "445500" Then
                phanim.Visible = False
                phnoanimate.Visible = True
                welcomenote.Visible = False
                PictureBox10.Visible = True
                Timer2.Start()
                TextBox1.Enabled = False
                TextBox1.BackColor = Color.Gray

            Else

            End If

            End If

Dim result As Integer = MessageBox.Show("A Kompatibilis mód használata csak akkor szükséges, ha normál módban a PIN beírása utána nem indul el a főprogram! 
Biztos hogy bekapcsolja a kompatibilis módot?")

            If result = DialogResult.Yes Then

                CheckBox2.Checked = True

            ElseIf result = DialogResult.No Then

                CheckBox2.Checked = False


            End If

        Else

            ' Ide ha kikapcsolod
            MessageBox.Show("HSP RED Phoenix Kompatibilis módú indítás kikapcsolva 
(Normál mód aktív)", "HSP RED Phoenix Compatible mode Switch", MessageBoxButtons.OK, MessageBoxIcon.Information)


        End If

[leveltaros]

Konyorgom egy code blokkba tedd be, legyszives igy:

[code]fasz[/code]

[Rendszergazda]

Konyorgom egy code blokkba tedd be, legyszives igy:

[code]fasz[/code]

Tudom, utólag rájöttem amikor a másik bemásolt kódkat láttam.