[jondecker76Participant]

The mystery continues.

The problem is definitely on the reflection end.  In fact, I can’t get reflection to work at all.  In my current project, I have literally hundreds of imported classes, as well as a few in the local file.  However, the following outputs absolutely nothing:

Monkey

Local this:=TypeInfo.GetTypes() For Local t:= Eachin this Print "->" + t.Kind + " " + t.Name Next

1 2 3 4

Local this:=TypeInfo.GetTypes() For Local t:= Eachin this Print "->"  + t.Kind + " " + t.Name Next

From the documentation, the TypeInfo.GetTypes() should return an array of user-defined types, but this is returning nothing at all.  Is there a reflection filter or something I need to setup first?

[jondecker76Participant]

Thanks!  Quite helpful!

[jondecker76Participant]

Ouch, this keeps getting stranger.

It’s easy to see the first obvious problem with this test..  MX2 text can’t represent characters $80-$FF?  Strange!  The strangest thing is that $FF isn’t even possible, and equates to $00?  Run the test below and look at the last entry.  Yes, I see that the first byte is $FF for >$80…  But that stops at $FFFE.  Where is $FFFF?   Is this expected behavior or a bug?

 

Monkey

#Import "<std>" Using std.. Function Main() Local db:DataBuffer=New DataBuffer(255) For Local i:=0 To 255 db.PokeUByte(i,i) Next Local test:=db.PeekString(0) For Local i:= 0 To 255 Print test[i] + " : " + Hex(test[i]) Next End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#Import "<std>"   Using std..     Function Main() Local db:DataBuffer=New DataBuffer(255) For Local i:=0 To 255 db.PokeUByte(i,i) Next Local test:=db.PeekString(0) For Local i:= 0 To 255 Print test[i] + " : " + Hex(test[i]) Next End

[jondecker76Participant]

Thank you very much, this is very helpful.

I’ll definitely still work on figuring out what is causing it to fail  in pure Mx2, but at least it won’t hold me up on my project!

[jondecker76Participant]

Thanks for the answer.  I guess I can do it in C/C++, but I was hoping to learn to do it in native Mx2 as a learning exercise.

I do a lot of work with various REST APIs and having a working HMAC-SHA256 implementation is super important to me.  Could you take a peek at the very simple code in my other post? http://monkeycoder.co.nz/forums/topic/help-porting-hmac-sha256-code/#post-15900

 

Thanks!

[jondecker76Participant]

Here is a full project to show the issue.  Everything looks right, but I can’t figure out why it’s not returning expected results

Monkey

#Import"<std>" #Import"<libc>" Using std.. Using libc.. ' Simple HMAC-SHA256 function ' See: ' https://en.wikipedia.org/wiki/HMAC ' https://tools.ietf.org/html/rfc2104 ' https://www.freeformatter.com/hmac-generator.html Function HMAC256:String(key:String,message:String) Local B:=64 ' Blocksize (bytes) Local K:=New DataBuffer(B) ' Key Local ipad:=New DataBuffer(B) ' Inner pad Local opad:=New DataBuffer(B) ' Outer pad ' Lets handle our key first! ' Truncate the key if over blocksize, If key.Length>B Then key=SHA256(key) Zero(K.Data,B) K.PokeString(0,key) Display(K.Data,B,"KEY BYTES") ' Lets fill ipad and opad For Local i:=0 To B-1 ipad.PokeUByte(i,$36~K.PeekUByte(i)) opad.PokeUByte(i,$5c~K.PeekUByte(i)) Next Display(ipad.Data,B,"IPAD BYTES AFTER XOR") Display(opad.Data,B,"OPAD BYTES AFTER XOR") Return SHA256(opad.PeekString(0) + SHA256(ipad.PeekString(0)+message)) End Function Zero(db:UByte Ptr,len:Int) For Local i:=0 To len-1 db[i]=$0 Next End Function LPad:String(str:String,len:Int,char:String) While str.Length < len str=char+str End Return str End Function Display(arr:UByte Ptr,len:Int,title:String="") Local lineHex:String Local lineAscii:String Local retVal:String Local j:=0 If title<>"" Print title Print "===========================================================" End For Local i:=0 To len-1 lineHex+=LPad(Hex(arr[i]),2,"0") + " " lineAscii+=String.FromChar(arr[i]) + " " If (i Mod 8)+1=8 lineHex += "| " Endif If (i Mod 16)+1=16 Print LPad(Hex(j),4,"0") + ": "+ lineHex + lineAscii 'retVal+=lineHex + "|| "+lineAscii+"~n" lineAscii="" lineHex="" j+=16 Endif Next If lineHex<>"" Then Print LPad(Hex(j),4,"0") + ": "+lineHex + lineAscii Print "~n" End Function Function Main() Local key:="jondecker76" Local data:= "hello" Local expectedResult:="ab9ce9ef1575259bdb2beb438d8501479b5a63298bc33e4f4fdee87760fd3b75" Local result:=HMAC256(key,data) If result=expectedResult Print "The expected result was returned!" Else Print "~nThe result " + result + " is incorrect!" Endif End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92

#Import"<std>" #Import"<libc>"   Using std.. Using libc..   ' Simple HMAC-SHA256 function ' See: ' https://en.wikipedia.org/wiki/HMAC ' https://tools.ietf.org/html/rfc2104 ' https://www.freeformatter.com/hmac-generator.html   Function HMAC256:String(key:String,message:String) Local B:=64 ' Blocksize (bytes) Local K:=New DataBuffer(B) ' Key Local ipad:=New DataBuffer(B) ' Inner pad Local opad:=New DataBuffer(B) ' Outer pad   ' Lets handle our key first! ' Truncate the key if over blocksize, If key.Length>B Then key=SHA256(key) Zero(K.Data,B) K.PokeString(0,key) Display(K.Data,B,"KEY BYTES") ' Lets fill ipad and opad For Local i:=0 To B-1 ipad.PokeUByte(i,$36~K.PeekUByte(i)) opad.PokeUByte(i,$5c~K.PeekUByte(i)) Next Display(ipad.Data,B,"IPAD BYTES AFTER XOR") Display(opad.Data,B,"OPAD BYTES AFTER XOR") Return SHA256(opad.PeekString(0) + SHA256(ipad.PeekString(0)+message)) End   Function Zero(db:UByte Ptr,len:Int) For Local i:=0 To len-1 db[i]=$0 Next End   Function LPad:String(str:String,len:Int,char:String) While str.Length < len str=char+str End Return str End   Function Display(arr:UByte Ptr,len:Int,title:String="") Local lineHex:String Local lineAscii:String Local retVal:String Local j:=0 If title<>"" Print title Print "===========================================================" End For Local i:=0 To len-1 lineHex+=LPad(Hex(arr[i]),2,"0") + " " lineAscii+=String.FromChar(arr[i]) + " " If (i Mod 8)+1=8 lineHex += "| " Endif If (i Mod 16)+1=16 Print LPad(Hex(j),4,"0") + ": "+ lineHex + lineAscii 'retVal+=lineHex + "|| "+lineAscii+"~n" lineAscii="" lineHex="" j+=16 Endif Next If lineHex<>"" Then Print LPad(Hex(j),4,"0") + ": "+lineHex + lineAscii Print "~n" End Function     Function Main() Local key:="jondecker76" Local data:= "hello" Local expectedResult:="ab9ce9ef1575259bdb2beb438d8501479b5a63298bc33e4f4fdee87760fd3b75" Local result:=HMAC256(key,data) If result=expectedResult Print "The expected result was returned!" Else Print "~nThe result " + result + " is incorrect!" Endif End

[jondecker76Participant]

Still working on this.  I’m much happier with the state of the code, but it still isn’t returning expected results :/

 

Monkey

Function HMAC256:String(key:String,message:String) Local B:=64 ' Blocksize (bytes) Local K:=New DataBuffer(B) ' Key Local ipad:=New DataBuffer(B) ' Inner pad string Local opad:=New DataBuffer(B) ' Outer pad string ' Lets handle our key first! ' Truncate the key if over bloccksize If key.Length>B Then key=SHA256(key) K.PokeString(0,key) ' Lets fill ipad and opad For Local i:=0 To B-1 ipad.PokeUByte(i,$36~K.PeekUByte(i)) opad.PokeUByte(i,$5c~K.PeekUByte(i)) Next Return SHA256(opad.PeekString(0) + SHA256(ipad.PeekString(0)+ message)) End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Function HMAC256:String(key:String,message:String) Local B:=64 ' Blocksize (bytes) Local K:=New DataBuffer(B) ' Key Local ipad:=New DataBuffer(B) ' Inner pad string Local opad:=New DataBuffer(B) ' Outer pad string   ' Lets handle our key first! ' Truncate the key if over bloccksize If key.Length>B Then key=SHA256(key) K.PokeString(0,key)   ' Lets fill ipad and opad For Local i:=0 To B-1 ipad.PokeUByte(i,$36~K.PeekUByte(i)) opad.PokeUByte(i,$5c~K.PeekUByte(i)) Next   Return SHA256(opad.PeekString(0) + SHA256(ipad.PeekString(0)+ message)) End

[jondecker76Participant]

I finally figured out how the httprequest should be used.  However, there is a bug where wget is returning exit status 8 where it shouldn’t.  Reported bug: https://github.com/blitz-research/monkey2/issues/451

[jondecker76Participant]

I gave it a try Mark, no go. I tried setting it in the local shell and even through /etc/environment. I tried setting to both 0 and 1 with the same results. I’ll keep poking around and let you know if I find anything fruitful

[jondecker76Participant]

I’m on Nvidia with proprietary drivers, I could try the opensource one to see if there is a difference.

With a timer, everything does work properly, it’s the just vsync that doesn’t work.

[jondecker76Participant]

Thank you again. I think I’m finally getting a handle on things

Here is the current state of things. I’ll start on joystick stuff soon then look for ways to clean things up a bit

Monkey

Namespace CheatSequence #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. ' ------------------------------------------------------------------------------------------------------------------ ' SIMPLE CHEAT CLASS ' ------------------------------------------------------------------------------------------------------------------ ' We will define some constants Enum StrokeType Key = 1 Joy = 2 End Class CheatSequence Public Field numStrokes:Int ' Number of strokes in this sequence Field strokeCounter:Int ' Current stroke in the sequence Field strokes:Map<Int,SequenceStroke> ' Map of strokes in the sequence Field timeOut:Int ' millisecs timeout Field lastStrokeTimestamp:Int ' timestamp of last stroke input Field OnSuccess:Void() ' Signal when sequence is successful (first class function) ' Create a new cheat sequence ' Default to a 1 second timeout Method New(thisTimeOut:Int=1000) numStrokes=0 strokeCounter=0 timeOut=thisTimeOut strokes=New Map<Int,SequenceStroke> Enabled=True ' enable by default End ' Create and populate sequence all at once Method New(thisTimeout:Int,strokeType:Int,strokeValues:Int[]) Self.New(thisTimeout) AddStrokes(strokeType,strokeValues) End Method ' Add a stroke to the sequence Method AddStroke(strokeType:Int,strokeValue:Int) strokes.Add(numStrokes,New SequenceStroke(strokeType,strokeValue)) numStrokes+= 1 End Method ' Add several strokes of the same stroke type to the sequence Method AddStrokes( strokeType:Int,strokeValues:Int[] ) For Local strokeValue:=Eachin strokeValues AddStroke(strokeType,strokeValue) Next End ' Enable/Disable the cheatSequence Property Enabled:Bool() Return _enabled Setter( value:Bool ) If value=_enabled Return _enabled=value If _enabled App.KeyEventFilter+=ProcessKeys ' subscribe to filter Else App.KeyEventFilter-=ProcessKeys ' unsubscribe from filter Endif End Private Field _enabled:Bool ' Process key strokes as they are fired by the App.KeyEventFilter Method ProcessKeys( event:KeyEvent ) ' A key hit was signaled. Lets update the sequence UpdateSequence( event ) ' and check does a user finish the sequence If Success() OnSuccess() ' and emit event if success Endif End ' The sequence gets updated each keypress Method UpdateSequence(thisEvent:KeyEvent) If Millisecs()-lastStrokeTimestamp > timeOut And strokeCounter>0 'We timed out, lets restart Self.strokeCounter=0 lastStrokeTimestamp=Millisecs() Else ' We didn't timeout, so lets update the sequence If thisEvent.Type = EventType.KeyDown If strokes.Get(strokeCounter).strokeType=StrokeType.Key And strokes.Get(strokeCounter).strokeValue=thisEvent.Key Self.strokeCounter+=1 Self.lastStrokeTimestamp=Millisecs() Else Self.strokeCounter=0 Endif Endif Endif End Method ' Check to see if the cheat is successful Method Success:Bool() If (Self.strokeCounter=Self.numStrokes) Self.strokeCounter=0 Return True Endif Return False End End ' Store a cheat stroke. This includes the kind of stroke (keyboard, joystick, etc..) ' the value of the stroke (whick key or button) Class SequenceStroke Field strokeType:Int Field strokeValue:Int Method New(thisStrokeType:Int,thisStrokeValue:Int) strokeType=thisStrokeType strokeValue=thisStrokeValue End End ' ------------------------------------------------------------------------------------------------------------------ ' END SIMPLE CHEAT CLASS ' ------------------------------------------------------------------------------------------------------------------ Class MyWindow Extends Window Field contraCheat:CheatSequence Field lives:Int Method New() Super.New( "Cheat Test!",640,480,WindowFlags.Fullscreen ) lives=3 ' Create our UUDDLRLRBA<Enter> cheat sequence contraCheat = New CheatSequence(1000, StrokeType.Key, New Int[](Key.Up,Key.Up,Key.Down,Key.Down,Key.Left,Key.Right,Key.Left,Key.Right,Key.B,Key.A,Key.Enter)) ' Increase lives by 30 if the cheat sequence is successfully entered contraCheat.OnSuccess=Lambda() lives+=30 End End Method OnRender( canvas:Canvas ) Override ' Debug display of cheat sequence Local delta:=Millisecs() - contraCheat.lastStrokeTimestamp canvas.Color=Color.Gold canvas.DrawText("Lives: " + lives,App.ActiveWindow.Width/2 ,App.ActiveWindow.Height/2) canvas.Color=Color.White canvas.DrawText("Try the cheat! UUDDLRLRBA<Enter>",4,App.ActiveWindow.Height-95) canvas.DrawText("Timer: " + delta,4,App.ActiveWindow.Height-55) canvas.DrawText("numStokes: " + contraCheat.numStrokes,4,App.ActiveWindow.Height-40) canvas.DrawText("strokeCounter : " + contraCheat.strokeCounter,4,App.ActiveWindow.Height-25) App.RequestRender() End Method OnKeyEvent( event:KeyEvent ) Override select event.Type Case EventType.KeyDown ' Exit the app If ( event.Key=Key.Escape ) Then App.Terminate() End End End Function Main() New AppInstance New MyWindow App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179

Namespace CheatSequence   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..     ' ------------------------------------------------------------------------------------------------------------------ ' SIMPLE CHEAT CLASS ' ------------------------------------------------------------------------------------------------------------------ ' We will define some constants Enum StrokeType Key = 1 Joy = 2 End   Class CheatSequence Public Field numStrokes:Int ' Number of strokes in this sequence Field strokeCounter:Int ' Current stroke in the sequence Field strokes:Map<Int,SequenceStroke> ' Map of strokes in the sequence Field timeOut:Int ' millisecs timeout Field lastStrokeTimestamp:Int ' timestamp of last stroke input Field OnSuccess:Void() ' Signal when sequence is successful (first class function) ' Create a new cheat sequence ' Default to a 1 second timeout Method New(thisTimeOut:Int=1000) numStrokes=0 strokeCounter=0 timeOut=thisTimeOut strokes=New Map<Int,SequenceStroke> Enabled=True ' enable by default End ' Create and populate sequence all at once Method New(thisTimeout:Int,strokeType:Int,strokeValues:Int[]) Self.New(thisTimeout) AddStrokes(strokeType,strokeValues) End Method ' Add a stroke to the sequence Method AddStroke(strokeType:Int,strokeValue:Int) strokes.Add(numStrokes,New SequenceStroke(strokeType,strokeValue)) numStrokes+= 1 End Method ' Add several strokes of the same stroke type to the sequence Method AddStrokes( strokeType:Int,strokeValues:Int[] ) For Local strokeValue:=Eachin strokeValues AddStroke(strokeType,strokeValue) Next End ' Enable/Disable the cheatSequence Property Enabled:Bool() Return _enabled Setter( value:Bool ) If value=_enabled Return _enabled=value If _enabled App.KeyEventFilter+=ProcessKeys ' subscribe to filter Else App.KeyEventFilter-=ProcessKeys ' unsubscribe from filter Endif End Private Field _enabled:Bool ' Process key strokes as they are fired by the App.KeyEventFilter Method ProcessKeys( event:KeyEvent ) ' A key hit was signaled.  Lets update the sequence UpdateSequence( event ) ' and check does a user finish the sequence If Success() OnSuccess() ' and emit event if success Endif End ' The sequence gets updated each keypress Method UpdateSequence(thisEvent:KeyEvent) If Millisecs()-lastStrokeTimestamp > timeOut And strokeCounter>0 'We timed out, lets restart Self.strokeCounter=0 lastStrokeTimestamp=Millisecs() Else ' We didn't timeout, so lets update the sequence If thisEvent.Type = EventType.KeyDown If strokes.Get(strokeCounter).strokeType=StrokeType.Key And strokes.Get(strokeCounter).strokeValue=thisEvent.Key Self.strokeCounter+=1 Self.lastStrokeTimestamp=Millisecs() Else Self.strokeCounter=0 Endif Endif Endif End Method ' Check to see if the cheat is successful Method Success:Bool() If (Self.strokeCounter=Self.numStrokes) Self.strokeCounter=0 Return True Endif Return False End End   ' Store a cheat stroke.  This includes the kind of stroke (keyboard, joystick, etc..) ' the value of the stroke (whick key or button) Class SequenceStroke Field strokeType:Int Field strokeValue:Int Method New(thisStrokeType:Int,thisStrokeValue:Int) strokeType=thisStrokeType strokeValue=thisStrokeValue End End ' ------------------------------------------------------------------------------------------------------------------ ' END SIMPLE CHEAT CLASS ' ------------------------------------------------------------------------------------------------------------------       Class MyWindow Extends Window Field contraCheat:CheatSequence Field lives:Int Method New() Super.New( "Cheat Test!",640,480,WindowFlags.Fullscreen ) lives=3 ' Create our UUDDLRLRBA<Enter> cheat sequence contraCheat = New CheatSequence(1000,   StrokeType.Key,   New Int[](Key.Up,Key.Up,Key.Down,Key.Down,Key.Left,Key.Right,Key.Left,Key.Right,Key.B,Key.A,Key.Enter)) ' Increase lives by 30 if the cheat sequence is successfully entered contraCheat.OnSuccess=Lambda() lives+=30 End End Method OnRender( canvas:Canvas ) Override ' Debug display of cheat sequence Local delta:=Millisecs() - contraCheat.lastStrokeTimestamp canvas.Color=Color.Gold canvas.DrawText("Lives: " + lives,App.ActiveWindow.Width/2 ,App.ActiveWindow.Height/2) canvas.Color=Color.White canvas.DrawText("Try the cheat! UUDDLRLRBA<Enter>",4,App.ActiveWindow.Height-95) canvas.DrawText("Timer: " + delta,4,App.ActiveWindow.Height-55) canvas.DrawText("numStokes:      " + contraCheat.numStrokes,4,App.ActiveWindow.Height-40) canvas.DrawText("strokeCounter : " + contraCheat.strokeCounter,4,App.ActiveWindow.Height-25) App.RequestRender() End Method OnKeyEvent( event:KeyEvent ) Override select event.Type Case EventType.KeyDown ' Exit the app If ( event.Key=Key.Escape ) Then App.Terminate() End End End   Function Main() New AppInstance New MyWindow App.Run() End

[jondecker76Participant]

I’ve been improving on this today and playing with it more. There’s only one problem so far with using the key event filter.

The App.KeyEventFilter isn’t a one-shot, so each press of the key registers 2-3 hits even on quick strokes. Since Update is only called when the KeyEventFilter is fired, there isn’t an elegant way to hand my own one-shot code. For now I’m hacking my way around it with a timer to ensure at least so much time goes by between keypresses, but it’s definitely not optimal.

It would be nice if A) KeyEventFilter was only sent once at the beginning of each press or B) a certain code was sent on release of the key. But neither of these are present. So for now I will have to either keep using the delta timing method I’m using now, or have an Update that needs run from Main each iteration so that the KeyEventFilter can be one-shotted.

[jondecker76Participant]

Thank you!

 

I just learned more from this single exercise than I have in the last week reading everything I could.  Very clean and elegant, now it’s making a lot more sense!

[jondecker76Participant]

Thanks for the tips nerobot

I implemented the AddStrokes method, and you’re right – it’s much cleaner for usage

I’m lost on the App.KeyEventFilter though… There is no real documentation, and looking at the source has me scratching my head. It’s a field, but has a void return type?? And parameters? Wouldn’t that make it a method instead of a field? So confusing! I also looked at event.monkey2 and was left equally confused. There’s so much I have to learn about Monkey 2

[jondecker76Participant]

I just tried to access via Ted2go but get booted from the server for not identifying via SASL? It’s been a long time since I’ve even used IRC, and searching for a simple answer is bringing up answers that will take days to read and understand. Any tips on how to get connected?

[Author]

Posts