Advertisement
Stranck

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
Advertisement
RAW Paste Data Copied
Advertisement