Jump to content
Araştır
  • Diğer seçenekler ...
Sonuçları bul ...
Sonuçları bul ...
Admin

Nero

Yönetici
 Profili  İçeriklerini bul

  • İçerik sayısı

    306

  • Katılım

  • Son ziyaret

  • Günün Kazananı

    157

  • Puan

    976,976,583 [ Bağış Yap ]

İletiler : Nero

  1. Oluşturuldu:

     

    en son versiyonda arkadaşlarım ile kurduğumuz kodevelopers.com forumuna bağlı çalışan bir login sistemi eklemiştim, 

    pvp bırakırken forumu arkadaş çevresine devir ettikten sonra login problemi oluşmuş ve yazılım ne yazık ki kullanılamaz hale gelmiş.

     

    10 senelik eski bir yazılım açıkçası tekrar paylaşmaya değmezdi fakat pvp bu kadar gelişmişken belki hala ihtiyacı olan çıkabilir.

     

    Login sistemini kaldırdım. Elim değmişken bir kaç problemi giderdim. Ancak yeni versiyonlara uyum sağlaması için bir çok yerinin daha düzenlenmesi gereklidir muhtemelen detaylı kontrol etmedim.

     

    Onca sene içerisinde daha gelişmiş editörlerin paylaşılmamış olması üzdü açıkçası.

     

    Virustotal

    https://www.virustotal.com/gui/file/d30395604ee7c646de9658a56a6510cc168a84870123c51f2f030052966c42be/detection

     

    Download

    https://www.mediafire.com/file/q98xm5i7o73bboi/Nero_All_In_One_Editor_v1.08.zip/file

     

    Ayrıca settings.ini varsayılan ayarları şu şekilde olmalı 

    [SETTINGS]
CONNECTION_STRING=Driver={SQL Server};Server=NERO\SQLEXPRESS;Database=kn_online;Id=test;Password=test;

[DEFINE]
INSERT_SCRIPT=INSERT INTO [K_NPCPOS] VALUES ({ZoneID},{NpcID},{ActType},0,0,0,0,{5},{6},{7},{8},{6},{5},{7},{8},{NumNPC},{RegTime},0,0,'NULL');
ZONE_TABLE_NAME=ZONE_INFO
NPC_TABLE_NAME=K_NPC
MOB_TABLE_NAME=K_MONSTER
NPCPOS_TABLE_NAME=K_NPCPOS

[KODEVELOPERS]
WEB_USERNAME=Nero
WEB_PASSWORD=

     

  9. tarihinde gönderildi

    Alıntı
    ellerine saglık!
    -- mesaja ek olarak --
    Nero merhaba, MSCOMCTL system32 ye atmama ragmen sürekli problem yaratıyor. windows 2012 r2 kullanıyorum acaba bununla ilgili olabilir mi?


    tecrübem yok fakat

    C:\Windows\SysWOW64
    C:\Windows\System32

    bu iki dizine de o dosyaları atıp

    @echo off
    regsvr32 MSINET.OCX
    regsvr32 COMDLG32.OCX
    regsvr32 MSADODC.OCX
    regsvr32 MSCOMCTL.OCX
    regsvr32 RICHTX32.OCX
    echo OCX Kayit islemi gerceklesmistir.
    pause


    bu kodları .bat uzantılı şekilde not defteri ile kaydedip calıstırın

    eğer hata veriyorsa, .bat dosyasını .ocx dosyalarının yanındayken calıstırın

    eğer yine olmuyorsa editörün özelliklerinden uyumlulugunu xp, win98 me vs. yaparak deneyin

    eğer yine olmuyorsa işletim sisteminiz 64bit ise ocx indirme sitelerinden bu ocxlerin 64bit olanını bulmaya calısın (hata veren hangisi ise)

    ve .bat dosyasında regsvr32 > regsvr64 olarak degistirip öyle kaydettirmeye calısın

  14. tarihinde gönderildi

    @ kasim20
    ilk olarak kontrol et
    select* from k_monster_item where 
    sindex in(select sSid from k_monster where strname = 'worm')


    burada kontrol etmen gereken %80 girdim diyorsun 80 * 100 = 8000 olmalı, ayrıca item id yi görebilmen lazım.

    Wk3MP7AyRb_ahXS_mgqwuw.png

    eğer bunlarda sıkıntı yoksa ve bahsettiğin item grup kısmına eklenmiş mi eklenmemiş mi kontrol et, (nereye eklediğini bilmiyorum ben o yüzden öneriyorum)

    bunu da sırasıyla yapman lazım

    select* from make_item_group where 
    iitemgroupnum in (select [iitem01] from k_monster_item where 
    sindex in(select ssid from k_monster where strname = 'worm'))


    eğer burdada bir problem görmezsen bahsettiğin itemin clientinde sorunsuz ekli olduguna emin olman lazım

    ayrıca grup kısmına eklemediysen itemi, k_monster_item tablosunda aynı yaratık için birden fazla satır eklenmiş olabilir, bunu desteklemiyordu diye hatırlıyorum. önce sen bunu kontrol et büyük ihtimal problemin budur.
    • Teşekkür 4

  15. tarihinde gönderildi 

    Public Sub InventoryOku()
      Dim tmpBase As Long, tmpLng1 As Long, tmpLng2 As Long, tmpLng3 As Long, tmpLng4 As Long
      Dim lngItemID As Long, lngItemID_Ext As Long, lngItemNameLen As Long, AdrItemName As Long
      Dim ItemNameB() As Byte
      Dim ItemName As String
      Dim i As Integer

      tmpBase = ReadLong(KO_PTR_DLG)  'read KO_DLGBMA adress
      tmpLng1 = ReadLong(tmpBase + &H1A0) 'first pointer
     
For i = 26 To 53 'read 0 to 41 inventory slots (0=earring, 1=helmet, 2=earring, 3=necklace, 4=pauldron ....14=first inventory slot)
          tmpLng2 = ReadLong(tmpLng1 + (&H134 + (4 * i))) 'inventory slot
          tmpLng3 = ReadLong(tmpLng2 + &H38) 'item id adress
          tmpLng4 = ReadLong(tmpLng2 + &H3C) 'item id_ext adress
          
          lngItemID = ReadLong(tmpLng3) 'item id value
          lngItemID_Ext = ReadLong(tmpLng4) 'item id_ext value
          lngItemID = lngItemID + lngItemID_Ext 'real item id
          lngItemNameLen = ReadLong(tmpLng3 + &H10) 'n° characters in item name
          AdrItemName = ReadLong(tmpLng3 + &HC) 'item name adress
          
          ItemName = "" 'reset ItemName variable
          If lngItemNameLen > 0 Then
              ReadByteArray AdrItemName, ItemNameB, lngItemNameLen 'get item name (byte array)
              ItemName = StrConv(ItemNameB, vbUnicode) 'convert it to string
          End If
If Form2.List1.ListCount = "28" Then

Else
Form2.List1.AddItem Form2.List1.ListCount + 1 & "-) " & ItemName
Form1.List1.AddItem Form1.List1.ListCount + 1 & "-) " & lngItemID
End If
Next
End Sub

Function InventoryItemBase(slot As Integer) As Long
Dim a As Long, b As Long, c As Long
a = ReadLong(KO_PTR_DLG)
b = ReadLong(a + &H1A0)
c = ReadLong(b + (&H174 + (4 * slot)))
InventoryItemBase = c
End Function

Function InventoryItemBase(slot As Integer) As Long
Dim a As Long, b As Long, c As Long
a = ReadLong(KO_PTR_DLG)
b = ReadLong(a + &H1A0)
c = ReadLong(b + (&H174 + (4 * slot)))
InventoryItemBase = c
End Function

Public Function InventoryItemID(slot As Integer) As Long
InventoryItemID = ReadLong(ReadLong(InventoryItemBase(slot) + &H38))
End Function

Public Function InvItemCount(slot As Long) As Long
'InvItemCount = ReadLong(ReadLong(ReadLong(ReadLong(ReadLong(KO_PTR_DLG) + &H1A0) + (&H1B0 + (4 * Slot))) + &H40))
InvItemCount = ReadLong(ReadLong(ReadLong(ReadLong(KO_PTR_DLG) + &H1A0) + (&H1B0 + (4 * slot))) + &H40)
End Function

Public Function InvItemStage(slot As Long) As Long
InvItemStage = ReadLong(ReadLong(ReadLong(ReadLong(ReadLong(KO_PTR_DLG) + &H1A0) + (&H1B0 + (4 * slot))) + &H3C))
End Function

Public Sub GetInventory()
      Dim tmpBase As Long, tmpLng1 As Long, tmpLng2 As Long, tmpLng3 As Long, tmpLng4 As Long
      Dim lngItemID As Long, lngItemID_Ext As Long, lngItemNameLen As Long, AdrItemName As Long
      Dim ItemNameB() As Byte
      Dim ItemName As String
      Dim i As Integer
      Dim InvItemCount(54) As Long
      Dim InvItemID(54) As Long
      Dim InvItemName(54) As Long
      tmpBase = ReadLong(KO_PTR_DLG)  'read KO_DLGBMA adress
      tmpLng1 = ReadLong(tmpBase + &H1A0) 'first pointer

For i = 26 To 53 'read 0 to 41 inventory slots (0=earring, 1=helmet, 2=earring, 3=necklace, 4=pauldron ....14=first inventory slot)
          tmpLng2 = ReadLong(tmpLng1 + (&H144 + (4 * i)))  'inventory slot
          tmpLng3 = ReadLong(tmpLng2 + &H38) 'item id adress
          tmpLng4 = ReadLong(tmpLng2 + &H3C) 'item id_ext adress
          InvItemCount(i) = ReadLong(tmpLng2 + &H40)
          
          lngItemID = ReadLong(tmpLng3) 'item id value
          lngItemID_Ext = ReadLong(tmpLng4) 'item id_ext value
          lngItemID = lngItemID + lngItemID_Ext 'real item id
          lngItemNameLen = ReadLong(tmpLng3 + &H10) 'n° characters in item name
          AdrItemName = ReadLong(tmpLng3 + &HC) 'item name adress
          
          ItemName = "" 'reset ItemName variable
          If lngItemNameLen > 0 Then
              ReadByteArray AdrItemName, ItemNameB, lngItemNameLen 'get item name (byte array)
              ItemName = StrConv(ItemNameB, vbUnicode) 'convert it to string
          End If
          InvItemID(i) = lngItemID
          InvItemName(i) = ItemName
'If Form2.List1.ListCount = "28" Then
'Exit Sub
'Else
'Form1.List1.AddItem InvItemName(i)
'End If
Next
End Sub

Public Function InvItemID(slot As Long) As Long
InvItemID = ReadLong(ReadLong(ReadLong(ReadLong(ReadLong(KO_PTR_DLG) + &H1A0) + (&H178 + (4 * slot))) + &H38)) + ReadLong(ReadLong(ReadLong(ReadLong(ReadLong(KO_PTR_DLG) + &H1A0) + (&H178 + (4 * slot))) + &H3C))
End Function

     


    bende birinin eskiden arşivinden yolladığı sourcelerdeki bunlar var sadece 1298 uyumludur inşallah çünkü 1298 koxp kodları içinden çıkma bunlar 😄

     

    • Teşekkür 1

  19. tarihinde gönderildi

    Alıntı

    @ Nero
    ben bir şey sormak istiyorum. benzer bir konuyla alakalı olarak. Bu işlere meraktan giren birisi olarak internetten indirdiğim bazı database ve exe dosyalarının indirmesi tamalandığı anda kasper direk siliyo bunları. Bu tür dosyaların hepsi trojen yada keylogger içeriyor sanırım.
    Fakat bazı PVP serverlarda kayıt sistemi direk ID Password girdiğimiz ekranda oluyor. girdiğimiz veriyi server direk kabul ediyor. Ancak ilgili PVP nin exe sinde de Kasper virüs alarımı veriyor. İnternetten indirdiğimiz herhangi bir dosyaya güvenme şansımız nedir? yada PVP oynamak istiyorsak virüssüz exe nerden bulabilirz?

     


    Merhaba, anti virüs programları çoğu zaman ufak tefek şeyler için de bu tarz programları silebilmekte

    algıladığı bazı değerler var bunları içeren programları otomatik olarak kendi veritabanı sayesinde algılıyor.

    Eskiden kısa bir dönem avira kullanmıştım halen daha geçerli bir anti virüs programı mı bilmiyorum. Sonrasında bunu da sildim ve örneğin bilgisayara format attıktan sonra kurulan güvenilir programlar haricinde herhangi bir yerden indirdiğim en ufak exeyi genelde virustotal.com da taratıyorum sonrasında gerekli karara veriyorum zaten orada yazılanlar ufak tefek de olsa virüs bilgisi olanlar için yeterli açıklamaya sahip.

    Uzun seneler bu piyasa içerisinde bulundum fakat tek oynadığım pvp 2006 2007 senelerinde turk ko dur, oda keyfi içindi fakat hiç virüs araştırmasına yönelmemiştim

    Oyunu geliştirme ve çalışma yapısını çözme işlerine yöneldikten sonra açılmış olan private serverların launcherine keylogger/botnet entegre ettiklerini fark ettim, anti hile sistemlerine suç atılamaması içindir belkide çünkü bunları satışa süren sadece 1-2 kişi vardı o dönemde.

    Anti hile yazılımlarının da ne içerdiğini ve kırılmaması için güzelce packlendiğinden dolayı virüs programlarının doğruyu algılayamamasından ötürü hiç bir zaman bunları araştırmadım çünkü ister istemez bazı unpackerlar bu exeleri arka planda çalıştırıyor ollydbg da olduğu gibi ve yine bulaşacak bir şey var ise bilgisayara bulaştığı ile kalıyorsun.

    PVP oynamak istiyorsan server sahibi ve anti hilesini hazırlayan insanlar piyasada güvenilir ve iyi nam salmış birisi olmalı bence. Çünkü kendin exe hazırlamak istersen anti hile sistemlerinde iki taraflı kontroller mevcut bunları benzetmek ve uyarlamak bilgisi fazla olmayan birisi için zor olabilir.

    Bence en güzeli ve güveniliri, bu piyasaya düşen server dosyası kaynak kodları geliştirilmiş ve anti hile sistemi olmayan orijinal knightonline.exe ile girebileceğiniz bir serverda oynamanız.

    Anti hile yok nasıl olacak bu derseniz, örneğin @ PENTAGRAM bu dosyaları geliştirmiş ve server taraflı gerekli korumaları almış durumda. Şu an bir server açılsa anti hileye ihtiyacı yok.

    Detaya girecek olursak örneğin hile programları veya tbl ile yapılanlar nelerdir wall hack, skill hack, quest hack, duration hack vs. başka bir katkısı yok. Server tarafında bunlar için gerekli önlem alındıktan sonra anti hile sistemine gerek yok.

     

    • Teşekkür 1

  20. Oluşturuldu:

    Merhabalar,

    geçen zamanlarda şikayet bölümünde bir konu açılmış fakat içerisinde sistem tarafından reklam algılandığı için otomatikman konu içeriği silinmişti.

    Konuyu açan ArızaDatabase denilen şahıs, Dolandırıcı emrah hakkında açtığımız konuda kendi sitesinin domain adresinin paylaşıldığını araştırılmadan böyle paylaşım ve yayınlar yapılmamasını istemiş.

    Fakat biraz üstünde durunca, sitenin emraha değil dediği gibi kendisine ait olduğunu eskiden knight online ile alakalı bir forum domaini olduğu halde bir başka bir hile sitesine yönlendiğini bu sitede oyun hilesi başlığı adı altında virüslü / keyloggerli exe paylaşımları bulunduğunu fark ettim.

    Biraz daha kurcaladığımda aynı paylaşımları ArızaDatabase kendi forumum olarak gösterdiği sitede de gördüm.

    Bu şahıs ile hiç bir kişisel problemim sorunum yoktur kendisini tanımam fakat kendini böyle öne atmış biri;
    hem suçlu hem güçlü olarak o domain adresinin o konudan kaldırılmasını istedi herhalde düşünemedi bunları ortaya çıkaracağımızı ilginçtir ki.

    Çok şükür ki böyle hile hurdaları destekleyen böyle saçma sapan şeylere insanları alet eden biri değiliz.

    Her ne kadar şikayet bölümünde kendi açmış bir konu olsa da bildiri konusu açma gereği duydum.

    Tabi bu açmış olduğumuz konu ve kendi açmış olduğu konu üzerine o forum sitesinin, hile sitesine yönlenmesini iptal edip kendi sitesine yönlendirmiş.

    Bu konuya eklemiş olduğum resimleri göremeyenler proxy ile veya dns değiştirip girsin lütfen.

    Kendi açmış olduğu konu
    https://www.kodevelopers.com/gorulmus-sikayet-konulari/1509-kcuceorgkdestekcom.html

    Virüstotal sonucu
    https://www.virustotal.com/#/file/95fdc4563751b74260f9c75c1ed1e66c3449c1d368fb6f2c09a2ac7e162f8a9d/detection

    qv7Bkq.png

    JeByO9sXSTGPLFRkLLNtyQ.png

    ZtWN6kGTRRm_oVYDIlXX0Q.png

    16oiIy22THmYI6gmvI9oRA.png

  23. tarihinde gönderildi

    Alıntı
    Stritem sütunu binary(1554) hocam. Güncel olanı indirdim yine aynı görünüyor İnventory.


    sql kaç, bu arada binary 800 veya varchar 800 yeterli o fazla baya

    alakası yok sonuçta sırayla okuyor ama belki programda bir sıkıntı yaratıyor olabilir denemekten zarar gormezsin

    sql versiyonu ile alakalı olabilir, bir diğer aklıma gelen şey sendeki dosyalarda alışılageldik yani orijinal dosyalarda olmayan item id, duration ve adetten fazla bir şey eklenmiş olabilir aralarına

  24. tarihinde gönderildi

    Alıntı
    hocam inventory de böyle görünüyor server 1975 altyapısında
    Oy5VqQ.png


    Alıntı
    Banka, Başlangıç, Inventory itemlerini düzeltebilmeniz için veritabanında sütunlar varchar veya binary olarak seçilmiş olmak zorundadır. Her ikisinde de kayıt yapmaktadır.


    strItem sütunu ile uyuşuyor mu bu yazdığım not eğer öyle ise nasıl tanımlandığını söylerseniz bir inceleyeyim fakat resimden anladıgım kadarı ile ilk paylaştığım halini indirmişsiniz tekrar indirip de bir deneyin derim cünkü sonrasında güncellemiştim
×
×
  • Yeni Oluştur...