38 |
39 |
40 | Cryptography File(DES)_
41 |
42 |
43 |
44 | Mode ECB(Electronic Codebook)
45 | Rumus Y
i = F(PlainText
i, Key)
46 |
47 |
48 |
64 |
65 | encrypt($plain, $key); //ENKRIPSI IV MENGHASILKAN HEKSA
103 | $ivchiper = hex2bin($res); //MENGUBAH IV KE ASCII/STRING
104 |
105 | echo "=================INPUT=================
";
106 | echo "Plain ASCII Inisialisasi Pdf = ".$plain."
";
107 | echo "Plain Heksa Inisialisasi Pdf = ".$heksaplain."
";
108 | echo "Plain ASCII Kunci = ".$key."
";
109 | echo "Plain Heksa Kunci = ".$heksakunci."
";
110 | echo "=======================================
";
111 |
112 | echo "================OUTPUT===============
";
113 | echo "Chiper ASCII Inisialisasi Pdf = ".$ivchiper."
";
114 | asciitobin($ivchiper,$binerchiper,$heksachiper); //MENGUBAH IV CHIPER KE HEKSA
115 | echo "Chiper Heksa Inisialisasi Pdf = ".$heksachiper."
";
116 | echo "=======================================
";
117 |
118 | $msg_encrypted = enkripsiDES($pdfobj, $key, $ivchiper);
119 | $file = fopen("./file/$pdfbaru", 'wb');
120 | fwrite($file, $msg_encrypted);
121 | fclose($file);
122 | echo "=================== Log ===============
";
123 | $des->showLog();
124 | }
125 | else{
126 | echo '';
129 | }
130 | }
131 |
132 | else if(isset($_POST['dekripsi'])){
133 | $kunci = $_POST['kunci'];
134 | $pdf = $_FILES['pdf']['name']; //MENGAMBIL NAMA FILE PDF
135 | $tmp = $_FILES['pdf']['tmp_name'];
136 | $ekstensi = explode(".", $pdf);
137 | $ekstensi1 = ".".$ekstensi[1]; //MENGAMBIL EKSTENSI FILE
138 | $pdfbaru = "dekripsi".date('is').$ekstensi1; //RENAME FILE UNTUK MEMPERMUDAH WRITE DATA
139 | $pdfobj = file_get_contents($tmp); //FILE RAW/OBJECT YANG AKAN DI ENKRIP OPENSSL
140 |
141 | if(strlen($kunci) == 8){
142 | $msg_encrypted = dekripsiDES($pdfobj, $kunci, $iv);
143 | $plain = $iv;
144 | $key = $kunci; //KUNCI ASCII/STRING
145 | asciitobin($plain,$binerplain,$heksaplain); //MENGUBAH IV KE HEKSA
146 | asciitobin($key,$binerkunci,$heksakunci); //MENGUBAH KUNCI KE HEKSA
147 |
148 | $des = new DataEncryptionStandard(); //FUNGSI DES MANUAL
149 | $res = $des->decrypt($plain, $key); //ENKRIPSI IV MENGHASILKAN HEKSA
150 | $ivchiper = hex2bin($res); //MENGUBAH IV KE ASCII/STRING
151 |
152 | echo "=================INPUT=================
";
153 | echo "Plain ASCII Inisialisasi Pdf = ".$plain."
";
154 | echo "Plain Heksa Inisialisasi Pdf = ".$heksaplain."
";
155 | echo "Plain ASCII Kunci = ".$key."
";
156 | echo "Plain Heksa Kunci = ".$heksakunci."
";
157 | echo "=======================================
";
158 |
159 | echo "================OUTPUT===============
";
160 | echo "Chiper ASCII Inisialisasi Pdf = ".$ivchiper."
";
161 | asciitobin($ivchiper,$binerchiper,$heksachiper); //MENGUBAH IV CHIPER KE HEKSA
162 | echo "Chiper Heksa Inisialisasi Pdf = ".$heksachiper."
";
163 | echo "=======================================
";
164 |
165 | $file = fopen("./file/$pdfbaru", 'wb');
166 | fwrite($file, $msg_encrypted);
167 | fclose($file);
168 | echo "=================== Log ===============
";
169 | $des->showLog();
170 | }
171 | else{
172 | echo '';
175 | }
176 | }
177 | ?>
178 |