'ProgramMode:RUN
'Original by HP50G
'(c)2017 akatuki
ViewWindow 1,127,0,63,1,0
Text 2,5,"[WannaCry ?]"
Rect 3,12,127,63
F-Line 7,12,92,12
Text 10,8,"OOPS, YOUR FILES HAVE"
Text 18,8,"BEEN ENCRYPTED"

7Rect 40,28,110,50
Text 30,45,"WHAT HAPPCNED ?"
Text 37,45,"CAN I RECOVER ?"
Text 44,45,"HOW DO I PAY  ?"
Text 56,40,"[CHECK]  [DECRYPT]"

FillRect 12,38,22,50
_FillCircle 17,33,3,1FillRect 14,33,20,37
_FillCircle 17,33,1,0FillRect 16,33,18,37,C
Getkey2

For 1->K To 10000
RanInt#(1,127)->I
For 62->J To 1 Step (-)1
_Pixel I,J+1,_PixelTest(I,J)
Next
PutDispDD
Next