Topic: 300 BTC Coding Contest: Distributed Exchange (MasterCoin Developer Thread) - page 24. (Read 129207 times)

'/// non-multisig
                            'straight to p&d
                            'loop through outputs looking for data address
                            Dim dataaddressfound As Boolean = False
                            Dim dataaddress As String = ""
                            For i = 1 To outputs.Rows.Count
                                Dim rowbarray = ToByteArray(Trim(outputs.Rows(i - 1).Item("address")))
                                'test output for simple send bytes
                                If rowbarray(2) = 0 And rowbarray(3) = 0 And rowbarray(4) = 0 And rowbarray(5) = 0 And rowbarray(6) = 0 And rowbarray(7) = 0 And rowbarray(8) = 0 And (rowbarray(9) = 1 Or rowbarray(9) = 2) Then
                                    'check we have not already found the data address
                                    If dataaddressfound = True Then
                                        'more than one data address - drop tx
                                        Exit Function
                                    Else
                                        dataaddressfound = True
                                        dataaddress = outputs.Rows(i - 1).Item("address")
                                    End If
                                End If
                            Next
                            'identify reference address
                            'first test for exactly one output with data seqnum+1
                            Dim dataaddressseqnum As Integer = 9999
                            For i = 1 To outputs.Rows.Count
                                If outputs.Rows(i - 1).Item("address") = dataaddress Then dataaddressseqnum = outputs.Rows(i - 1).Item("seqnum")
                            Next
                            'sanity check - ensure we have a dataaddressseqnum
                            If dataaddressseqnum = 9999 Then Exit Function
                            'calc reference seqnum
                            Dim refseqnum As Integer = dataaddressseqnum + 1
                            'handle 255 to 0 case
                            If refseqnum = 256 Then refseqnum = 0
                            'see if we can find a single output with the reference seqnum
                            Dim refaddressfound As Boolean = False
                            Dim refaddress As String
                            For i = 1 To outputs.Rows.Count
                                If outputs.Rows(i - 1).Item("seqnum") = refseqnum Then
                                    'if we've already found one then this doesn't satisy 'single output with a seqnum +1 of the data address'
                                    If refaddressfound = True Then
                                        'exit without refaddress
                                        refaddressfound = False
                                        refaddress = ""
                                        Exit For
                                    Else
                                        refaddress = outputs.Rows(i - 1).Item("address")
                                        refaddressfound = True
                                    End If
                                End If
                            Next
                            'refaddress will be populated if we have found a single output with data seqnum+1
                            'if it's not populated move to second test (output amounts)
                            If refaddressfound = False And refaddress = "" Then
                                'here we test for a single output with the value the same as the exodus address (excluding data address)
                                For i = 1 To outputs.Rows.Count
                                    If outputs.Rows(i - 1).Item("amount") = exoamount And outputs.Rows(i - 1).Item("address") <> dataaddress Then
                                        'if we've already found one then this doesn't satisfy 'exactly two outputs with the same value as the data address'
                                        If refaddressfound = True Then
                                            'exit without refaddress
                                            refaddressfound = False
                                            refaddress = ""
                                            Exit For
                                        Else
                                            refaddress = outputs.Rows(i - 1).Item("address")
                                            refaddressfound = True
                                        End If
                                    End If
                                Next
                            End If
                            'see if we now have a dataaddress and refaddress, otherwise throw out tx
                            If dataaddress = "" Or refaddress = "" Then
                                Exit Function
                            Else
                                isvalidtx = True
                            End If

                            'decode transaction
...continues

     time_difference = (exodus_time.to_i - Mastercoin::END_TIME.to_i) / 31556926.0
      self.balance += ((1-(0.5**time_difference)) * BigDecimal.new("56316.23576222")).round(8)