360haven works best with JavaScript enabled
Legends of Troy
Loading
Register
Results 1 to 2 of 2

Thread: Legends of Troy

  1. #1
    Traine Dev
    fairchild

    MBRKiNG is offline
    Join Date : Dec 2010
    Location : Germany
    Age : 41
    Posts : 396
    Array
    Twitter: @

    Legends of Troy

    hi guys here is my save i got 2932 Kleo in hex 00000B74.

    this game can be modded but i dont know how to pass the checksum.

    hope anyone can do this

    thx
    Attached Files Attached Files

  2. #2
    Administrator

    feudalnate is offline
    Join Date : Nov 2010
    Location : Canada
    Age : 34
    Posts : 347
    Array
    Check is a CRC32 ran over 0 - (EOF - 4), written @ EOF - 4 (last four bytes) . Check is the same on all files (Profile, Settings, Scenario). Too bad this game isn't going to be released in NA, it looked semi-interesting..


    Code:
        Sub FixTroyCRC(ByVal File As String)
            Dim IO As New System.IO.FileStream(File, System.IO.FileMode.Open, System.IO.FileAccess.ReadWrite)
            Dim Buffer((IO.Length - 4) - 1) As Byte
            IO.Read(Buffer, 0, (IO.Length - 4))
            IO.Write(SmallCRC32.Compute(Buffer), (IO.Length - 4), 4)
            IO.Flush() : IO.Close()
        End Sub
    
    
        Function ValidateTroyCRC(ByVal File As String) As Boolean
            Dim IO As New System.IO.FileStream(File, System.IO.FileMode.Open, System.IO.FileAccess.Read)
            Dim Buffer((IO.Length - 4) - 1) As Byte
            IO.Read(Buffer, 0, (IO.Length - 4))
            Dim Calc() As Byte = SmallCRC32.Compute(Buffer)
            Dim Crnt(4 - 1) As Byte
            IO.Read(Crnt, 0, 4)
            IO.Close()
            Return CBool(BitConverter.ToString(Calc, 0) = BitConverter.ToString(Crnt, 0))
        End Function

    Code:
    Public Class SmallCRC32
        Private Shared Table As UInt32()
    
        Shared Function Compute(ByVal Buffer As Byte()) As Byte()
            Call GenerateTable()
            Dim Result As UInt32 = &HFFFFFFFFUI
            For i As UInt32 = 0 To Buffer.Length - 1
                Dim Index As Byte = CByte(((Result) And &HFF) Xor Buffer(i))
                Result = CUInt((Result >> 8) Xor Table(Index))
            Next
            Return ToBytes(Not Result)
        End Function
    
        Private Shared Sub GenerateTable()
            Dim Polynomial As UInt32 = &HEDB88320UI
            Dim VAR As UInt32 = 0
            Table = New UInt32(255) {}
            For i As Int32 = 0 To Table.Length - 1
                VAR = i
                For u As Int32 = 8 To 1 Step -1
                    If (VAR And 1) = 1 Then VAR = CUInt((VAR >> 1) Xor Polynomial) : GoTo 0
                    VAR >>= 1
    0:          Next
                Table(i) = VAR
            Next
        End Sub
    
        Private Shared Function ToBytes(ByVal Result As UInt32) As Byte()
            Dim Buffer() As Byte = BitConverter.GetBytes(Result)
            Array.Reverse(Buffer)
            Return Buffer
        End Function
    End Class
    Downloads : 63 || Uploads : 11 || Rep Power : 5876 || Posts : 347 || Thanks : 62 || Thanked 941 Times in 190 Posts


    "If you can get 30 seconds of fun, you can pretty much stretch that out to be an entire game. So you can have all the great graphics, all the different characters,
    and lots of different weapons with amazing effects but if you don't nail that 30 seconds, you're not going to have a great game." ~Jamie Griesemer (Halo 2 Design Lead)


  3. The Following 2 Users Say Thank You to feudalnate For This Useful Post:


 

 

Similar Threads

  1. How to edit Warriors: Legends of Troy 'Cleos' amount
    By feudalnate in forum Xbox 360 Tutorials
    Replies: 9
    Last Post: 11-03-2016, 05:48 PM
  2. Legends Of Troy Save Editor
    By TechnoWolf in forum Xbox 360 Modding Programs
    Replies: 15
    Last Post: 05-27-2016, 03:28 AM
  3. Replies: 16
    Last Post: 10-07-2015, 02:09 AM
  4. Replies: 5
    Last Post: 09-11-2012, 08:34 PM
  5. Warriors: Legends of Troy - Signer
    By feudalnate in forum Xbox 360 Modding Programs
    Replies: 11
    Last Post: 03-20-2011, 01:10 PM

Visitors found this page by searching for:

Nobody landed on this page from a search engine, yet!

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

About 360haven

    360haven is an Forum Devoted To Game modding Fans from all over the world.

    An Awesome Community of Xbox 360 Gamers, Modders and Developers who Create & Share Tutorials, Applications, Gfx, Trainers and Gamesaves.

    A haven for the l33t.
    A scarce paradise for modders.

★★★★★¯\_(ツ)_/¯