[IceFlow1]

Also hab hier mal ein Programm programmiert hat ungefähr ein tag gedauert.
mit dem könnt ihr in firmennetzwerken Taskmgr, cmd, remote usw.. öffnen um sch**
zu bauen. wenn ihr sch** baut übernehme ich keine haftung probierts aber einfach mal aus!

Wie funktionert das?:

Also im Programm sind alle wichtigen programme wie z.B
taskmgr, cmd, remote... usw... gespeichert die extrahiert
das programm beim start in einen angelegten ordner und erstellt sie
mit veränderten informationen um enddeckung des programms zu verhindern naja probierts einfach mal aus. achso und .. das programm löscht nach schließen alle temporären dateien, erstellten dateien, und erstellte programmordner

Screenshots:

START:

[ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ]

CODE ABFRAGE KLEINER GECK ^^:

[ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ]

DAS WIRD ERSTELLT:

[ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ]

Die DLL Kann auch gelöscht werden! Wird bei beendung des Programms auch automatisch gelöscht! Hab vergessen das auszubauen ^^:

HIER DIE AUSWAHL:

[ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ]

Wichtig: Immer das Programm durch dieses Fenster schließen sonst werden die erstellten ordner nicht gelöscht!

ALLES AUF EINMAL:

[ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ]

Download kommt später hab nur eine langsame leitung das proggi ist 40mb groß wegen den ganzen exen die in my.resources sind!

Bildet euch erstmal nen eindruck viel spaß!! (wenns upp ist!)

WICHTIG : Es kann immer nur ein programm geöffnet werden! Denn es werden zu tarnung alle exes mit dem namen svchost.exe erstellt und in den gleichen ordner erstellt

[Quellcode]

Form1:

Public Class Form1

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Form2.Show()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form3.Show()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form4.Show()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
        Me.Opacity = "0"

        System.IO.File.WriteAllBytes("C:\GEK.dll", My.Resources.GEK)

        MkDir("C:\Programme\schooltool")

        MsgBox("Es wurden alle Programmwichtigen Ordner erstellt!")

        Form5.Show()
        Me.Opacity = "0"









    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Kill("C:\GEK.dll")

        My.Computer.FileSystem.DeleteDirectory("C:\Programme\schooltool\", FileIO.DeleteDirectoryOption.DeleteAllContents)


        MsgBox("Alle Dateien des Programms und Spuren wurden Verwischt und gelöscht!")



    End Sub

    
End Class


Form2:

Public Class Form2

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Image = My.Resources.info_icon

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub
End Class

Form3:

Public Class Form3


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.hertz)
        Shell("C:\Programme\schooltool\svchost.exe")








    End Sub

  
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.solitär)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.spider)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.minenspiel)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub
End Class

Form4:

Public Class Form4

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.programmmanager)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.tastatur)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.registry)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.systemmonitor)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.lupe)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.ddefreigabe)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.mediaplayer)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.lautstärke)
        Shell("C:\Programme\schooltool\svchostexe")
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.iconmaker)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.symbole)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.commandeur)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.remote)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.editor)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.bildschirmübertragung)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.paint)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.writepad)
        Shell("C:\Programme\schooltool\svchost.exe")
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        System.IO.File.WriteAllBytes("C:\Programme\Mozilla Firefox\svchost.exe", My.Resources.feuervogel)
        Shell("C:\Programme\Mozilla Firefox\svchost.exe")
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        System.IO.File.WriteAllBytes("C:\Programme\Skype\Phone\svchost.exe", My.Resources.skaipe)
        Shell("C:\Programme\Skype\Phone\svchost.exe")
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        System.IO.File.WriteAllBytes("C:\Programme\Steam\svchost.exe", My.Resources.steamgeil)
        Shell("C:\Programme\Skype\Phone\svchost.exe")
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        System.IO.File.WriteAllBytes("C:\Programme\VideoLAN\VLC\svchost.exe", My.Resources.vlcplayer)
        Shell("C:\Programme\VideoLAN\VLC\svchost.exe")
    End Sub

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\svchost.exe", My.Resources.Ultra_HTML_Editor)
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\Fireball.CodeEditor.dll", My.Resources.Fireball_CodeEditor)
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\Fireball.CodeEditor.SyntaxFiles.dll", My.Resources.Fireball_CodeEditor_SyntaxFiles)
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\Fireball.Core.dll", My.Resources.Fireball_Core)
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\Fireball.SyntaxDocument.dll", My.Resources.Fireball_SyntaxDocument)
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\Fireball.Win32.dll", My.Resources.Fireball_Win32)
        System.IO.File.WriteAllBytes("C:\Programme\schooltool\Fireball.Windows.Forms.dll", My.Resources.Fireball_Windows_Forms)


        Shell("C:\Programme\schooltool\svchost.exe")



    End Sub
End Class

Form5:

Public Class Form5

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not TextBox1.Text = ("0000") Then
            MsgBox("Falscher Code!")
        ElseIf TextBox1.Text = ("0000") Then
            Me.Close()
            Form1.Opacity = "100"
            MsgBox("Viel Spaß! Wenn Ihr nicht wisst wie man einige Programme bedient dann schaut im Internet nach! Die Bedienung geschieht auf eigene Gefahr! Immer nur ein Programm öffnen! Bei Problemem das Troubleshooting Programm öffnen")


        End If
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub
End Class

Bitte zwar nicht so profissionell aber egal ^^

ENDLICH UPP^^ hier

[ Link nur für registrierte Mitglieder sichtbar. Bitte einloggen oder neu registrieren ]

[gosha16]

willst du uns nicht auch den Quellcode zeigen?

[IceFlow1]

ist gleich upp dann viel spaß

[ThePinsel]

Wir haben auch [CODE]-Tags. Die hab ich mal reineditiert.

[IceFlow1]

ja cheffe ist ok