PureBoard

Code: Alles auswählen

Procedure.s K_Encrypt(string$)
 re$=""

 yy=2
 For x=1 To Len(string$)

   yy*3 : If yy>255 : yy/7 :EndIf

   bufff = Random(9)
   buf$ = Str(((Asc(Mid(string$,x,1))+2)*2)+x+yy+(bufff*3))

    Select Len(buf$)
     Case 1
      buf$ = "00" + buf$
     Case 2
      buf$ = "0" + buf$
    EndSelect

   buf$ + Str(bufff)

   If bufff = 3 Or bufff = 6
     buf$ + Str(Random(9))
   EndIf

   re$+buf$
 Next

 ProcedureReturn re$
EndProcedure



Procedure.s K_Decrypt(string$)
 re$=""

 xx=0
 yy=2
 For x=1 To Len(string$) Step 4
   xx+1
   yy*3 : If yy>255 : yy/7 :EndIf

   buf$ = Mid(string$,x,3)

   If Left(buf$,1) = "0" : buf$ = Mid(buf$,2) : EndIf
   If Left(buf$,1) = "0" : buf$ = Mid(buf$,2) : EndIf

   bufff = Val( Mid(string$, x+3, 1) )
  
   buf = (Val(buf$)-xx-yy-bufff*3)/2

   If bufff = 3 Or bufff = 6 : x + 1 : EndIf

   re$ + Chr(buf-2)

 Next

 ProcedureReturn re$
EndProcedure


text$ = "test 123"

encode$ = K_Encrypt(text$)
decode$ = K_Decrypt(encode$)


buf$ + "text:   " + text$ + "   (len:"+Str(Len(text$))+")" + Chr(13)
buf$ + "encode:   " + encode$ + "   (len:"+Str(Len(encode$))+")" + Chr(13)
buf$ + "decode:   " + decode$ + "   (len:"+Str(Len(decode$))+")" + Chr(13)

MessageRequester("Info", buf$)