goto在線解密源碼

① 按鍵精靈破解6位純數字密碼

//上面的是你寫好到輸入密碼的地方，下面開始輸入密碼
b = 0
rem 輸入密碼
If b<10 Then
b = "00000" & b
Else
If b < 100 Then
b = "0000" & b
Else
If b < 1000 Then
b = "000" & b
Else
If b < 10000 Then
b = "00" & b
Else
If b < 100000 Then
b = "0" & b
Else
If b < 1000000 Then

Else
If b < 10000000 Then
Goto 結束
End If
End If
End If
End If
End If
End If
End If
SayString b
//這里加入你確認密碼和判斷是否正確的語句

b = b + 1
Goto 輸入密碼
Rem 結束

② 我用BAT給文件夾加密後文件夾消失了，現在不知道怎麼找回來，更不知道怎麼解密

把:FAIL下面的 echo Invalid password 換成attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Locker
echo Folder Unlocked successfully 就可以了，這樣不管你輸入什麼數，加密文件夾都能找回來。

③ 急急急!!!修改了網上的bat代碼後儲存了不能用，怎麼辦

先上效果圖：

1、啟動時創建文件夾，以及設置解鎖密碼

④ 不小心用bat加密了文件夾，但卻無法解密。求高手告訴我下怎麼解密

新建文本文件.
explorer %1.\
把上面代碼粘貼上去,保存為123.bat文件.
再把你那文件夾拖放進去看能不能打開..如果不行就改成
explorer %1..\ 再不行把%1後面多點幾個點.因為你代碼不全.猜是這樣的.
正常情況下是可以把該文件夾打開的..打開後可以復制文件.但不能打開文件,.

⑤ excel 2007密碼破解！！

EXCEL工作表保護密碼破解
方法:
1\打開文件
2\工具---宏----錄制新宏---輸入名字如:aa
3\停止錄制(這樣得到一個空宏)
4\工具---宏----宏,選aa,點編輯按鈕
5\刪除窗口中的所有字元(只有幾個),替換為下面的內容:(復制吧)
6\關閉編輯窗口
7\工具---宏-----宏,選AllInternalPasswords,運行,確定兩次,等2分鍾,再確定.OK,沒有密碼了!!
內容如下：
Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"Adapted from Bob McCormick base code by" & _
"Norman Harker and JE McGimpsey"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE & "Please report failure " & _
"to the microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
"now be free of all password protection, so make sure you:" & _
DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
DBLSPACE & "Also, remember that the password was " & _
"put there for a reason. Don't stuff up crucial formulas " & _
"or data." & DBLSPACE & "Access and use of some data " & _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " & _
"sheets, or workbook structure or windows." & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " & _
"workbook structure or windows." & DBLSPACE & _
"Proceeding to unprotect sheets." & AUTHORS & VERSION
Const MSGTAKETIME As String = "After pressing OK button this " & _
"will take some time." & DBLSPACE & "Amount of time " & _
"depends on how many different passwords, the " & _
"passwords, and your computer's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Structure or Windows Password set." & DBLSPACE & _
"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
"Now to check and clear other passwords." & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
"password set." & DBLSPACE & "The password found was: " & _
DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
"future use in other workbooks by same person who " & _
"set this password." & DBLSPACE & "Now to check and clear " & _
"other passwords." & AUTHORS & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean

Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'mmy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub

此方法，本人親自試過，確實不錯

⑥ 文件夾加密解密 急急急！！！

用搜索功能搜索一下文件夾裡面的文件名稱試試，隱藏文件不用這么麻煩的，避免艷照門什麼的，我有更高級的辦法，用文件搜索功能也搜索不到的深度隱藏辦法，想知道的話加分給你發郵箱哦

⑦ 寫一個維吉尼亞加密和解碼的C語言程序，具體要求如下。不要用GOTO， 不要有MAGIC NUMBER。

#include <stdio.h>
#define MINCHAR 32
#define CHARSUM 94
int encode(char* key, char* source, char* dest);
int decode(char* key, char* source, char* dest);
char table[CHARSUM][CHARSUM];
int main()
{
    int i, j;  
    char key[256];
    char source[256];
    char destination[256];
    int operation;
                     
    FILE *fp;
    /* Initial the Vigenere table */
    for(i = 0; i < CHARSUM; i++)
        for(j = 0; j < CHARSUM; j++)
            table[i][j] = MINCHAR + (i + j) % CHARSUM;
                     
    printf("please choose one operation code:
");
    printf("1. Encode; 2. Decode; Others. Exit.
");
    scanf("%d", &operation);
    fflush(stdin);
    switch (operation)
    {
        case 1:
            printf("please input the key code:
");
            gets(key);
            fflush(stdin);
            printf("please input the source code you want to encode:
");
            gets(source);
            fflush(stdin);
            encode(key, source, destination);
            printf("after encode is: 
");
            printf("%s
", destination);
            fp=fopen("key.txt", "w");
            fprintf(fp, "%s", key);
            fclose(fp);
            fp=fopen("source.txt", "w");
            fprintf(fp, "%s", source);
            fclose(fp);
            fp=fopen("destination.txt", "w");
            fprintf( fp, "%s",destination);
            fclose(fp);
            break;
        case 2:
            printf("please input the key code:
");
            gets(key);
            fflush(stdin);
            printf("please input the source code you want to decode:
");
            gets(source);
            fflush(stdin);
            decode(key, source, destination);
            printf("after decode is: 
");
            printf("%s
", destination);
            fp=fopen("key.txt", "w");
            fprintf(fp, "%s", key);
            fclose(fp);
            fp=fopen("source.txt", "w");
            fprintf(fp, "%s", source);
            fclose(fp);
            fp=fopen("destination.txt", "w");
            fprintf(fp, "%s", destination);
            fclose(fp);
            break;
        default:
            return 0;
    }
    return 0;
 }
                  
 int encode(char* key, char* source, char* dest)
 {
    char* tempSource = source;
    char* tempKey = key;
    char* tempDest = dest;
    do
    {
        *tempDest = table[(*tempKey) - MINCHAR][(*tempSource) - MINCHAR];
            tempDest++;   
        if (!(*(++tempKey)))
            tempKey = key;
    } while(*tempSource++);
    dest[strlen(source)] = ''
    return 1; 
}
int decode(char* key, char* source, char* dest)
{
    char* tempSource = source;
    char* tempKey = key;
    char* tempDest = dest;
    char offset;
    do
    {
        offset = (*tempSource) - (*tempKey);
        offset = offset >= 0 ? offset : offset + CHARSUM;
        *tempDest = MINCHAR + offset;
        tempDest++;
        if (!(*(++tempKey)))
            tempKey = key;
    } while(*++tempSource);
    dest[strlen(source)] = ''
    return 1;
}

⑧ 批處理學習中出現: 此時不應有 goto.下面是源碼

@echo off
goto a

:a
cls
echo.
echo.
echo.
echo.
echo ============================
echo 1. 轉到a1
echo.
echo 2. 轉到a2
echo.
echo 3. 轉到a3
echo ============================
set cho1=
set /p cho1= 請選擇：
if %cho1%==1 goto a1
if %cho1%==2 goto a2
if %cho3%==3 goto a3
goto bseo6
:a1
echo bb
pause
exit
:a2
echo bb
pause
exit
:a3
echo bb
pause
exit

:bseo6
echo no
pause
exit
我寫這個批處理,運行時按1,2,3都會轉到a1 a2 a3標簽，可是我輸入其它鍵，卻沒有轉到bseo6，更沒有出現單詞no.只出現一行此時不應有goto

⑨ 如何解密以前加密通過OpenSSL加密的字元串

#include<stdio.h>#include<stdlib.h>#include<string.h>#include<openssl/rsa.h>#include<openssl/engine.h> int main(int argc, char* argv[]){ printf("openssl_test begin\n"); RSA* rsa=NULL; char originstr[]="hello\n"; //這是我們需要加密的原始數據 //allocate RSA structure，首先需要申請一個RSA結構題用於存放生成的公私鑰，這里rsa就是這個結構體的指針 rsa = RSA_new(); if(rsa==NULL) { printf("RSA_new failed\n"); return -1; } //generate RSA keys BIGNUM* exponent; exponent = BN_new(); //生成RSA公私鑰之前需要選擇一個奇數（odd number）來用於生成公私鑰 if(exponent ==NULL) { printf("BN_new failed\n"); goto FAIL1; } if(0==BN_set_word(exponent,65537)) //這里選擇奇數65537 { printf("BN_set_word failed\n"); goto FAIL1; } //這里molus的長度選擇4096，小於1024的molus長度都是不安全的，容易被破解 if(0==RSA_generate_key_ex(rsa,4096,exponent,NULL)) { printf("RSA_generate_key_ex failed\n"); goto FAIL; } char* cipherstr = NULL; //分配一段空間用於存儲加密後的數據，這個空間的大小由RSA_size函數根據rsa算出 cipherstr = malloc(RSA_size(rsa)); if(cipherstr==NULL) { printf("malloc cipherstr buf failed\n"); goto FAIL1; } //下面是實際的加密過程，最後一個參數padding type，有以下幾種。 /*RSA_PKCS1_PADDINGPKCS #1 v1.5 padding. This currently is the most widely used mode.RSA_PKCS1_OAEP_PADDINGEME-OAEP as defined in PKCS #1 v2.0 with SHA-1, MGF1 and an empty encoding parameter. This mode is recommended for all new applications.RSA_SSLV23_PADDINGPKCS #1 v1.5 padding with an SSL-specific modification that denotes that the server is SSL3 capable.RSA_NO_PADDINGRaw RSA encryption. This mode should only be used to implement cryptographically sound padding modes in the application code. Encrypting user data directly with RSA is insecure.*/ //這里首先用公鑰進行加密，選擇了RSA_PKCS1_PADDING if(RSA_size(rsa)!=RSA_public_encrypt(strlen(originstr)+1,originstr,cipherstr,rsa,RSA_PKCS1_PADDING)) { printf("encryption failure\n"); goto FAIL2; } printf("the original string is %s\n",originstr); printf("the encrypted string is %s\n",cipherstr); //Now, let's decrypt the string with private key //下面來用私鑰解密，首先需要一個buffer用於存儲解密後的數據，這個buffer的長度要足夠（小於RSA_size(rsa)） //這里分配一個長度為250的字元數組，應該是夠用的。 char decrypted_str[250]; int decrypted_len; if(-1=(decrypted_len=RSA_private_decrypt(256,cipherstr,decrypted_str,rsa,RSA_PKCS1_PADDING))) { printf("decryption failure\n"); goto FAIL2; } printf("decrypted string length is %d,decryped_str is %s\n",decrypted_len,decrypted_str);FAIL2: free(cipherstr);FAIL1: BN_free(exponent);FAIL: RSA_free(rsa); return 0;}

以上是源代碼，下面使用下面的編譯命令在源碼所在路徑下生成可執行文件 gcc *.c -o openssl_test -lcrypto -ldl -L/usr/local/ssl/lib -I/usr/local/ssl/include其中，-lcrypto和-ldl是必須的，前者是OpenSSL中的加密演算法庫，後者是用於成功載入動態庫。

⑩ nick/phpParser怎麼解密goto混淆後的php代碼

可以在網上找解密goto 的，不過需要付一點費用