# LocationCrypto by SLC

Feb 23rd, 2015
318
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. @echo off
2. title LocationCrypto.bat
3. title LocationCrypto.bat - Inizialiting...
4. echo Inizializzazione...
5. prompt
6. if not EXIST "Location list.txt" (
7.                                   color 0c
8.                                   echo.
9.                                   echo An unexpected error has occurred while starting up:
10.                                   echo.
11.                                   echo The text file named "Location list.txt" was missed or corrupted.
12.                                   echo.
13.                                   echo.
14.                                   echo To resolve the problem, please, create a new file txt and rename it: "Location list.txt".
15.                                   echo After you do this, restart this program.
16.                                   timeout 2 > nul /NOBREAK
17.                                   echo.
18.                                   echo Press any key to close this window
19.                                   pause > nul
20.                                   exit
21.                                   )
22. echo Inizializzazione: Complete successfully
23. title LocationCrypto.bat - Inizialiting... Complete
24. timeout 1 > nul /NOBREAK
25. :Coordinates
26. echo.
27. title LocationCrypto.bat - Inserit the grades
28. set /p "SG=Inserit here the grades of the cripted coordinate:  "
29. title LocationCrypto.bat - Inserit the minute
30. set /p "SM=Inserit here the minute of the cripted coordinate:  "
31. title LocationCrypto.bat - Inserit the max interval supported
32. set /p "SI=Inserit the max interval supported (Read "Read me.txt" for help)  "
33. title LocationCrypto.bat - Strarting calcounling...
34. echo.
35. echo Strarting calcounling...
36. set Gcount=0
37. set Mcount=0
38. set Goperator=+
39. set Moperator=+
40. :Calc
41. if %Mcount%==%SI% (
42.                set Gcount=%Gcount%+1
43.                set Mcount=0
44.                if %Moperator%==+ set Moperator=-
45.                if %Moperator%==- set Moperator=+
46.                )
47. if %Gcount%==%SI% (
48.                set Gcount=0
49.                if %Goperator%==+ set Moperator=-
50.                if %Goperator%==- goto :finish
51.                )
52. set DG=%SG%%Goperator%%Gcount%
53. set DM=%SM%%Moperator%%Mcount%
54. set /a DC=(%DG%*100)+%DM%
55. title LocationCrypto.bat - Testing %DC%
56. for /f %%c in ('FIND "%DC%" /C /I ^< "Location list.txt"') do set FDC=%%c
57. if %FDC% GEQ 1 echo Founded:   %DC%
58. set /a Mcount=%Mcount%+1
59. goto :Calc
60. :finish
61. timeout 1 > nul /NOBREAK
62. title LocationCrypto.bat - Calcouling complete!
63. echo.
64. echo The calcoulation has been complete succesfully!
65. echo.
66. timeout 3 > nul /NOBREAK
67. echo Press any key to continue...
68. pause > nul
69. goto :Coordinates