(^_^) Posted February 25, 2007 Share Posted February 25, 2007 im sure that some of u guys have heard of hackthissite.org well im working on realistic 6 and its a decription its an easy one where u decrypt a file well i have my decrypter made and it works fine its just goin to take for ever for me to input all the 207.293.234 and what i need to do is get my script to get the numbers from a ini file or a txt file but i dont know how to to do that heres my script as to what i have so far expandcollapse popup#include <guiconstants.au3> $WinMain = GuiCreate('deseans decryptor', 400, 400) ; Creates window $add1 =GUICtrlCreateInput('',5,5,50,20) $add2 = GUICtrlCreateInput('',55,5,50,20) $add3 = GUICtrlCreateInput('',105,5,50,20) $minus1 = GUICtrlCreateInput('',160,5,50,20) $ascii = 0 $output = GUICtrlCreateLabel("", 185, 45, 70, 50, 0x1000) $DecryptButton = GuiCtrlCreateButton('decrypt', 285, 360, 105, 35) GuiSetState() While 1 $msg = GUIGetMsg() Select Case $msg = $DecryptButton $ad1 = GUICtrlRead($add1) $ad2 = GUICtrlRead($add2) $ad3 = GUICtrlRead($add3) $ad4 = GUICtrlRead($minus1) $ascii = $ad1 + $ad2 + $ad3 - $ad4 EndSelect Select Case $ascii = 65 $A = 'A' GUICtrlSetData($output, $A) Case $ascii = 66 $A = 'B' GUICtrlSetData($output, $A) Case $ascii = 67 $A = 'C' GUICtrlSetData($output, $A) Case $ascii = 68 $A = 'D' GUICtrlSetData($output, $A) Case $ascii = 69 $A = 'E' GUICtrlSetData($output, $A) Case $ascii = 70 $A = 'F' GUICtrlSetData($output, $A) Case $ascii = 71 $A = 'G' GUICtrlSetData($output, $A) Case $ascii = 72 $A = 'H' GUICtrlSetData($output, $A) Case $ascii = 73 $A = 'I' GUICtrlSetData($output, $A) Case $ascii = 74 $A = 'J' GUICtrlSetData($output, $A) Case $ascii = 75 $A = 'K' GUICtrlSetData($output, $A) Case $ascii = 76 $A = 'L' GUICtrlSetData($output, $A) Case $ascii = 77 $A = 'M' GUICtrlSetData($output, $A) Case $ascii = 78 $A = 'N' GUICtrlSetData($output, $A) Case $ascii = 79 $A = 'O' GUICtrlSetData($output, $A) Case $ascii = 80 $A = 'P' GUICtrlSetData($output, $A) Case $ascii = 81 $A = 'Q' GUICtrlSetData($output, $A) Case $ascii = 82 $A = 'R' GUICtrlSetData($output, $A) Case $ascii = 83 $A = 'S' GUICtrlSetData($output, $A) Case $ascii = 84 $A = 'T' GUICtrlSetData($output, $A) Case $ascii = 85 $A = 'U' GUICtrlSetData($output, $A) Case $ascii = 86 $A = 'V' GUICtrlSetData($output, $A) Case $ascii = 87 $A = 'W' GUICtrlSetData($output, $A) Case $ascii = 88 $A = 'X' GUICtrlSetData($output, $A) Case $ascii = 89 $A = 'Y' GUICtrlSetData($output, $A) Case $ascii = 90 $A = 'Z' GUICtrlSetData($output, $A) Case $ascii = 91 $A = '[' GUICtrlSetData($output, $A) Case $ascii = 92 $A = '\' GUICtrlSetData($output, $A) Case $ascii = 93 $A = ']' GUICtrlSetData($output, $A) Case $ascii = 94 $A = '^' GUICtrlSetData($output, $A) Case $ascii = 95 $A = '_' GUICtrlSetData($output, $A) Case $ascii = 96 $A = '.' GUICtrlSetData($output, $A) Case $ascii = 97 $A = 'a' GUICtrlSetData($output, $A) Case $ascii = 98 $A = 'b' GUICtrlSetData($output, $A) Case $ascii = 99 $A = 'c' GUICtrlSetData($output, $A) Case $ascii = 100 $A = 'd' GUICtrlSetData($output, $A) Case $ascii = 101 $A = 'e' GUICtrlSetData($output, $A) Case $ascii = 102 $A = 'f' GUICtrlSetData($output, $A) Case $ascii = 103 $A = 'g' GUICtrlSetData($output, $A) Case $ascii = 104 $A = 'h' GUICtrlSetData($output, $A) Case $ascii = 105 $A = 'i' GUICtrlSetData($output, $A) Case $ascii = 106 $A = 'j' GUICtrlSetData($output, $A) Case $ascii = 107 $A = 'k' GUICtrlSetData($output, $A) Case $ascii = 108 $A = 'l' GUICtrlSetData($output, $A) Case $ascii = 109 $A = 'm' GUICtrlSetData($output, $A) Case $ascii = 110 $A = 'n' GUICtrlSetData($output, $A) Case $ascii = 111 $A = 'o' GUICtrlSetData($output, $A) Case $ascii = 112 $A = 'p' GUICtrlSetData($output, $A) Case $ascii = 113 $A = 'q' GUICtrlSetData($output, $A) Case $ascii = 114 $A = 'r' GUICtrlSetData($output, $A) Case $ascii = 115 $A = 's' GUICtrlSetData($output, $A) Case $ascii = 116 $A = 't' GUICtrlSetData($output, $A) Case $ascii = 117 $A = 'u' GUICtrlSetData($output, $A) Case $ascii = 118 $A = 'v' GUICtrlSetData($output, $A) Case $ascii = 119 $A = 'w' GUICtrlSetData($output, $A) EndSelect If $msg = $GUI_EVENT_CLOSE Then ExitLoop WEnd [center][font="Arial Black"] DESEAN[/font][/center] [center]<<<WOW Fi$her>>>[/center][center]<<<mp3 player>>>[/center] Link to comment Share on other sites More sharing options...
(^_^) Posted February 25, 2007 Author Share Posted February 25, 2007 (edited) heres the file im decrypting i need it to put those 3 sets of 3 numbers into my first 3 boxes sry about the double post and the 4th box put 762 expandcollapse popup296.294.255. 268.313.278. 311.270.290. 305.322.252. 276.286.301. 305.264.301. 251.269.274. 311.304.230. 280.264.327. 301.301.265. 287.285.306. 265.282.319. 235.262.278. 249.239.284. 237.249.289. 250.282.240. 256.287.303. 310.314.242. 302.289.268. 315.264.293. 261.298.310. 242.253.299. 278.272.333. 272.295.306. 276.317.286. 250.272.272. 274.282.308. 262.285.326. 321.285.270. 270.241.283. 305.319.246. 263.311.299. 295.315.263. 304.279.286. 286.299.282. 285.289.298. 277.292.296. 282.267.245. 304.322.252. 265.313.288. 310.281.272. 266.243.285. 309.295.269. 295.308.275. 316.267.283. 311.300.252. 270.318.288. 266.276.252. 313.280.288. 258.272.329. 321.291.271. 279.250.265. 261.293.319. 309.303.260. 266.291.237. 299.286.293. 279.267.320. 290.265.308. 278.239.277. 314.300.253. 274.309.289. 280.279.302. 307.317.252. 261.291.311. 268.262.329. 312.271.294. 291.291.281. 282.292.288. 240.248.306. 277.298.295. 267.312.284. 265.294.321. 260.293.310. 300.307.263. 304.297.276. 262.291.241. 284.312.277. 276.265.323. 280.257.257. 303.320.255. 291.292.290. 270.267.345. 264.291.312. 295.269.297. 280.290.224. 308.313.240. 308.311.247. 284.311.268. 289.266.316. 299.269.299. 298.265.298. 262.260.337. 320.285.265. 273.307.297. 282.287.225. 302.277.288. 284.310.278. 255.263.276. 283.322.273. 300.264.302. 312.289.262. 236.278.280. 286.292.298. 296.313.258. 300.280.300. 260.274.329. 288.272.316. 256.259.279. 297.296.283. 273.286.320. 287.313.272. 301.311.260. 302.261.304. 280.264.328. 259.259.347. 245.291.258. 289.270.300. 301.318.251. 305.278.290. 311.280.281. 293.313.259. 300.262.315. 263.319.285. 282.297.283. 290.293.280. 237.234.323. 289.305.279. 314.274.291. 309.273.294. 249.283.262. 271.286.310. 305.306.261. 298.282.282. 307.287.285. 305.297.275. 306.280.292. 291.284.301. 278.293.296. 277.301.281. 274.315.281. 254.251.289. 313.307.244. 256.302.301. 317.305.239. 316.274.277. 296.269.305. 301.279.287. 317.284.277. 305.298.264. 304.286.273. 275.293.309. 286.282.240. 287.239.268. 269.267.315. 311.292.270. 271.272.336. 282.237.275. 316.306.239. 305.314.240. 296.306.270. 247.245.302. 317.316.241. 291.310.266. 274.274.313. 288.262.319. 280.276.238. 297.295.287. 285.288.301. 272.275.247. 305.292.286. 272.310.291. 301.322.256. 315.298.263. 281.276.237. 294.284.296. 284.302.273. 298.287.298. 301.265.305. 270.315.278. 283.302.287. 263.270.345. 258.270.266. 302.309.262. 260.277.327. 263.277.254. 283.276.239. 272.264.276. 279.264.267. 298.264.244. 245.273.292. 289.273.248. 259.263.288. 290.294.210. 288.268.311. 318.312.242. 285.293.216. 262.276.340. 292.299.275. 259.293.311. 234.266.294. 278.307.286. 267.307.285. 269.310.288. 274.270.326. 273.276.311. 304.267.302. 318.265.299. 263.283.248. 257.314.288. 321.321.236. 284.283.227. 320.312.246. 261.289.316. 288.263.312. 241.265.288. 298.286.287. 274.306.279. 276.289.307. 303.293.281. 298.317.252. 312.283.278. 263.304.305. 258.266.270. 294.286.293. 290.291.291. 258.254.282. 282.283.313. 268.282.316. 310.299.254. 264.234.296. 270.265.326. 288.292.293. 321.305.250. 320.299.253. 270.296.297. 298.266.312. 234.273.287. 309.286.278. 269.279.316. 284.276.234. 293.255.267. 242.253.318. 270.246.278. 292.285.282. 314.266.292. 286.263.313. 249.290.255. 289.264.292. 301.299.278. 291.292.225. 250.261.283. 303.262.264. 264.303.299. 297.274.288. 267.293.316. 320.317.233. 303.258.302. 271.283.323. 247.279.268. 312.269.297. 313.280.280. 273.266.332. 276.313.284. 281.316.279. 290.273.313. 308.305.260. 302.306.273. 234.279.281. 284.298.278. 259.290.314. 275.264.339. 293.322.266. 261.296.306. 277.275.311. 284.270.318. 259.249.286. 292.301.285. 280.303.283. 287.299.277. 273.293.228. 311.283.272. 304.292.277. 271.306.302. 278.298.300. 287.281.309. 243.272.279. 282.300.291. 295.284.285. 252.291.251. 285.283.245. 250.252.318. 298.277.235. 288.259.263. 278.274.307. 261.260.350. 250.288.256. 282.316.261. 285.295.292. 300.298.264. 245.241.308. 301.261.253. 289.264.267. 300.262.248. 287.257.266. 275.287.297. 320.287.264. 279.297.232. 231.256.288. 243.252.277. 274.245.256. 253.229.290. 263.305.278. 260.294.312. 283.301.275. 276.299.297. 312.275.282. 294.272.228. 302.324.257. 261.286.326. 280.283.316. 294.254.258. 275.264.236. 240.277.255. 231.258.286. 242.277.253. 296.290.250. 314.320.239. 292.313.261. 294.261.317. 273.285.236. 292.282.271. 264.297.300. 272.308.299. 300.269.301. 269.317.284. 286.262.315. 276.279.328. 269.254.252. 232.272.268. 309.273.264. 296.305.272. 267.291.324. 302.297.268. 268.263.298. 300.261.312. 241.254.299. 280.263.292. 260.301.311. 317.297.248. 314.272.293. 298.281.298. 276.311.291. 297.318.261. 274.300.293. 297.267.295. 261.275.334. 289.238.267. 289.283.257. 300.262.304. 311.278.274. 265.261.345. 301.296.270. 273.299.289. 274.272.313. 282.268.320. 287.320.270 Edited February 25, 2007 by (^_^) [center][font="Arial Black"] DESEAN[/font][/center] [center]<<<WOW Fi$her>>>[/center][center]<<<mp3 player>>>[/center] Link to comment Share on other sites More sharing options...
tAKTelapis Posted February 25, 2007 Share Posted February 25, 2007 (edited) i have used that site before, got bored with it rather fast, though its a great concept. anyways, lets get this straight, the numbers that look like IPs (cause thats what they are based off of) are to be decided in this format: 296.294.255.762 would be: (296 + 294 + 255) - 762 = 83 and as such, the ASCII character for 83 is: S In Which Case: Create the file C:\Codes.txt and paste all of those codes into it. Run this: it will give you what you want.. and i am sure someone here could probably do even cleaner ** EDIT ** heavily commented the code. ; Open the Codes text file and check that it opened properly $File = FileOpen("C:\Codes.txt", 0) If $file = -1 Then MsgBox(0, "Error", "Unable to open Codes file.") Exit EndIf ; open the Decoded text file for writing and check that it opened properly $DecodedFile = FileOpen("C:\Decoded.txt", 9) If $file = -1 Then MsgBox(0, "Error", "Unable to open Decoded file.") Exit EndIf ; start the loop While 1 ;read in lines of the file until end of file is reached, send message when it is. $String = FileReadLine($file) If @error = -1 Then MsgBox(0, "All Done", "Decoding complete") ExitLoop EndIf ; define the String Split command, to split the strings of the text document at the "." character $Array = StringSplit($String, ".", 1) ; set $letter to the ASCII code, by doing the math on the 3 array variables [1][2][3], then write it to a line and WEnd the loop $Letter = Chr(String($Array[1] + $Array[2] + $Array[3] - 762)) FileWrite($DecodedFile, $Letter) WEnd ; run the text document when it is all done, so that you can see the output of the code. Run("Notepad.exe C:\Decoded.txt") Cheers /tAK Edited February 25, 2007 by tAKTelapis Link to comment Share on other sites More sharing options...
(^_^) Posted February 25, 2007 Author Share Posted February 25, 2007 yea thx i was reading up in the help file for the last few hours i got it reading the numbers decrypting it automaticly and writing it, the only problem i have now is with it writing its writing 2 many chars its like this ssssssaaaaaammmmmuuuueeeellllll ssssssmmmmiiiiiiittttthhhhh i dont know what i can do to fix that, i even tryed making a if $A <> '@' Then FileWrite("decoded.txt", $A) FileClose("decoded.txt") $A = '@' EndIf but still writes like crazy heres my code expandcollapse popup#include <guiconstants.au3> $WinMain = GuiCreate('deseans decryptor', 400, 400) ; Creates window $add1 =GUICtrlCreateInput('',5,5,50,20) $add2 = GUICtrlCreateInput('',55,5,50,20) $add3 = GUICtrlCreateInput('',105,5,50,20) $minus1 = GUICtrlCreateInput('',160,5,50,20) $ascii = 0 $output = GUICtrlCreateLabel("", 185, 45, 70, 50, 0x1000) $DecryptButton = GuiCtrlCreateButton('decrypt', 285, 360, 105, 35) $num = 0 $A = 0 GuiSetState() While 1 $msg = GUIGetMsg() $A = '@' Select Case $msg = $DecryptButton $num = $num + 1 $file = FileOpen("decrypt.txt", 0) $line = FileReadLine ($file , $num ) $cut1 = StringTrimRight($line, 10) $cut2 = StringTrimRight($line, 6) $cut21 = StringTrimLeft ($cut2 , 4) $cut3 = StringTrimLeft ($line , 8) $cut31 = StringTrimRight($cut3, 2) $ad1 = GUICtrlSetData($add1, $cut1) $ad2 = GUICtrlSetData($add2, $cut21) $ad3 = GUICtrlSetData($add3, $cut31) $ad4 = GUICtrlRead($minus1) $ar1 = GUICtrlRead($add1) $ar2 = GUICtrlRead($add2) $ar3 = GUICtrlRead($add3) $ascii = $ar1 + $ar2 + $ar3 - $ad4 EndSelect Select Case $ascii = 32 $A = ' ' GUICtrlSetData($output, $A) Case $ascii = 33 $A = '!' GUICtrlSetData($output, $A) Case $ascii = 34 $A = '"' GUICtrlSetData($output, $A) Case $ascii = 35 $A = '#' GUICtrlSetData($output, $A) Case $ascii = 36 $A = '$' GUICtrlSetData($output, $A) Case $ascii = 37 $A = '%' GUICtrlSetData($output, $A) Case $ascii = 38 $A = '&' GUICtrlSetData($output, $A) Case $ascii = 39 $A = 'thing' GUICtrlSetData($output, $A) Case $ascii = 40 $A = '(' GUICtrlSetData($output, $A) Case $ascii = 41 $A = ')' GUICtrlSetData($output, $A) Case $ascii = 42 $A = '*' GUICtrlSetData($output, $A) Case $ascii = 43 $A = '+' GUICtrlSetData($output, $A) Case $ascii = 44 $A = ',' GUICtrlSetData($output, $A) Case $ascii = 45 $A = '-' GUICtrlSetData($output, $A) Case $ascii = 46 $A = '.' GUICtrlSetData($output, $A) Case $ascii = 47 $A = '/' GUICtrlSetData($output, $A) Case $ascii = 48 $A = '0' GUICtrlSetData($output, $A) Case $ascii = 49 $A = '1' GUICtrlSetData($output, $A) Case $ascii = 50 $A = '2' GUICtrlSetData($output, $A) Case $ascii = 51 $A = '3' GUICtrlSetData($output, $A) Case $ascii = 52 $A = '4' GUICtrlSetData($output, $A) Case $ascii = 53 $A = '5' GUICtrlSetData($output, $A) Case $ascii = 54 $A = '6' GUICtrlSetData($output, $A) Case $ascii = 55 $A = '7' GUICtrlSetData($output, $A) Case $ascii = 56 $A = '8' GUICtrlSetData($output, $A) Case $ascii = 57 $A = '9' GUICtrlSetData($output, $A) Case $ascii = 58 $A = ':' GUICtrlSetData($output, $A) Case $ascii = 59 $A = ';' GUICtrlSetData($output, $A) Case $ascii = 60 $A = '<' GUICtrlSetData($output, $A) Case $ascii = 61 $A = '=' GUICtrlSetData($output, $A) Case $ascii = 62 $A = '>' GUICtrlSetData($output, $A) Case $ascii = 63 $A = '?' GUICtrlSetData($output, $A) Case $ascii = 64 $A = '@' GUICtrlSetData($output, $A) Case $ascii = 65 $A = 'A' GUICtrlSetData($output, $A) Case $ascii = 66 $A = 'B' GUICtrlSetData($output, $A) Case $ascii = 67 $A = 'C' GUICtrlSetData($output, $A) Case $ascii = 68 $A = 'D' GUICtrlSetData($output, $A) Case $ascii = 69 $A = 'E' GUICtrlSetData($output, $A) Case $ascii = 70 $A = 'F' GUICtrlSetData($output, $A) Case $ascii = 71 $A = 'G' GUICtrlSetData($output, $A) Case $ascii = 72 $A = 'H' GUICtrlSetData($output, $A) Case $ascii = 73 $A = 'I' GUICtrlSetData($output, $A) Case $ascii = 74 $A = 'J' GUICtrlSetData($output, $A) Case $ascii = 75 $A = 'K' GUICtrlSetData($output, $A) Case $ascii = 76 $A = 'L' GUICtrlSetData($output, $A) Case $ascii = 77 $A = 'M' GUICtrlSetData($output, $A) Case $ascii = 78 $A = 'N' GUICtrlSetData($output, $A) Case $ascii = 79 $A = 'O' GUICtrlSetData($output, $A) Case $ascii = 80 $A = 'P' GUICtrlSetData($output, $A) Case $ascii = 81 $A = 'Q' GUICtrlSetData($output, $A) Case $ascii = 82 $A = 'R' GUICtrlSetData($output, $A) Case $ascii = 83 $A = 'S' GUICtrlSetData($output, $A) Case $ascii = 84 $A = 'T' GUICtrlSetData($output, $A) Case $ascii = 85 $A = 'U' GUICtrlSetData($output, $A) Case $ascii = 86 $A = 'V' GUICtrlSetData($output, $A) Case $ascii = 87 $A = 'W' GUICtrlSetData($output, $A) Case $ascii = 88 $A = 'X' GUICtrlSetData($output, $A) Case $ascii = 89 $A = 'Y' GUICtrlSetData($output, $A) Case $ascii = 90 $A = 'Z' GUICtrlSetData($output, $A) Case $ascii = 91 $A = '[' GUICtrlSetData($output, $A) Case $ascii = 92 $A = '\' GUICtrlSetData($output, $A) Case $ascii = 93 $A = ']' GUICtrlSetData($output, $A) Case $ascii = 94 $A = '^' GUICtrlSetData($output, $A) Case $ascii = 95 $A = '_' GUICtrlSetData($output, $A) Case $ascii = 96 $A = '`' GUICtrlSetData($output, $A) Case $ascii = 97 $A = 'a' GUICtrlSetData($output, $A) Case $ascii = 98 $A = 'b' GUICtrlSetData($output, $A) Case $ascii = 99 $A = 'c' GUICtrlSetData($output, $A) Case $ascii = 100 $A = 'd' GUICtrlSetData($output, $A) Case $ascii = 101 $A = 'e' GUICtrlSetData($output, $A) Case $ascii = 102 $A = 'f' GUICtrlSetData($output, $A) Case $ascii = 103 $A = 'g' GUICtrlSetData($output, $A) Case $ascii = 104 $A = 'h' GUICtrlSetData($output, $A) Case $ascii = 105 $A = 'i' GUICtrlSetData($output, $A) Case $ascii = 106 $A = 'j' GUICtrlSetData($output, $A) Case $ascii = 107 $A = 'k' GUICtrlSetData($output, $A) Case $ascii = 108 $A = 'l' GUICtrlSetData($output, $A) Case $ascii = 109 $A = 'm' GUICtrlSetData($output, $A) Case $ascii = 110 $A = 'n' GUICtrlSetData($output, $A) Case $ascii = 111 $A = 'o' GUICtrlSetData($output, $A) Case $ascii = 112 $A = 'p' GUICtrlSetData($output, $A) Case $ascii = 113 $A = 'q' GUICtrlSetData($output, $A) Case $ascii = 114 $A = 'r' GUICtrlSetData($output, $A) Case $ascii = 115 $A = 's' GUICtrlSetData($output, $A) Case $ascii = 116 $A = 't' GUICtrlSetData($output, $A) Case $ascii = 117 $A = 'u' GUICtrlSetData($output, $A) Case $ascii = 118 $A = 'v' GUICtrlSetData($output, $A) Case $ascii = 119 $A = 'w' GUICtrlSetData($output, $A) Case $ascii = 120 $A = 'x' GUICtrlSetData($output, $A) Case $ascii = 121 $A = 'y' GUICtrlSetData($output, $A) Case $ascii = 122 $A = 'z' GUICtrlSetData($output, $A) EndSelect if $A <> '@' Then FileWrite("decoded.txt", $A) FileClose("decoded.txt") EndIf If $msg = $GUI_EVENT_CLOSE Then ExitLoop WEnd [center][font="Arial Black"] DESEAN[/font][/center] [center]<<<WOW Fi$her>>>[/center][center]<<<mp3 player>>>[/center] Link to comment Share on other sites More sharing options...
tAKTelapis Posted February 25, 2007 Share Posted February 25, 2007 honestly, replace all of those case messages with: $A = Chr($ascii) the Chr statement takes an ASCII code and returns the standard character. it will remove a LOT of processing overhead from your script, downsize the file, and hopefully help with the debunking. Keeping in mind i gave you 100% working code, the fact that you are still wanting to get your own going is good (it shows you are determined to learn). Hope you get there, between my code, and the help file, you should be able to work it out. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now