       } elseif { $action == 6 } {  
         send -s "/usr/netscreen/GuiSvr/utils/xdifImporter.sh /var/tmp/xdif_$backuptime.txt /var/netscreen/GuiSvr/xdb/init/ "
 
+      } elseif { $action == 7 } {
+        set backuptime [ timestamp -format "%Y%m%d_%H%M%S"]
+        send -s "perl -pi\".$backuptime\" -e 's/(devSvrManager.cryptoKeyLength\\s*) \\d+/\$1 0/' /usr/netscreen/DevSvr/var/devSvr.cfg && /etc/init.d/devSvr restart\r"
+
       # default - unknown choice
       } else {
         send_user "\nUnknown choice\n"

 4 - prepare a command that will uninstall all NSM packages and remove all the NSM data from the server, the command is printed without \\r at the end,
 5 - print the command needed to export the db to xdif ($filetime),
 6 - print the command needed to import the db from xdif ($filetime),

 input: "
      stty cooked echo 

      set action $expect_out(1,string)

      send "\r"
      
      # devsvr.cfg corrections of whitespaces
      if { $action == 1 } {
      
