Posted to tcl by mookie at Sat May 27 20:14:48 GMT 2023view raw

  1. proc 2Hex { input } { binary encode hex [encoding convertto utf-8 "$input"] } ;#end procedure
  2. proc 2Base { input } { encoding convertfrom utf-8 [binary decode hex "$input"] } ;#end procedure
  3.  
  4. ### Raw Dict
  5. dict set [2Hex "crystal_dest"] [2Hex "socket_dest"] [2Hex "menu"] ;# Which menu to obtain
  6. dict set [2Hex "crystal_dest"] [2Hex "file_source"] [2Hex "woof.ix"] ;# Which menu to obtain
  7. dict set [2Hex "crystal_conf"] [2Hex "socket_menu"] [2Hex "!0"] ;# Action Menu
  8. dict set [2Hex "crystal_conf"] [2Hex "socket_hexkey"] [2Hex "$base16_hexkey"] ;# Session HexKey
  9.  
  10. ### Encapsulate Dict
  11. dict set packet [2Hex "dest"] [2Hex "$6372797374616c5f64657374"]
  12. dict set packet [2Hex "conf"] [2Hex "$6372797374616c5f636f6e66"]
  13.  
  14. set txPacket [2Hex $packet]
  15. array set cookie [list 0 $txPacket]
  16.  
  17. set base16_array [2Hex [array get cookie]]
  18. puts ">> array: $base16_array"
  19.  
  20. array set base16_decoded_array [2Base $base16_array]
  21. puts [array get base16_decoded_array]
  22.  
  23. set dict [array get base16_decoded_array 0]
  24. puts [2Base $dict]
  25.  
  26. ### Output
  27. >> array: 30203336333433363335333733333337333432303333333733333333333333363336333633333336333333333333333633363332333333363333333533333337333333343333333533363336333333363333333433333336333333353333333733333333333333373333333433323330333333363336333433333336333333353333333633363335333333373333333533323330333333363333333633333336333333393333333633363333333333363333333533333335333633363333333733333333333333363336333633333337333333353333333733333332333333363333333333333336333333353332333033333337333333373333333633363336333333363336333633333336333333363333333233363335333333363333333933333337333333383230333633333336363633363635333633363230333333373333333333333336333633363333333633333333333333363336333233333336333333353333333733333334333333353336333633333336333633343333333633333335333333363336333533333337333333353332333033333332333333313333333333333330333233303333333733333333333333363336333633333336333333333333333633363332333333363333333533333337333333343333333533363336333333363333333833333336333333353333333733333338333333363336333233333336333333353333333733333339333233303333333333333333333333333333333433333333333333333333333333333330333333333333333633333333333333313333333333333336333333333333333633333333333333333333333333333333333333333333333333333333333333393333333333333336333333333333333233333333333333333333333333333335333333333333333333333333333333313333333333333336333333333333333533333333333333333333333333333337333333333333333333333333333333313333333333333333333333333333333433333333333333333333333333333339333333333333333333333333333333323333333333333336333333333333333333333333333333333333333333333339333333333333333333333333333333313333333333333336333333333333333633333333333333363333333333333335333333333333333333333333333333313333333333333333333333333333333933333333333333333333333333333331333333333333333333333333333333323333333333333333333333333333333433333333333333333333333333333331333333333333333333333333333333323333333333333333333333333333333133333333333333333333333333333335333333333333333633333333333333343333333333333333333333333333333633333333333333333333333333333331 0 36343635373337342033373333333636363336333333363632333633353337333433353636333633343336333533373333333733343230333636343336333533363635333733353230333633363336333933363633333633353335363633373333333636363337333533373332333633333336333532303337333733363636333636363336333633323635333633393337333820363336663665363620333733333336363633363333333636323336333533373334333536363336363433363335333636353337333532303332333133333330323033373333333636363336333333363632333633353337333433353636333633383336333533373338333636323336333533373339323033333333333333343333333333333330333333363333333133333336333333363333333333333333333333333333333933333336333333323333333333333335333333333333333133333336333333353333333333333337333333333333333133333333333333343333333333333339333333333333333233333336333333333333333333333339333333333333333133333336333333363333333633333335333333333333333133333333333333393333333333333331333333333333333233333333333333343333333333333331333333333333333233333333333333313333333333333335333333363333333433333333333333363333333333333331 cCcSs3sB3s333ccc3c333cc#3c3S3s3C3Scc3c3C3c3S3s333s3C#3ccC3c3S3ccS3s3S#3c3c3c33cc33c3S3Scc3s333ccc3s3S3s3#3c333c3S#3s3s3ccc3ccc3c3c3#cS3c33s3c3fcfScb3s333ccc3c333cc#3c3S3s3C3Scc3ccC3c3S3ccS3s3S#3#3333#3s333ccc3c333cc#3c3S3s3C3Scc3c3’3c3S3s3’3cc#3c3S3s3#3333333C3333333333c333333c333c333333333333333333c333#3333333S3333333333c333S3333333s33333333333333C33333333333333#333c333333333333333333333c333c333c333S3333333333333333333333333333#3333333C33333333333333#33333333333333S333c333C3333333c3333333