goto在线解密源码_如何解密以前加密通过OpenSSL加密的字符串

① 按键精灵破解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 的，不过需要付一点费用

导航:首页 > 源码编译 > goto在线解密源码

goto在线解密源码

与goto在线解密源码相关的资料